From 7f5113e71f1d6038091850d4030e90b766903779 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 6 Jun 2022 20:59:26 +0100
Subject: outline minor mode for programming modes (bye-bye .org)

---
 init.org | 52 +++++++++++++++++++++++++++++++++++++++++++---------
 1 file changed, 43 insertions(+), 9 deletions(-)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 6535bf7..fcd69fb 100644
--- a/init.org
+++ b/init.org
@@ -59,6 +59,7 @@
     #+begin_src emacs-lisp
       (add-to-list 'load-path jao-site-dir)
       (add-to-list 'load-path jao-local-lisp-dir)
+      (add-to-list 'load-path (expand-file-name "custom" jao-emacs-dir))
       (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/")
 
       (let ((libd (expand-file-name "lib" jao-emacs-dir)))
@@ -367,6 +368,13 @@
                 (goto-char (point-min)))
               (display-buffer buf))))
       #+end_src
+*** Vertical separator
+    #+begin_src emacs-lisp
+      (unless (display-graphic-p)
+        (set-display-table-slot standard-display-table
+                                'vertical-border
+                                (make-glyph-code ?│)))
+    #+end_src
 *** Themes
     #+begin_src emacs-lisp
       (defun jao-colors-scheme-dark-p ()
@@ -471,7 +479,7 @@
       (defun jao-exwm-enabled-p () jao-exwm-enabled)
 
       (defun jao-exwm-enable ()
-        (jao-load-org "exwm.org")
+        (require 'jao-custom-exwm)
         (setq jao-exwm-enabled t)
         (display-time-mode -1)
         (exwm-enable)
@@ -488,7 +496,7 @@
       (defun jao-xmonad-enable ()
         (setq jao-browse-doc-use-emacs-p t)
         (setq jao-wallpaper-random-wake t)
-        (jao-set-transparency)
+        ;; (jao-set-transparency)
         (jao-trisect)
         (message "Welcome to xmonad"))
 
@@ -1091,7 +1099,7 @@
     #+end_src
 *** Completion
     #+begin_src emacs-lisp
-      (jao-load-org "completion")
+      (use-package jao-custom-completion)
     #+end_src
 * Buffers
 *** cursor and mark
@@ -1438,11 +1446,11 @@
     #+end_src
 *** Org mode
     #+begin_src emacs-lisp
-      (jao-load-org "org")
+      (use-package jao-custom-org)
     #+end_src
 *** Blog
     #+begin_src emacs-lisp
-      (jao-load-org "blog")
+      (use-package jao-custom-blog)
     #+end_src
 *** Text-ish mode settings
     #+begin_src emacs-lisp
@@ -1663,7 +1671,8 @@
               (and (boundp 'exwm-class-name)
                    (member (buffer-local-value 'exwm-class-name b)
                            '("vlc" "mpv"))))))
-      (jao-load-org "eww")
+
+      (use-package jao-custom-eww)
     #+end_src
 *** Browse URL
     #+begin_src emacs-lisp
@@ -1824,8 +1833,8 @@
 * Email
   #+begin_src emacs-lisp
     (setq jao-afio-mail-function 'notmuch)
-    ;; (setq jao-afio-mail-function 'gnus)
-    (jao-load-org "email")
+    (use-package jao-custom-email)
+    (use-package jao-custom-notmuch)
   #+end_src
 * PDFs and other docs
 *** doc-view
@@ -2502,9 +2511,34 @@
     #+begin_src emacs-lisp
       (setq c-type-finder-time-slot nil)
     #+end_src
+*** Outline minor mode
+    #+begin_src emacs-lisp
+      (setq outline-minor-mode-cycle t)
+
+      (defvar jao-outline-minor-mode-map
+        (let ((map (make-keymap)))
+          (define-key map (kbd "C-c C-n") #'outline-next-visible-heading)
+          (define-key map (kbd "C-c C-p") #'outline-previous-visible-heading)
+          (define-key map (kbd "C-c o") 'consult-outline)
+          map))
+
+      (define-minor-mode jao-outline-minor-mode
+        "Minor outline mode for programming languages"
+        :lighter ""
+        (if jao-outline-minor-mode
+            (progn (setq-local outline-level #'outline-level
+                               outline-regexp (format "[%s]\\{3,\\} "
+                                                      comment-start)
+                               outline-default-state 4)
+                   (outline-minor-mode 1))
+          (outline-minor-mode -1)))
+
+    #+end_src
 * Programming languages
 *** Elisp
     #+begin_src emacs-lisp
+      (add-hook 'emacs-lisp-mode-hook #'jao-outline-minor-mode)
+
       (use-package edit-list :ensure t)
       (use-package package-lint :ensure t)
 
@@ -2570,7 +2604,7 @@
                     (("C-c C-M" . emacs-lisp-macroexpand)
                      ("C-c C-m" . elisp-macroexpand-all)
                      ("C-c C-k" . elisp-bytecompile-and-load)
-                     ("C-c C-p" . pp-eval-last-sexp)
+                     ;; ("C-c C-p" . pp-eval-last-sexp)
                      ("M-." . elisp-find-definition)
                      ("M-," . pop-tag-mark)
                      ("C-c <" . lc-show-package-summary))))
-- 
cgit v1.2.3