diff options
| -rw-r--r-- | init.org | 52 |
1 files changed, 43 insertions, 9 deletions
@@ -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)))) |