summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
Diffstat (limited to 'init.el')
-rw-r--r--init.el22
1 files changed, 14 insertions, 8 deletions
diff --git a/init.el b/init.el index 206ba45..d67f8e7 100644 --- a/init.el +++ b/init.el
@@ -301,7 +301,8 @@
301 #'hl-line-mode 301 #'hl-line-mode
302 #'lin-mode 302 #'lin-mode
303 #'+dired-dim-git-ignores) 303 #'+dired-dim-git-ignores)
304 (:+key "C-x C-j" #'dired-jump) 304 (+with-ensure-after-init ; Necessary because jabber loads later
305 (:+key "C-x C-j" #'dired-jump))
305 (dolist (refresh-after-func '(dired-do-flagged-delete)) 306 (dolist (refresh-after-func '(dired-do-flagged-delete))
306 (advice-add refresh-after-func :after #'revert-buffer)) 307 (advice-add refresh-after-func :after #'revert-buffer))
307 (with-eval-after-load 'frowny 308 (with-eval-after-load 'frowny
@@ -369,7 +370,7 @@
369 ;; Bind keys 370 ;; Bind keys
370 (dolist (binding '(("C-d" . +eshell-quit-or-delete-char))) 371 (dolist (binding '(("C-d" . +eshell-quit-or-delete-char)))
371 (define-key eshell-mode-map 372 (define-key eshell-mode-map
372 (kbd (car binding)) (cdr binding))) 373 (kbd (car binding)) (cdr binding)))
373 ;; Environment variables 374 ;; Environment variables
374 (dolist (environment '(("PAGER" . "cat"))) 375 (dolist (environment '(("PAGER" . "cat")))
375 (setenv (car environment) (cdr environment))))) 376 (setenv (car environment) (cdr environment)))))
@@ -436,6 +437,8 @@
436 (add-to-list 'Info-additional-directory-list dir)) 437 (add-to-list 'Info-additional-directory-list dir))
437 (:with-mode Info-mode ; -_- 438 (:with-mode Info-mode ; -_-
438 (:hook #'reading-mode) 439 (:hook #'reading-mode)
440 (:local-set +modeline-buffer-position #'+Info-modeline-breadcrumbs
441 +modeline-position-function #'ignore)
439 (:bind "c" #'+Info-copy-current-node-name 442 (:bind "c" #'+Info-copy-current-node-name
440 "w" #'+Info-copy-current-node-name))) 443 "w" #'+Info-copy-current-node-name)))
441 444
@@ -1561,7 +1564,6 @@
1561 t))) 1564 t)))
1562 1565
1563(setup (:straight epithet) 1566(setup (:straight epithet)
1564 (add-hook 'epithet-suggesters #'epithet-for-eww-url)
1565 (dolist (hook '(Info-selection-hook 1567 (dolist (hook '(Info-selection-hook
1566 ;; eww-after-render-hook 1568 ;; eww-after-render-hook
1567 help-mode-hook 1569 help-mode-hook
@@ -1758,6 +1760,8 @@
1758(setup (:straight info+) 1760(setup (:straight info+)
1759 (:load-after info) 1761 (:load-after info)
1760 (:option Info-fontify-isolated-quote-flag nil 1762 (:option Info-fontify-isolated-quote-flag nil
1763 Info-breadcrumbs-in-mode-line-mode nil
1764 Info-fontify-emphasis-flag nil
1761 Info-fontify-quotations nil 1765 Info-fontify-quotations nil
1762 Info-saved-history-file (.etc "info-history")) 1766 Info-saved-history-file (.etc "info-history"))
1763 (add-hook 'Info-mode-hook #'Info-variable-pitch-text-mode)) 1767 (add-hook 'Info-mode-hook #'Info-variable-pitch-text-mode))
@@ -1844,6 +1848,7 @@
1844 (cond 1848 (cond
1845 ((string-match-p "hmm@" (buffer-name)) 1849 ((string-match-p "hmm@" (buffer-name))
1846 "🤔 "))) 1850 "🤔 ")))
1851 file-percentage-mode nil
1847 wrap-prefix (make-string +jabber-ws-prefix ?\ ))) 1852 wrap-prefix (make-string +jabber-ws-prefix ?\ )))
1848 (:+leader "C-j" jabber-global-keymap) 1853 (:+leader "C-j" jabber-global-keymap)
1849 (advice-add 'jabber-activity-add :after #'+jabber-tracking-add) 1854 (advice-add 'jabber-activity-add :after #'+jabber-tracking-add)
@@ -2172,7 +2177,7 @@
2172 (executable-find "g++"))) 2177 (executable-find "g++")))
2173 (setf (alist-get "\\.pdf\\'" auto-mode-alist nil nil #'equal) 2178 (setf (alist-get "\\.pdf\\'" auto-mode-alist nil nil #'equal)
2174 #'pdf-view-mode) 2179 #'pdf-view-mode)
2175 (pdf-tools-install t)) 2180 (pdf-tools-install :no-query))
2176 2181
2177(setup (:straight (plancat 2182(setup (:straight (plancat
2178 :host github 2183 :host github
@@ -2219,7 +2224,7 @@
2219 (readonly . "=") 2224 (readonly . "=")
2220 (modified . "+") 2225 (modified . "+")
2221 (t . "-")) 2226 (t . "-"))
2222 +modeline-minions-icon ";" 2227 +modeline-minions-icon "&"
2223 +modeline-buffer-name-max-length 0.35) 2228 +modeline-buffer-name-max-length 0.35)
2224 ;; Segments 2229 ;; Segments
2225 (:option simple-modeline-segments 2230 (:option simple-modeline-segments
@@ -2228,9 +2233,6 @@
2228 +modeline-modified 2233 +modeline-modified
2229 +modeline-buffer-name 2234 +modeline-buffer-name
2230 (lambda () (+modeline-vc " : ")) 2235 (lambda () (+modeline-vc " : "))
2231 ,(+modeline-concat
2232 '(+modeline-minions
2233 +modeline-major-mode))
2234 +modeline-anzu 2236 +modeline-anzu
2235 ) 2237 )
2236 ( ; right 2238 ( ; right
@@ -2249,6 +2251,10 @@
2249 ",") 2251 ",")
2250 +modeline-input-method 2252 +modeline-input-method
2251 +modeline-position 2253 +modeline-position
2254 ,(+modeline-concat
2255 '(+modeline-minions
2256 +modeline-major-mode))
2257 +modeline-file-percentage
2252 ))) 2258 )))
2253 (simple-modeline-mode +1)) 2259 (simple-modeline-mode +1))
2254 2260