fiddling with those two panes

1 files changed, 11 insertions, 1 deletions

diff --git a/init.el b/init.el
index bbd4e0c..53ab14c 100644
--- a/init.el
+++ b/init.el
@@ -653,7 +653,8 @@
   (setq appt-display-format nil
         calendar-latitude 55.9533
         calendar-longitude -3.1883
-        calendar-left-margin 4
+        calendar-left-margin 2
+        calendar-month-width 30
         calendar-location-name "Edinburgh, Scotland"
         calendar-mark-diary-entries-flag t
         calendar-week-start-day 1 ;; 0 sunday
@@ -698,6 +699,15 @@
   (defun jao-diary--select ()
     (switch-to-buffer diary-fancy-buffer))
 
+  (defun jao-calendar-hook ()
+    (toggle-truncate-lines 1)
+    ;; (setq left-fringe-width 1)
+    ;; (setq right-fringe-width 1)
+    (setq fringe-indicator-alist '((truncation nil nil) (continuation nil nil))))
+
+  (add-hook 'calendar-mode-hook #'jao-calendar-hook)
+  (add-hook 'calendar-initial-window-hook #'calendar-scroll-left)
+
   (add-hook 'diary-fancy-display-mode-hook #'jao-diary--select))
 
 ;;;; persistent scratch