3 files changed, 8 insertions, 9 deletions

@@ -224,7 +224,7 @@ Optional ARG causes the paragraph to \"unfill.\""
 
 ;; I need to place these bindings under `+key-mode-map' so that they aren't
 ;; shadowed by other maps.  There might be a better way to do this.
-(require +key)
+(require '+key)
 
 (dolist (binding '(("C-x C-c" . +save-buffers-quit)
                    ("M-SPC" . +cycle-spacing)
@@ -19,12 +19,12 @@
 
 (defun +modeline-buffer-name ()         ; gonsie
   "Display the buffer name."
-  (propertize
-   (+string-align (buffer-name) 20 :before " " :ellipsis "~ ")
-   'face 'bold
-   'help-echo (or (buffer-file-name)
-                  (buffer-name))
-   'mouse-face 'mode-line-highlight))
+  (concat " " (propertize
+               (+string-align (buffer-name) 20 :before "" :ellipsis "~ ")
+               'face 'bold
+               'help-echo (or (buffer-file-name)
+                              (buffer-name))
+               'mouse-face 'mode-line-highlight)))
 
 (defcustom +modeline-minions-icon "&"
   "The \"icon\" for `+modeline-minions' button."
@@ -54,7 +54,6 @@ ARGS."
       (when msg
         (message "%s" msg)))))
 
-
 (defun +sunrise-sunset (sunrise-command sunset-command)
   "Run SUNRISE-COMMAND at sunrise, and SUNSET-COMMAND at sunset."
   (let* ((times-regex (rx (* nonl)
@@ -74,7 +73,7 @@ ARGS."
          (sunset-time (match-string 2 ss)))
     (run-at-time sunrise-time (* 60 60 24) sunrise-command)
     (run-at-time sunset-time (* 60 60 24) sunset-command)
-    (run-at-time "12:00am" (* 60 60 24) sunset-command))))
+    (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
 (provide 'acdw)
 ;;; acdw.el ends here