Cleanup calendar

global.org

@@ -418,10 +418,13 @@
 	    (beginning-of-line))))
       (global-set-key (kbd "C-a") 'smart-line-beginning)
    #+end_src
-** White-space
+** Whitespace
-   Trailing whitespace is evil; get rid of it
+   Trailing whitespace is evil; get rid of it unless we are in special
+   modes, namely calendar (and later mu4e)
     #+begin_src emacs-lisp
       (setq-default show-trailing-whitespace t)
+      (add-hook 'calendar-mode-hook
+                  #'(lambda () (setq-local show-trailing-whitespace nil)))
       (add-hook 'before-save-hook 'delete-trailing-whitespace)
     #+end_src
    Define what is whitespace during a search
@@ -537,7 +540,9 @@
           (setq calendar-week-start-day 1
                 calendar-location-name "Toronto, ON Canada"
                 calendar-latitude 43.7
-           calendar-longitude -79.4)
+                calendar-longitude -79.4
+                calendar-today-marker "·")
+     (add-hook 'today-visible-calendar-hook 'calendar-mark-today)
    #+end_src
 ** Use local proxy
    I need this to route bibretrieve requests through my local proxy,