diff options
-rw-r--r-- | init.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/init.el b/init.el index 524fdce..4ca4c3c 100644 --- a/init.el +++ b/init.el | |||
@@ -860,7 +860,7 @@ | |||
860 | (with-eval-after-load 'tramp | 860 | (with-eval-after-load 'tramp |
861 | (el-patch-defun tramp-debug-buffer-command-completion-p (_symbol buffer) | 861 | (el-patch-defun tramp-debug-buffer-command-completion-p (_symbol buffer) |
862 | "A predicate for Tramp interactive commands. | 862 | "A predicate for Tramp interactive commands. |
863 | They are completed by \"M-x TAB\" only in Tramp debug buffers." | 863 | They are completed by \"M-x TAB\" only in Tramp debug buffers." |
864 | (with-current-buffer buffer | 864 | (with-current-buffer buffer |
865 | (el-patch-wrap 2 | 865 | (el-patch-wrap 2 |
866 | (save-restriction | 866 | (save-restriction |
@@ -1361,8 +1361,8 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers." | |||
1361 | (el-patch-defun crux-reopen-as-root () | 1361 | (el-patch-defun crux-reopen-as-root () |
1362 | "Find file as root if necessary. | 1362 | "Find file as root if necessary. |
1363 | 1363 | ||
1364 | Meant to be used as `find-file-hook'. | 1364 | Meant to be used as `find-file-hook'. |
1365 | See also `crux-reopen-as-root-mode'." | 1365 | See also `crux-reopen-as-root-mode'." |
1366 | (unless (or | 1366 | (unless (or |
1367 | ;; This helps fix for `nov-mode', and possibly others. | 1367 | ;; This helps fix for `nov-mode', and possibly others. |
1368 | (el-patch-add (null buffer-file-name)) | 1368 | (el-patch-add (null buffer-file-name)) |
@@ -1518,7 +1518,7 @@ See also `crux-reopen-as-root-mode'." | |||
1518 | :repo "alphapapa/ement.el") | 1518 | :repo "alphapapa/ement.el") |
1519 | ;; `plz' is a requirement, but isn't on an elpa. | 1519 | ;; `plz' is a requirement, but isn't on an elpa. |
1520 | (setup (:straight (plz :host github | 1520 | (setup (:straight (plz :host github |
1521 | :repo "alphapapa/plz.el")) | 1521 | :repo "alphapapa/plz.el")) |
1522 | t))) | 1522 | t))) |
1523 | 1523 | ||
1524 | (setup (:straight epithet) | 1524 | (setup (:straight epithet) |
@@ -1598,19 +1598,19 @@ See also `crux-reopen-as-root-mode'." | |||
1598 | (:require) | 1598 | (:require) |
1599 | (add-hook 'modus-themes-after-load-theme-hook | 1599 | (add-hook 'modus-themes-after-load-theme-hook |
1600 | (defun focus-update@after-modus-load () | 1600 | (defun focus-update@after-modus-load () |
1601 | (modus-themes-with-colors | 1601 | (modus-themes-with-colors |
1602 | (:face 'focus-unfocused `((t ( :foreground ,fg-inactive | 1602 | (:face 'focus-unfocused `((t ( :foreground ,fg-inactive |
1603 | :background ,bg-inactive | 1603 | :background ,bg-inactive |
1604 | :weight normal | 1604 | :weight normal |
1605 | :slant normal | 1605 | :slant normal |
1606 | :extend t))))))) | 1606 | :extend t))))))) |
1607 | ;; XXX: This doesn't work, because notmuch overlays shit on the buffer | 1607 | ;; XXX: This doesn't work, because notmuch overlays shit on the buffer |
1608 | (setf (alist-get 'notmuch-show-mode focus-mode-to-thing) | 1608 | (setf (alist-get 'notmuch-show-mode focus-mode-to-thing) |
1609 | 'notmuch-message) | 1609 | 'notmuch-message) |
1610 | (:hook-into notmuch-show-mode)) | 1610 | (:hook-into notmuch-show-mode)) |
1611 | 1611 | ||
1612 | (setup (:straight (forge | 1612 | (setup (:straight (forge |
1613 | :host github :repo "magit/forge") | 1613 | :host github :repo "magit/forge") |
1614 | (eq system-type 'gnu/linux)) | 1614 | (eq system-type 'gnu/linux)) |
1615 | (require 'forge) | 1615 | (require 'forge) |
1616 | (add-to-list 'forge-alist | 1616 | (add-to-list 'forge-alist |