summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el11
-rw-r--r--lisp/+emacs.el2
-rw-r--r--lisp/+modeline.el12
-rw-r--r--lisp/acdw.el3
4 files changed, 13 insertions, 15 deletions
diff --git a/init.el b/init.el index 5e06539..b65cd61 100644 --- a/init.el +++ b/init.el
@@ -403,7 +403,8 @@
403 (:option (append topsy-mode-functions) 403 (:option (append topsy-mode-functions)
404 '(circe-channel-mode . +circe-current-topic))) 404 '(circe-channel-mode . +circe-current-topic)))
405 405
406 (add-hook 'modus-themes-after-load-theme-hook 'circe-nick-color-reset) 406 (with-eval-after-load 'circe-color-nicks
407 (add-hook 'modus-themes-after-load-theme-hook 'circe-nick-color-reset))
407 (add-hook 'kill-emacs-hook '+circe-quit-all@kill-emacs)) 408 (add-hook 'kill-emacs-hook '+circe-quit-all@kill-emacs))
408 409
409(setup (:straight consult) 410(setup (:straight consult)
@@ -828,14 +829,12 @@ See also `crux-reopen-as-root-mode'."
828 simple-modeline-segment-process 829 simple-modeline-segment-process
829 +modeline-text-scale 830 +modeline-text-scale
830 +modeline-minions 831 +modeline-minions
831 +modeline-major-mode))) 832 +modeline-major-mode
833 )))
832 (simple-modeline-mode +1)) 834 (simple-modeline-mode +1))
833 835
834(setup (:straight smartscan) 836(setup (:straight smartscan)
835 (smartscan-mode +1)) 837 (global-smartscan-mode +1))
836
837(setup (:straight smartscan)
838 (smartscan-mode +1))
839 838
840(setup (:straight ssh-config-mode) 839(setup (:straight ssh-config-mode)
841 (:file-match (rx "/.ssh/config" eos) 840 (:file-match (rx "/.ssh/config" eos)
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.\""
224 224
225;; I need to place these bindings under `+key-mode-map' so that they aren't 225;; I need to place these bindings under `+key-mode-map' so that they aren't
226;; shadowed by other maps. There might be a better way to do this. 226;; shadowed by other maps. There might be a better way to do this.
227(require +key) 227(require '+key)
228 228
229(dolist (binding '(("C-x C-c" . +save-buffers-quit) 229(dolist (binding '(("C-x C-c" . +save-buffers-quit)
230 ("M-SPC" . +cycle-spacing) 230 ("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 @@
19 19
20(defun +modeline-buffer-name () ; gonsie 20(defun +modeline-buffer-name () ; gonsie
21 "Display the buffer name." 21 "Display the buffer name."
22 (propertize 22 (concat " " (propertize
23 (+string-align (buffer-name) 20 :before " " :ellipsis "~ ") 23 (+string-align (buffer-name) 20 :before "" :ellipsis "~ ")
24 'face 'bold 24 'face 'bold
25 'help-echo (or (buffer-file-name) 25 'help-echo (or (buffer-file-name)
26 (buffer-name)) 26 (buffer-name))
27 'mouse-face 'mode-line-highlight)) 27 'mouse-face 'mode-line-highlight)))
28 28
29(defcustom +modeline-minions-icon "&" 29(defcustom +modeline-minions-icon "&"
30 "The \"icon\" for `+modeline-minions' button." 30 "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."
54 (when msg 54 (when msg
55 (message "%s" msg))))) 55 (message "%s" msg)))))
56 56
57
58(defun +sunrise-sunset (sunrise-command sunset-command) 57(defun +sunrise-sunset (sunrise-command sunset-command)
59 "Run SUNRISE-COMMAND at sunrise, and SUNSET-COMMAND at sunset." 58 "Run SUNRISE-COMMAND at sunrise, and SUNSET-COMMAND at sunset."
60 (let* ((times-regex (rx (* nonl) 59 (let* ((times-regex (rx (* nonl)
@@ -74,7 +73,7 @@ ARGS."
74 (sunset-time (match-string 2 ss))) 73 (sunset-time (match-string 2 ss)))
75 (run-at-time sunrise-time (* 60 60 24) sunrise-command) 74 (run-at-time sunrise-time (* 60 60 24) sunrise-command)
76 (run-at-time sunset-time (* 60 60 24) sunset-command) 75 (run-at-time sunset-time (* 60 60 24) sunset-command)
77 (run-at-time "12:00am" (* 60 60 24) sunset-command)))) 76 (run-at-time "12:00am" (* 60 60 24) sunset-command)))
78 77
79(provide 'acdw) 78(provide 'acdw)
80;;; acdw.el ends here 79;;; acdw.el ends here