Whitespace

global.org

@@ -583,9 +583,9 @@
         ("<M-f18>" . jump-to-mark)
         ("<S-f17>" . just-activate-mark)
         ("<S-f18>" . just-activate-mark)))
-     
-     ;; prevent the menu-bar from stealing my binding 
-     (advice-add 'menu-bar-enable-clipboard :override (lambda ())) 
+
+     ;; prevent the menu-bar from stealing my binding
+     (advice-add 'menu-bar-enable-clipboard :override (lambda ()))
    #+end_src
    See [[help:menu-bar-enable-clipboard][here]] for more information about the last line
 ** Global bindings
@@ -1607,13 +1607,16 @@
               ;;         (figlet-num day 3)
               ;;         (figlet-num day 4) (sunrise-sunset))
 
-              (let ((solar-info (solar-sunrise-sunset-string-list (calendar-current-date))))
-                (concat
-                 (left-right-align "" (format "%18s %9s %7s" (figlet-num year 0) (figlet-num month 0 2) (figlet-num day 0 2)))
-                 (left-right-align  (format "%s%s" dayname weekstring) (format "%18s %9s %8s" (figlet-num year 1) (figlet-num month 1 2) (figlet-num day 1 2)))
-                 (left-right-align (car solar-info)  (format "%18s·%9s·%8s" (figlet-num year 2) (figlet-num month 2 2) (figlet-num day 2 2)))
-                 (left-right-align (cadr solar-info) (format "%18s %9s %8s" (figlet-num year 3) (figlet-num month 3 2) (figlet-num day 3 2)))
-                 (left-right-align (caddr solar-info) (format "%18s %9s %8s" (figlet-num year 4) (figlet-num month 4 2) (figlet-num day 4 2)))
+              (let ((solar-info (solar-sunrise-sunset-string-list (calendar-current-date)))
+                    (spacer "  ")
+                    )
+                (concat "\n"
+                 (format " %4d·%02d " year month) "\n"
+                 (format "%9s" (figlet-num day 0 2)) spacer (format "%s%s" dayname weekstring) "\n"
+                 (format "%9s" (figlet-num day 1 2)) spacer (car solar-info) "\n"
+                 (format "%9s" (figlet-num day 2 2)) spacer (cadr solar-info) "\n"
+                 (format "%9s" (figlet-num day 3 2)) spacer (caddr solar-info) "\n"
+                 (format "%9s" (figlet-num day 4 2)) "\n"
                  )))))
         (require 'solar)
         (defun solar-sunrise-sunset-string-list (date &optional nolocation)