Enable calfw and calfw-blocks for planning calendar slots

Visually looking at the day gives a far more visceral understanding of
what you plan to do today.

Note that I am using personal recipes for both these projects, until
the fixes I've made can be merged upstream. The relevant PRs are:

- kiwanami/emacs-calfw#154
- kiwanami/emacs-calfw#155
- ml729/calfw-blocks#1
- ml729/calfw-blocks#2

Author: vedang

el-get-init-files/personal-recipes/calfw-blocks.rcp

@@ -0,0 +1,6 @@
+(:name calfw-blocks
+       :description "Visual enhancements for the Emacs Calendar Framework"
+       :type github
+       :pkgname "vedang/calfw-blocks"
+       :depends (calfw)
+       :minimum-emacs-version "26.3")

el-get-init-files/personal-recipes/calfw.rcp

@@ -0,0 +1,5 @@
+(:name calfw
+       :type github
+       :pkgname "vedang/emacs-calfw"
+       :description "A calendar framework for Emacs (with support for `org-mode', `howm' and iCal files)"
+       :website "https://github.com/kiwanami/emacs-calfw")

init-el-get.el

@@ -323,12 +323,32 @@
          ;;                            leuven-scale-org-agenda-structure nil
          ;;                            leuven-scale-volatile-highlight nil)))
 
-         ;; (:name calfw
-         ;;        :after (progn
-         ;;                 ;; For reasons that I do not understand, the
-         ;;                 ;; :timestamp value does not work here.
-         ;;                 (setq cfw:org-agenda-schedule-args
-         ;;                       '(:deadline :scheduled))))
+         (:name calfw
+                :after (with-eval-after-load 'org
+                         (require 'calfw)
+                         (require 'calfw-org)
+                         (setq cfw:org-agenda-schedule-args
+                               '(:deadline :scheduled :timestamp))))
+
+         (:name calfw-blocks
+                :after (with-eval-after-load 'org
+                         (require 'calfw-blocks)
+
+                         ;; From the readme of calfw-blocks
+                         (defun cfw:open-calendar-agenda-blocks ()
+                           (interactive)
+                           (cfw:open-calendar-buffer
+                            :contents-sources
+                            (list
+                             (cfw:org-create-source "medium purple"))
+                            :view 'block-day))
+
+                         (setq calfw-blocks-earliest-visible-time '(6 0)
+                               calfw-blocks-show-time-grid t
+                               calfw-blocks-show-current-time-indicator t
+                               calfw-blocks-default-event-length 1
+                               cfw:highlight-today nil)))
+
          (:name company-mode
                 :after (progn (add-hook 'after-init-hook #'global-company-mode)
                               (setq company-require-match nil