summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--init.org52
1 files changed, 43 insertions, 9 deletions
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))))