summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el16
-rw-r--r--lisp/+modeline.el10
2 files changed, 14 insertions, 12 deletions
diff --git a/init.el b/init.el index ca888da..229f081 100644 --- a/init.el +++ b/init.el
@@ -574,7 +574,8 @@
574 (:require +tab-bar) 574 (:require +tab-bar)
575 (:option tab-bar-tab-name-function '+tab-bar-tab-name-truncated-left 575 (:option tab-bar-tab-name-function '+tab-bar-tab-name-truncated-left
576 tab-bar-tab-name-truncated-max 20 576 tab-bar-tab-name-truncated-max 20
577 tab-bar-tab-name-ellipsis truncate-string-ellipsis) 577 tab-bar-tab-name-ellipsis truncate-string-ellipsis
578 tab-bar-show t)
578 (tab-bar-mode +1) 579 (tab-bar-mode +1)
579 (+tab-bar-misc-info-mode +1)) 580 (+tab-bar-misc-info-mode +1))
580 581
@@ -970,9 +971,7 @@ See also `crux-reopen-as-root-mode'."
970 elfeed-search-title-max-width 78 971 elfeed-search-title-max-width 78
971 elfeed-search-remain-on-entry t 972 elfeed-search-remain-on-entry t
972 elfeed-show-unique-buffers t 973 elfeed-show-unique-buffers t
973 elfeed-db-directory (elfeed/ "db/" t) 974 elfeed-db-directory (elfeed/ "db/" t))
974 elfeed-log 'debug ; until I can figure out syncing...
975 )
976 (:+key "C-x w" #'elfeed) 975 (:+key "C-x w" #'elfeed)
977 (:with-mode elfeed-search-mode 976 (:with-mode elfeed-search-mode
978 (:bind "&" #'+elfeed-search-browse-generic) 977 (:bind "&" #'+elfeed-search-browse-generic)
@@ -983,7 +982,8 @@ See also `crux-reopen-as-root-mode'."
983 (:with-mode elfeed-show-mode 982 (:with-mode elfeed-show-mode
984 (:bind "SPC" #'+elfeed-scroll-up-command 983 (:bind "SPC" #'+elfeed-scroll-up-command
985 "S-SPC" #'+elfeed-scroll-down-command 984 "S-SPC" #'+elfeed-scroll-down-command
986 "&" #'+elfeed-show-browse-generic) 985 "&" #'+elfeed-show-browse-generic
986 "RET" #'shr-browse-url)
987 (:hook #'reading-mode) 987 (:hook #'reading-mode)
988 ;; (define-advice elfeed-show-entry (:after (&rest _)) 988 ;; (define-advice elfeed-show-entry (:after (&rest _))
989 ;; "Re-flow the entry a short time after showing it." 989 ;; "Re-flow the entry a short time after showing it."
@@ -1448,7 +1448,8 @@ See also `crux-reopen-as-root-mode'."
1448 (:also-load vertico-directory 1448 (:also-load vertico-directory
1449 vertico-mouse 1449 vertico-mouse
1450 vertico-unobtrusive 1450 vertico-unobtrusive
1451 vertico-multiform) 1451 vertico-multiform
1452 vertico-quick)
1452 (vertico-mouse-mode +1) 1453 (vertico-mouse-mode +1)
1453 (vertico-multiform-mode +1) 1454 (vertico-multiform-mode +1)
1454 (:option vertico-multiform-commands '((execute-extended-command flat) 1455 (:option vertico-multiform-commands '((execute-extended-command flat)
@@ -1482,7 +1483,8 @@ See also `crux-reopen-as-root-mode'."
1482 (:bind "RET" #'vertico-directory-enter 1483 (:bind "RET" #'vertico-directory-enter
1483 "DEL" #'vertico-directory-delete-char 1484 "DEL" #'vertico-directory-delete-char
1484 "M-DEL" #'vertico-directory-delete-word 1485 "M-DEL" #'vertico-directory-delete-word
1485 "TAB" #'+vertico-widen-or-complete)) 1486 "TAB" #'+vertico-widen-or-complete
1487 "M-j" #'vertico-quick-insert))
1486 (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy)) 1488 (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
1487 1489
1488(setup (:straight visual-fill-column) 1490(setup (:straight visual-fill-column)
diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 10bf6d2..3d7b6b7 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el
@@ -216,13 +216,13 @@ The order of elements matters: whichever one matches first is applied."
216 (:propertize (line-number-mode 216 (:propertize (line-number-mode
217 ((column-number-mode 217 ((column-number-mode
218 (column-number-indicator-zero-based 218 (column-number-indicator-zero-based
219 ,(concat before "%l" sep "%c" after) 219 ,(concat before "%3l" sep "%2c" after)
220 ,(concat before "%l" sep "%C" after)) 220 ,(concat before "%3l" sep "%2C" after))
221 ,(concat before "%l" sep "" after))) 221 ,(concat before "%3l" sep "" after)))
222 ((column-number-mode 222 ((column-number-mode
223 (column-number-indicator-zero-based 223 (column-number-indicator-zero-based
224 ,(concat before sep "%c" after) 224 ,(concat before sep "%2c" after)
225 ,(concat before sep "%C" after))))) 225 ,(concat before sep "%2C" after)))))
226 font-lock-face font-lock-comment-face)))) 226 font-lock-face font-lock-comment-face))))
227 227
228(defun +modeline-position (&optional _) 228(defun +modeline-position (&optional _)