kindle calendar

      (eval-when-compile
        (package-initialize)
        (if (package-installed-p 'use-package)
           (progn (require 'use-package)
                  (require 'bind-key))
         (package-refresh-contents)
         (package-install 'use-package)))

      (unless (package-installed-p 'use-package)
        (package-refresh-contents)
        (package-install 'use-package))

      ;; Allow startup buffer to switch
      ;; and remove frills from borders
      (setq inhibit-startup-screen t)
      (scroll-bar-mode -1)
      (tool-bar-mode -1)
      (tooltip-mode -1)
      (menu-bar-mode -1)
      (global-tab-line-mode -1)

      (use-package calfw)
      (use-package calfw-org
        :after calfw
        :init
        (setq cfw:org-overwrite-default-keybinding t))
      (use-package calfw-ical)
      (defun my-open-calendar ()
        (interactive)
        (cfw:open-calendar-buffer
         :contents-sources
         (list
          (cfw:org-create-source "Green") ; org stuff
          (cfw:ical-create-source "Mine" ; my gcal stuff
                                  (concat "https://calendar.google.com/calendar/ical/"
                                          "blahblahblah"
                                          "blahblahblah/basic.ics")
                                  "blue")
          (cfw:ical-create-source "Work"
                                  (concat "https://calendar.google.com/calendar/ical/"
                                          "blahblahblah"
                                          "blashblah/basic.ics")
                                  "grey")
          (cfw:ical-create-source "Abfall"
                                  (concat "https://calendar.google.com/calendar/ical/"
                                          "blahblahblah"
                                          "blahblahblah/basic.ics"
                                  "orange"))))

      (progn
        ;; Allow frame resizes by pixel amounts
        (setq frame-resize-pixelwise t)
        (set-frame-position (selected-frame) 0 0)
        (set-frame-size (selected-frame) 600 800 t)
        ;; Pull entries and display
        (my-open-calendar)
        (switch-to-buffer "*cfw-calendar*")
        ;; Hack to enable imagemagick to convert ascii:
        (write-file "~/calendar.txt")
        (with-current-buffer (find-file "~/calendar.txt")
          (goto-char 0)
          (insert "text 15,15 \"")
          (end-of-buffer)
          (insert "\n\"")
          (save-buffer))
        (shell-command "rm /home/moi/calendar.png && convert -size 600x800 xc:white -font \"FreeMono\" -pointsize 12 -fill black -draw @/home/moi/calendar.txt /home/moi/calendar.png")
        ;; display the image
        (find-file "/home/moi/calendar.png"))