diff options
| -rw-r--r-- | init.el | 11 | ||||
| -rw-r--r-- | lisp/+emacs.el | 2 | ||||
| -rw-r--r-- | lisp/+modeline.el | 12 | ||||
| -rw-r--r-- | lisp/acdw.el | 3 |
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 |