From d76af894cb0a53b08b2e35393f1cf85563344882 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 26 Dec 2021 13:05:05 -0600
Subject: Fix random issues

---
 lisp/+emacs.el    |  2 +-
 lisp/+modeline.el | 12 ++++++------
 lisp/acdw.el      |  3 +--
 3 files changed, 8 insertions(+), 9 deletions(-)

(limited to 'lisp')

diff --git a/lisp/+emacs.el b/lisp/+emacs.el
index ecf1ec5..fa94a10 100644
--- a/lisp/+emacs.el
+++ b/lisp/+emacs.el
@@ -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)
diff --git a/lisp/+modeline.el b/lisp/+modeline.el
index 47299ec..855ff50 100644
--- a/lisp/+modeline.el
+++ b/lisp/+modeline.el
@@ -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."
diff --git a/lisp/acdw.el b/lisp/acdw.el
index 0f78c79..95e1147 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -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
-- 
cgit 1.4.1-21-gabe81