commit 67383cb373b3deb2f7b54d6a97af2ad0ebdffe22
parent 61b62583c2b07a876efd4c58dce0604d899d269f
Author: andsy10 <andsy1016@gmail.com>
Date: Sun, 4 Oct 2026 08:54:39 +0800
Update keybindings and custom faces
Diffstat:
4 files changed, 50 insertions(+), 3 deletions(-)
diff --git a/lisp/init-kbd-func.el b/lisp/init-kbd-func.el
@@ -60,6 +60,15 @@ there's a region, all lines that region covers will be duplicated."
(progn (kill-new time) (message "Save `%s' to kill ring." time))
(message time))))
+(defun my-back-to-indentation ()
+ "Move point to the first non-whitespace character on this line."
+ (interactive "^")
+ (beginning-of-line 1)
+ (when (looking-at "^ ?[-+]+")
+ (goto-char (match-end 0)))
+ (skip-syntax-forward " " (line-end-position))
+ (backward-prefix-chars))
+
;; from Purcell's Emacs configuration
(defun my-headerise-elisp ()
"Add minimal header and footer to an elisp buffer in order to placate flycheck."
diff --git a/lisp/init-kbd.el b/lisp/init-kbd.el
@@ -93,7 +93,8 @@
;; diff
(general-def diff-mode-map
- "M-o" #'other-window)
+ "M-o" #'other-window
+ "M-m" #'my-back-to-indentation)
;; dired
(general-def (dired-mode-map dirvish-mode-map)
@@ -157,14 +158,21 @@
"p" #'shr-previous-link
"n" #'shr-next-link
"P" #'eww-previous-url
- "N" #'eww-next-url)
+ "N" #'eww-next-url
+ "C-c C-p" #'outline-previous-heading
+ "C-c C-n" #'outline-next-heading
+ "C-c C-u" #'outline-up-heading)
;; ghostel
(general-def (ghostel-mode-map
ghostel-semi-char-mode-map
ghostel-line-mode-map)
"M-]" nil
- "C-q" #'ghostel-send-next-key)
+ "C-q" #'ghostel-send-next-key
+ "C-c C-p" #'ghostel-previous-prompt
+ "C-c C-n" #'ghostel-next-prompt
+ "C-c M-p" #'ghostel-previous-hyperlink
+ "C-c M-n" #'ghostel-next-hyperlink)
(general-def ghostel-char-mode-map
"M-]" nil
"C-M-SPC" #'ghostel--send-event)
diff --git a/lisp/my-dark-theme.el b/lisp/my-dark-theme.el
@@ -41,6 +41,8 @@
`(mode-line-inactive ((,class (:foreground ,base01 :background ,base03))))
`(display-time-date-and-time ((,class (:foreground ,base1 :bold t))))
+ `(trailing-whitespace ((,class (:inherit whitespace-trailing))))
+
`(outline-1 ((,class (:foreground ,orange :height 1.0 :weight normal))))
`(outline-2 ((,class (:foreground ,blue :height 1.0 :weight normal))))
`(outline-3 ((,class (:foreground ,green :height 1.0 :weight normal))))
@@ -92,6 +94,14 @@
`(md-ts-heading-6 ((,class (:inherit outline-6))))
`(md-ts-code ((,class (:foreground ,base01))))
+ `(shr-h1 ((,class (:inherit outline-1))))
+ `(shr-h2 ((,class (:inherit outline-2))))
+ `(shr-h3 ((,class (:inherit outline-3))))
+ `(shr-h4 ((,class (:inherit outline-4))))
+ `(shr-h5 ((,class (:inherit outline-5))))
+ `(shr-h6 ((,class (:inherit outline-6))))
+ `(shr-code ((,class (:inherit font-lock-comment-face))))
+
`(dashboard-footer-face ((,class (:foreground ,blue))))
`(dashboard-text-banner ((,class (:foreground ,green))))
`(dashboard-heading ((,class (:foreground ,green :weight bold))))
@@ -124,6 +134,11 @@
`(geiser-font-lock-repl-output ((,class (:foreground ,green))))
`(geiser-font-lock-doc-link ((,class (:foreground ,blue :underline t))))
`(geiser-font-lock-error-link ((,class (:foreground ,orange :underline t))))
+ `(geiser-font-lock-xref-link ((,class (:inherit link))))
+ `(geiser-font-lock-repl-output-error ((,class (:foreground ,red :weight bold))))
+ `(geiser-font-lock-repl-output-warning ((,class (:foreground ,yellow :weight bold))))
+ `(geiser-font-lock-autodoc-identifier ((,class (:foreground ,blue))))
+ `(geiser-font-lock-autodoc-current-arg ((,class (:foreground ,yellow))))
`(sly-mrepl-output-face ((,class (:foreground ,magenta))))
diff --git a/lisp/my-light-theme.el b/lisp/my-light-theme.el
@@ -41,6 +41,8 @@
`(mode-line-inactive ((,class (:foreground ,base01 :background ,base03))))
`(display-time-date-and-time ((,class (:foreground ,base1 :bold t))))
+ `(trailing-whitespace ((,class (:inherit whitespace-trailing))))
+
`(outline-1 ((,class (:foreground ,orange :height 1.0 :weight normal))))
`(outline-2 ((,class (:foreground ,blue :height 1.0 :weight normal))))
`(outline-3 ((,class (:foreground ,green :height 1.0 :weight normal))))
@@ -92,6 +94,14 @@
`(md-ts-heading-6 ((,class (:inherit outline-6))))
`(md-ts-code ((,class (:foreground ,base01))))
+ `(shr-h1 ((,class (:inherit outline-1))))
+ `(shr-h2 ((,class (:inherit outline-2))))
+ `(shr-h3 ((,class (:inherit outline-3))))
+ `(shr-h4 ((,class (:inherit outline-4))))
+ `(shr-h5 ((,class (:inherit outline-5))))
+ `(shr-h6 ((,class (:inherit outline-6))))
+ `(shr-code ((,class (:inherit font-lock-comment-face))))
+
`(dashboard-footer-face ((,class (:foreground ,blue))))
`(dashboard-text-banner ((,class (:foreground ,green))))
`(dashboard-heading ((,class (:foreground ,green :weight bold))))
@@ -124,6 +134,11 @@
`(geiser-font-lock-repl-output ((,class (:foreground ,green))))
`(geiser-font-lock-doc-link ((,class (:foreground ,blue :underline t))))
`(geiser-font-lock-error-link ((,class (:foreground ,orange :underline t))))
+ `(geiser-font-lock-xref-link ((,class (:inherit link))))
+ `(geiser-font-lock-repl-output-error ((,class (:foreground ,red :weight bold))))
+ `(geiser-font-lock-repl-output-warning ((,class (:foreground ,yellow :weight bold))))
+ `(geiser-font-lock-autodoc-identifier ((,class (:foreground ,blue))))
+ `(geiser-font-lock-autodoc-current-arg ((,class (:foreground ,yellow))))
`(sly-mrepl-output-face ((,class (:foreground ,magenta))))
