emacs : binding config file

.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"))
+     ("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 "⭸"))))
   :bind ("C-~" . hideshow-hydra/body)
   :hook (prog-mode . hs-minor-mode)
   :config

.config/emacs/lisp/init-general.el

@@ -11,6 +11,8 @@
 (global-set-key (kbd "C-=") 'text-scale-increase)
 (global-set-key (kbd "C--") 'text-scale-decrease)
 
+(global-set-key (kbd "C-<tab>") 'hs-toggle-hiding)
+
 ;; When you begin a keybind, whichkey will show you all keybinds you can follow the first one with in order to form a full keywords.
 (use-package which-key
   :defer t
@@ -60,16 +62,23 @@
   ;; Counsel
   "f" '(:ignore t :which-key "file op.")
   "f r" '(consult-recent-file :which-key "Recent files")
+  "f i" '((lambda () (interactive) (find-file "~/.config/emacs/init.el")) :which-key "open emacs init file")
+  "f l" '((lambda () (interactive) (find-file "~/.config/emacs/lisp")) :which-key "open emacs lisp dir")
   ;; Magit
   "g" '(:ignore t :which-key "magit")
   "g g" '(magit :which-key "magit")
   ;; Hydra
-  "h" '(:ignore t :which-key "hydra")
+  "h" '(:ignore t :which-key "hydra / hideshow")
-  "h t" '(hydra-text-scale/body :which-key "scale text")
+  "h h" '(:ignore t :which-key "hydra")
-  "h w" '(hydra-writeroom-scale/body :which-key "scale whiteroom")
+  "h t" '(hs-toggle-hiding :which-key "hideshow toggle hiding")
-  "h a" '(hydra-modify-alpha/body :which-key "modify alpha background")
+  "h a" '(hs-hide-all :which-key "hideshow hide all")
-  "h j" '(dumb-jump-hydra/body :which-key "dumb jump hydra")
+  "h s" '(hs-show-all :which-key "hideshow show all")
-  "h o" '(org-hydra/body :which-key "org 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 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")

.config/emacs/lisp/init-org.el

@@ -160,29 +160,14 @@ prepended to the element after the #+HEADER: tag."
 
   (use-package org-modern
     :hook ((org-mode . org-modern-mode)
-           (org-agenda-finalize . org-modern-agenda))
+            (org-agenda-finalize . org-modern-agenda))
-           (org-modern-mode . (lambda ()
+    :config
-                                "Adapt `org-modern-mode'."
+    (setq org-modern-table nil))
-                                ;; Disable Prettify Symbols mode
-                                (setq prettify-symbols-alist nil)
-                                (prettify-symbols-mode -1))))
-  (use-package org-superstar
-    :if (and (display-graphic-p) (char-displayable-p ?◉))
-    :hook (org-mode . org-superstar-mode)
-    :init
-    (setq org-superstar-headline-bullets-list '("◉""○""◈""◇""⁕")
-          org-superstar-item-bullet-alist ;; dont work with org-modern
-          '((?+ . ?➢)
-            (?* . ?✰)
-            (?- . ?➸))))
 
-  (use-package org-fancy-priorities
+  (use-package valign
-    :diminish
+    :hook (org-mode . valign-mode)
-    :hook (org-mode . org-fancy-priorities-mode)
+    :custom
-    :init (setq org-fancy-priorities-list
+    (valign-fancy-bar t))
-                (if (and (display-graphic-p) (char-displayable-p ?🅐))
-                    '("🅐" "🅑" "🅒" "🅓")
-                  '("HIGH" "MEDIUM" "LOW" "OPTIONAL"))))
 
   (setq org-confirm-babel-evaluate nil
         org-src-fontify-natively t