From 4e2d4f2b52432d5840170174ecb20d942e577e62 Mon Sep 17 00:00:00 2001 From: JaeYoo-Im Date: Fri, 19 Apr 2024 13:34:18 +0900 Subject: [PATCH] emacs : hideshow keybinding --- .config/emacs/lisp/init-edit.el | 13 +------------ .config/emacs/lisp/init-general.el | 17 +++++++++++------ 2 files changed, 12 insertions(+), 18 deletions(-) diff --git a/.config/emacs/lisp/init-edit.el b/.config/emacs/lisp/init-edit.el index 70d8cec..ee04853 100644 --- a/.config/emacs/lisp/init-edit.el +++ b/.config/emacs/lisp/init-edit.el @@ -55,18 +55,7 @@ ("c" hs-cycle "cycle block") ("s" hs-show-block "show block") ("h" hs-hide-block "hide block") - ("l" hs-hide-level "hide level")) - "Move" - (("C-a" mwim-beginning-of-code-or-line "⭰") - ("C-e" mwim-end-of-code-or-line "⭲") - ("C-b" backward-char "←") - ("C-n" next-line "↓") - ("C-p" previous-line "↑") - ("C-f" forward-char "→") - ("C-v" pager-page-down "↘") - ("M-v" pager-page-up "↖") - ("M-<" beginning-of-buffer "⭶") - ("M->" end-of-buffer "⭸")))) + ("l" hs-hide-level "hide level")))) :bind ("C-~" . hideshow-hydra/body) :hook (prog-mode . hs-minor-mode) :config diff --git a/.config/emacs/lisp/init-general.el b/.config/emacs/lisp/init-general.el index 40ba8b9..85bbd01 100644 --- a/.config/emacs/lisp/init-general.el +++ b/.config/emacs/lisp/init-general.el @@ -64,12 +64,17 @@ "g" '(:ignore t :which-key "magit") "g g" '(magit :which-key "magit") ;; Hydra - "h" '(:ignore t :which-key "hydra") - "h t" '(hydra-text-scale/body :which-key "scale text") - "h w" '(hydra-writeroom-scale/body :which-key "scale whiteroom") - "h a" '(hydra-modify-alpha/body :which-key "modify alpha background") - "h j" '(dumb-jump-hydra/body :which-key "dumb jump hydra") - "h o" '(org-hydra/body :which-key "org hydra") + "h" '(:ignore t :which-key "hydra / hideshow") + "h h" '(:ignore t :which-key "hydra") + "h t" '(hs-toggle-all :which-key "hideshow toggle hiding") + "h a" '(hs-hide-all :which-key "hideshow hide all") + "h s" '(hs-show-all :which-key "hideshow show all") + ;; "h t" '(hydra-text-scale/body :which-key "scale text") + ;; "h w" '(hydra-writeroom-scale/body :which-key "scale whiteroom") + ;; "h a" '(hydra-modify-alpha/body :which-key "modify alpha background") + "h h j" '(dumb-jump-hydra/body :which-key "dumb jump hydra") + "h h o" '(org-hydra/body :which-key "org hydra") + "h h h" '(hideshow-hydra/body :which-key "hideshow hydra") ;; Insert something "i" '(:ignore t :which-key "insert something.") "i s" '(yas-insert-snippet :which-key "snippet")