diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 22 |
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 | ||