Fixed link to blog

early-init.el

@@ -0,0 +1 @@
+(setq site-run-file nil)

init.el.org

@@ -1,8 +1,12 @@
 #+title: init.el.org
-#+date: [2025-03-18 Tue]
+#+date: [2025-10-31 Fri]
-#+lastmod: [2025-03-19 Wed 11:19]
+#+lastmod: [2025-11-01 Sat 00:03]
-#+draft: false
+#+hugo_auto_set_lastmod: t
-#+tags: emacs
+#+hugo_base_dir: ~/projects/blog.minded.net/
+#+export_file_name: init.el.org.md
+#+hugo_section: pages/emacs/
+#+hugo_draft: false
+#+hugo_tags: emacs
 
 * My Emacs configuration
 :PROPERTIES:
@@ -19,7 +23,7 @@ My Emacs repository: [[https://git.minded.net/anne/emacs][git.minded.net/anne/em
 
 The source version of this file: [[https://git.minded.net/anne/emacs/src/branch/main/init.el.org?display=source][git.minded.net/anne/emacs/src/branch/main/init.el.org]]
 
-Or view this file on my blog: [[https://blog.minded.net/emacs][blog.minded.net/emacs/init.el.org]]
+Or view this file on my blog: [[https://blog.minded.net/pages/emacs/init.el.org][blog.minded.net/pages/emacs/init.el.org]]
 
 ** About me
 
@@ -28,12 +32,6 @@ Or view this file on my blog: [[https://blog.minded.net/emacs][blog.minded.net/e
         user-mail-address "anne@minded.net")
 #+end_src
 
-** System
-
-#+begin_src elisp
-  (setq laptop-p (equal (system-name) "siskin"))
-#+end_src
-
 ** Use-package
 
 [[https://github.com/jwiegley/use-package]]
@@ -42,7 +40,6 @@ Or view this file on my blog: [[https://blog.minded.net/emacs][blog.minded.net/e
   (require 'package)
   (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
   (package-initialize)
-
   (unless (package-installed-p 'use-package)
     (package-refresh-contents)
     (package-install 'use-package))
@@ -72,6 +69,20 @@ You can choose to save customizations somewhere other than your initialization f
   (load custom-file 'noerror 'nomessage)
 #+end_src
 
+** TRAMP
+
+https://www.gnu.org/software/emacs/manual/html_node/tramp/Auto_002dsave-File-Lock-and-Backup.html
+
+#+begin_src elisp
+  (setq tramp-allow-unsafe-temporary-files t)
+#+end_src
+
+** zone-mode
+
+#+begin_src elisp
+  (add-to-list 'auto-mode-alist '("/etc/bind/zones/" . zone-mode))
+#+end_src
+
 ** Lock files
 
 [[https://www.gnu.org/software/emacs/manual/html_node/elisp/File-Locks.html]]
@@ -99,49 +110,27 @@ If create-lockfiles is nil, Emacs does not lock files.
   (setq global-auto-revert-non-file-buffers t)
 #+end_src
 
-** Looks
+** Disable startup screen
-
-*** Initial frame configuration
-
-[[https://www.gnu.org/software/emacs/manual/html_node/elisp/Initial-Parameters.html]]
-
-A bigger frame for the gui of Emacs.
-
-#+begin_src elisp
-  (add-to-list 'default-frame-alist '(height . 56))
-  (add-to-list 'default-frame-alist '(width . 132))
-#+end_src
-
-*** Frame font
-
-[[https://www.gnu.org/software/emacs/manual/html_node/elisp/Frame-Font.html]]
-
-#+begin_src elisp
-  (ignore-errors (set-frame-font "Roboto Mono-10"))
-#+end_src
-
-*** Disable startup screen
 
 [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Startup-Summary.html]]
 
-#+begin_src elisp
+#+begin_src elisp :tangle no
   (setq inhibit-startup-screen nil)
 #+end_src
 
-*** What to display
+** What to display
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Frames.html]]
 
 I do like the menu bar after all.
 
 #+begin_src elisp
-  (if laptop-p (scroll-bar-mode -1))
   (tool-bar-mode -1)
   ;;(menu-bar-mode -1)
   (tooltip-mode -1)
 #+end_src
 
-*** Mode line column and line numbers
+** Mode line column and line numbers
 
 [[https://www.gnu.org/software/emacs/manual/html_node/efaq/Displaying-the-current-line-or-column.html]]
 
@@ -149,7 +138,25 @@ I do like the menu bar after all.
   (column-number-mode t)
 #+end_src
 
-*** Mood-line
+** Theme
+
+#+begin_src elisp
+  (use-package ef-themes   
+    :ensure t
+    :demand t
+    :config
+    (ef-themes-select 'ef-dream))
+#+end_src
+
+#+begin_src elisp
+  (custom-set-faces
+   '(helm-buffer-directory ((t (:extend t :background "dim gray" :foreground "DarkRed"))))
+   '(helm-ff-directory ((t (:extend t :background "dim gray" :foreground "DarkRed"))))
+   '(org-agenda-date-today ((t (:inherit org-agenda-date :underline nil))))
+   '(menu ((t (:background "magenta")))))
+#+end_src
+
+** Mood-line
 
 [[https://gitlab.com/jessieh/mood-line]]
 
@@ -157,32 +164,20 @@ A lightweight, drop-in replacement for the default Emacs mode line configuration
 
 #+begin_src elisp
   (use-package mood-line
-    :config (mood-line-mode))
+    :config (mood-line-mode)
-  (setq mood-line-format mood-line-format-default)
+  ;;(setq mood-line-format mood-line-format-default)
+  (setq mood-line-format mood-line-format-default-extended)
+  (setq mood-line-glyph-alist mood-line-glyphs-unicode))
 #+end_src
 
-*** DISABLED Diminish
+** Suppress dialog boxes
-
-[[https://github.com/myrjola/diminish.el]]
-
-Diminish implements hiding or abbreviation of the mode line displays (lighters) of minor-modes.
-
-With Mood-line there's no need to diminish
-
-#+begin_src elisp :tangle no
-  (use-package diminish
-    :ensure t)
-#+end_src
-
-*** Suppress dialog boxes
-
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Dialog-Boxes.html]]
 
 #+begin_src elisp
   (setq use-dialog-box nil)
 #+end_src
 
-*** Sentences
+** Sentences
 
 [[https://www.gnu.org/software/emacs/manual/html_node/efaq/Filling-paragraphs-with-a-single-space.html]]
 
@@ -190,57 +185,7 @@ With Mood-line there's no need to diminish
   (setq sentence-end-double-space nil)
 #+end_src
 
-*** DISABLED Rainbow delimiters
+** Minibuffer
-
-[[https://github.com/Fanael/rainbow-delimiters]]
-
-#+begin_src elisp :tangle no
-  (use-package rainbow-delimiters
-    :init
-    (add-hook 'text-mode-hook #'rainbow-delimiters-mode)
-    (add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
-#+end_src
-
-*** Doom themes
-
-[[https://github.com/doomemacs/themes]]
-
-#+begin_src elisp
-  (use-package doom-themes
-    :ensure t
-    :config
-    (setq doom-themes-enable-bold t                  ; if nil, bold is universally disabled
-          doom-themes-enable-italic t                ; if nil, italics is universally disabled
-          doom-themes-padded-modeline t)
-    (load-theme 'doom-vibrant t)
-    ;;(setq doom-horizon-brighter-comments nil)
-    (setq doom-themes-treemacs-theme "doom-colors")  ; use "doom-colors" for less minimal icon theme
-    (doom-themes-treemacs-config)
-    (doom-themes-org-config)                         ; corrects (and improves) org-mode's native fontification
-    (custom-set-faces
-     '(font-lock-comment-face ((t (:foreground "#6c6f93" :slant normal))))
-     '(org-hide ((t (:foreground "grey15"))))
-     '(org-scheduled-today ((t (:foreground "violet"))))
-     '(org-todo ((t (:foreground "magenta"))))
-     '(org-done ((t (:foreground "#9ca0a4" :bold nil :background "grey15"))))
-     '(org-tag ((t (:foreground "teal"))))
-     '(org-link ((t (:bold nil))))))
-#+end_src
-
-*** DISABLED all-the-icons
-
-[[https://github.com/domtronn/all-the-icons.el]]
-
-#+begin_src elisp :tangle no
-  (use-package all-the-icons
-    :if (display-graphic-p))
-
-  (use-package all-the-icons-dired
-    :after all-the-icons
-    :hook (dired-mode . all-the-icons-dired-mode))
-#+end_src
-
-*** Minibuffer
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Minibuffer-Edit.html]]
 
@@ -249,7 +194,7 @@ With Mood-line there's no need to diminish
   (setq max-mini-window-height 0.5)
 #+end_src
 
-*** Word wrap
+** Word wrap
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Visual-Line-Mode.html]]
 
@@ -257,9 +202,7 @@ With Mood-line there's no need to diminish
   (add-hook 'text-mode-hook 'visual-line-mode)
 #+end_src
 
-** Editing and moving around
+** Mouse support
-
-*** Mouse support
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Mouse-Input.html]]
 
@@ -269,21 +212,7 @@ With Mood-line there's no need to diminish
   (context-menu-mode 1)
 #+end_src
 
-*** xclip
+** Kill-line
-
-[[https://elpa.gnu.org/packages/xclip.html]]
-
-This package allows Emacs to copy to and paste from the GUI clipboard
-when running in text terminal.
-
-#+begin_src elisp
-  (use-package xclip
-    :if laptop-p
-    :init
-    (xclip-mode 1))
-#+end_src
-
-*** Kill-line
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Killing-by-Lines.html]]
 
@@ -293,7 +222,7 @@ If non-nil, ~kill-line~ with no arg at start of line kills the whole line.
   (setq kill-whole-line t)
 #+end_src
 
-*** Indentation
+** Indentation
 
 [[https://www.gnu.org/software/emacs/manual/html_node/eintr/Indent-Tabs-Mode.html]]
 
@@ -301,7 +230,7 @@ If non-nil, ~kill-line~ with no arg at start of line kills the whole line.
   (setq-default indent-tabs-mode nil)
 #+end_src
 
-*** Electric pair mode
+** Electric pair mode
 
 [[https://emacsdocs.org/docs/emacs/Matching]]
 
@@ -309,7 +238,7 @@ If non-nil, ~kill-line~ with no arg at start of line kills the whole line.
   (electric-pair-mode 1)
 #+end_src
 
-*** Overwrite highlighted region
+** Overwrite highlighted region
 
 [[https://www.gnu.org/software/emacs/manual/html_node/efaq/Replacing-highlighted-text.html]]
 
@@ -317,7 +246,7 @@ If non-nil, ~kill-line~ with no arg at start of line kills the whole line.
   (delete-selection-mode t)
 #+end_src
 
-*** Scrolling
+** Scrolling
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Scrolling.html]]
 
@@ -325,7 +254,7 @@ If non-nil, ~kill-line~ with no arg at start of line kills the whole line.
   (setq scroll-error-top-bottom t)
 #+end_src
 
-*** Cursor
+** Cursor
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Cursor-Display.html]]
 
@@ -333,7 +262,7 @@ If non-nil, ~kill-line~ with no arg at start of line kills the whole line.
   (global-hl-line-mode t)
 #+end_src
 
-*** Window handling
+** Window handling
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Window-Convenience.html]]
 
@@ -366,11 +295,12 @@ A Collection of Ridiculously Useful eXtensions for Emacs. crux bundles many usef
     ("C-a" . crux-move-beginning-of-line)
     ("C-c o" . crux-open-with)
     ("C-k" . crux-kill-whole-line)
+    ("C-c f" . crux-cleanup-buffer-or-region)
+    ("C-x C-a" . crux-sudo-edit)
     :config
     (crux-with-region-or-buffer indent-region)
     (crux-with-region-or-buffer untabify)
-    (crux-with-region-or-line comment-or-uncomment-region)
+    (crux-with-region-or-line comment-or-uncomment-region))
-    :hook (before-save-hook . crux-cleanup-buffer-or-region))
 #+end_src
 
 ** Dired
@@ -396,9 +326,7 @@ Unset C-z which is bound to `suspend-frame' by default.
   (global-unset-key (kbd "C-z"))
 #+end_src
 
-** Saving files
+** Backups
-
-*** Backups
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Backup.html]]
 
@@ -413,7 +341,17 @@ Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
         kept-old-versions 5)    ; and how many of the old
 #+end_src
 
-*** Auto save
+** backup-walker
+
+https://github.com/lewang/backup-walker
+
+#+begin_src elisp
+  (use-package backup-walker
+    :bind
+    ("C-c b" . backup-walker-start))
+#+end_src
+
+** Auto save
 
 [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Save-Control.html]]
 
@@ -422,10 +360,10 @@ Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
         auto-save-interval 200) ; number of keystrokes between auto-saves (default: 300)
 #+end_src
 
-*** Lastmod time stamp
+** Lastmod time stamp
 
 #+begin_src elisp
-  (setq time-stamp-start "\\(^:last_modified: \\\\?[\[<]+\\|^#\\+lastmod: \\\\?[\[<]+\\|^;; lastmod: \\\\?[\[<]+\\)")
+  (setq time-stamp-start "\\(^:last_modified: \\\\?[\[<]+\\|^:LASTMOD:  \\\\?[\[<]+\\|^#\\+lastmod: \\\\?[\[<]+\\|^;; lastmod: \\\\?[\[<]+\\)")
   (setq time-stamp-end "\\\\?[\]>]")
   (setq time-stamp-format "%Y-%02m-%02d %3a %02H:%02M")
   (setq time-stamp-limit 12)
@@ -444,53 +382,6 @@ Automatically backup buffers/files into the ~.emacs.d/backup/ directory.
     :ensure t)
 #+end_src
 
-** Treemacs
-
-[[https://github.com/Alexander-Miller/treemacs]]
-
-A tree layout file explorer for Emacs.
-
-#+begin_src elisp
-  (use-package treemacs
-    :ensure t
-    :defer t
-    :init
-    (with-eval-after-load 'winum
-      (define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
-    :config
-    (setq treemacs-show-hidden-files nil)
-    :bind
-    (:map global-map
-          ("M-0"       . treemacs-select-window)
-          ("C-x t 1"   . treemacs-delete-other-windows)
-          ("C-x t t"   . treemacs)
-          ("<f8>"      . treemacs)
-          ("C-x t d"   . treemacs-select-directory)
-          ("C-x t B"   . treemacs-bookmark)
-          ("C-x t C-t" . treemacs-find-file)
-          ("C-x t M-t" . treemacs-find-tag)))
-
-  (use-package treemacs-icons-dired
-    :hook (dired-mode . treemacs-icons-dired-enable-once)
-    :ensure t)
-
-  (use-package nerd-icons
-    ;; :custom
-    ;; The Nerd Font you want to use in GUI
-    ;; "Symbols Nerd Font Mono" is the default and is recommended
-    ;; but you can use any other Nerd Font if you want
-    ;; (nerd-icons-font-family "Symbols Nerd Font Mono")
-    )
-
-  (use-package treemacs-nerd-icons
-    :config
-    (treemacs-load-theme "nerd-icons"))
-
-  (use-package treemacs-magit
-    :after (treemacs magit)
-    :ensure t)
-#+end_src
-
 ** Which-key
 
 [[https://github.com/justbur/emacs-which-key]]
@@ -506,213 +397,6 @@ which-key is a minor mode for Emacs that displays the key bindings following you
     (which-key-setup-side-window-bottom))
 #+end_src
 
-** Org Mode
-
-[[https://orgmode.org/org.html]]
-
-*** Org Mode on my laptop
-
-#+begin_src elisp
-  (use-package org
-    :if laptop-p
-    :bind
-    (("C-c l" . org-store-link)
-     ("C-c a" . org-agenda)
-     ("C-c c" . org-capture))
-    :config
-    (setq org-directory "~/org"
-          org-default-notes-file "~/org/agenda/inbox.org"
-          org-attach-id-dir "~/org/data/")
-    ;;(setq org-agenda-text-search-extra-files (directory-files-recursively "~/org/" "\\.org$"))
-    (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
-    (setq org-startup-indented nil
-          org-pretty-entities t
-          org-hide-emphasis-markers t
-          org-hide-leading-stars nil
-          org-startup-with-inline-images t
-          org-image-actual-width '(300)
-          org-tags-column 0
-          org-log-done 'time
-          org-log-into-drawer t
-          org-deadline-warning-days 7
-          org-refile-targets '((org-agenda-files :maxlevel . 5))
-          org-refile-use-outline-path 'file
-          org-outline-path-complete-in-steps nil
-          org-refile-allow-creating-parent-nodes 'confirm)
-    ;;(setq org-blank-before-new-entry (quote ((heading) (plain-list-item))))
-    (advice-add 'org-refile :after 'org-save-all-org-buffers)
-    (setq org-capture-templates
-          '(("t" "Task" entry (file "~/org/agenda/todo.org") "* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:" :empty-lines 1)
-            ("n" "Note" entry (file org-default-notes-file) "* %?\n:PROPERTIES:\n:CREATED: %U\n:END:" :empty-lines 1)
-            ("j" "Journal entry" entry (file+olp+datetree "~/org/journal.org") "* %?" :unnarrowed t :empty-lines-after 1)
-            ("J" "Journal entry on date" entry (file+olp+datetree "~/org/journal.org") "* %?" :time-prompt t :unnarrowed t :empty-lines-after 1)
-            ("m" "Meeting" entry (file+olp+datetree "~/org/agenda/agenda.org") "* %?\n%T" :time-prompt t :tree-type month :empty-lines 1)
-            ("a" "Agenda entry" entry (file+olp+datetree "~/org/agenda/agenda.org") "* %?\n%t" :time-prompt t :tree-type month :empty-lines 1)))
-    (setq org-todo-keywords
-          '((sequence "TODO(t)" "STARTED(s)" "WAITING" "SOMEDAY" "MAYBE" "|" "DONE(d)" "CANCELLED(c)")
-            (sequence "TOREAD(r)" "READING" "|" "READ")
-            (sequence "TOWATCH(w)" "WATCHING" "|" "WATCHED"))))
-#+end_src
-
-*** Org Mode on other systems
-
-#+begin_src elisp
-  (use-package org
-    :if (not laptop-p)
-    :bind
-    (("C-c l" . org-store-link)
-     ("C-c a" . org-agenda)
-     ("C-c c" . org-capture))
-    :config
-    (setq org-directory "~/org"
-          org-default-notes-file "~/org/inbox.org"
-          org-agenda-files '("~/org"))
-    (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
-    (setq org-startup-indented nil
-          org-pretty-entities t
-          org-hide-emphasis-markers t
-          org-hide-leading-stars nil
-          org-startup-with-inline-images t
-          org-image-actual-width '(300)
-          org-tags-column 0
-          org-log-done 'time
-          org-log-into-drawer t
-          org-deadline-warning-days 7
-          org-refile-targets '((org-agenda-files :maxlevel . 5))
-          org-refile-use-outline-path 'file
-          org-outline-path-complete-in-steps nil
-          org-refile-allow-creating-parent-nodes 'confirm)
-    (advice-add 'org-refile :after 'org-save-all-org-buffers)
-    (setq org-capture-templates
-          '(("t" "Task" entry (file org-default-notes-file) "* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:CONTEXT: %a\n:END:" :empty-lines 1)
-            ("n" "Note" entry (file org-default-notes-file) "* %?\n:PROPERTIES:\n:CREATED: %U\n:CONTEXT: %a\n:END:" :empty-lines 1))))
-#+end_src
-
-*** org-super-agenda
-
-[[https://github.com/alphapapa/org-super-agenda]]
-
-#+begin_src elisp
-  (use-package org-super-agenda
-    :if laptop-p
-    :after org-agenda
-    :init
-    (setq org-agenda-files '("~/org" "~/org/agenda" "~/org/notes"))
-    ;;(setq org-agenda-text-search-extra-files (directory-files-recursively "~/org/" "\\.org$"))
-    (setq calendar-week-start-day 1)
-    (calendar-set-date-style 'european)
-    (setq calendar-time-display-form
-          '(24-hours ":" minutes
-                     (if time-zone " (") time-zone (if time-zone ")")))
-    (setq org-agenda-format-date (lambda (date) (concat "\n" (org-agenda-format-date-aligned date))))
-    (setq org-agenda-start-day nil)
-    (setq org-agenda-span 'day)
-    (setq use-agenda-use-time-grid nil)
-    (setq org-agenda-start-on-weekday nil)
-    (setq org-agenda-include-diary nil)
-    (setq org-agenda-tags-column 0)
-    (setq org-agenda-skip-scheduled-if-done t)
-    (setq org-agenda-skip-deadline-if-done t)
-    (setq org-agenda-include-deadlines t)
-    (setq org-agenda-block-separator nil)
-    (setq org-agenda-compact-blocks t)
-    (setq org-agenda-start-with-log-mode nil)
-    (setq org-agenda-sticky t)
-    (setq org-agenda-dim-blocked-tasks nil)
-    (setq org-agenda-custom-commands
-          '(("d" "Daily agenda"
-             ((agenda "" ((org-super-agenda-groups
-                           '((:discard (:todo "CANCELLED"))
-                             (:discard (:file-path "someday"))
-                             (:name none
-                                    :file-path "days"
-                                    :file-path "people"
-                                    :tag "day")
-                             (:name "Scheduled"
-                                    :time-grid t)
-                             (:auto-tags t
-                                         :order 5)
-                             (:name "Today"
-                                    :and (:todo t :scheduled t)
-                                    :deadline t
-                                    :order 3)
-                             ))))))
-            ("t" "Todo"
-             ((agenda "" ((org-super-agenda-groups
-                           '(
-                             (:name none
-                                    :discard (:file-path "days")
-                                    :discard (:file-path "people")
-                                    :discard (:tag "day"))
-                             (:auto-tags t
-                                         :order 5)
-                             (:name "Today"
-                                    :and (:todo t :scheduled t :not (:todo "SOMEDAY"))
-                                    :deadline t
-                                    :order 3)
-                             (:discard (:anything t))
-                             ))))
-              (alltodo "" ((org-agenda-overriding-header "\nUnscheduled")
-                           (org-super-agenda-groups
-                            '(
-                              (:discard (:deadline t)
-                                        :discard (:scheduled t)
-                                        :discard (:todo "SOMEDAY")
-                                        :discard (:file-path "someday"))
-                              (:auto-tags t
-                                          :order 0)
-                              (:name "Tags: none"
-                                     :not (:scheduled t)
-                                     :and (:file-path "todo")
-                                     :order 9)
-                              (:discard (:anything t))
-                              ))))))
-            ("x" "Daily schedule"
-             ((agenda "" ((org-super-agenda-groups
-                           '(
-                             (:name none
-                                    :file-path "days"
-                                    :file-path "people"
-                                    :tag "day")
-                             (:name none
-                                    :time-grid nil)
-                             (:name none
-                                    :discard (:todo t))
-                             ))))))))
-    :config
-    (org-super-agenda-mode t))
-
-  (if laptop-p
-      (defun pop-to-org-agenda (&optional split)
-        (interactive "P")
-        (org-agenda nil "d")
-        (delete-other-windows)
-        (treemacs)
-        (windmove-right)))
-  (if laptop-p
-      (global-set-key (kbd "<f5>") 'pop-to-org-agenda))
-#+end_src
-
-*** Org-appear
-
-[[https://github.com/awth13/org-appear]]
-
-Make invisible parts of Org elements appear visible.
-
-#+begin_src elisp
-  (use-package org-appear
-    :load-path "~/.emacs.d/etc/elisp/org-appear"
-    :hook (org-mode . org-appear-mode)
-    :init
-    (setq org-appear-autolinks t))
-#+end_src
-
-Hide emphasis markers by default.
-
-#+begin_src elisp
-  (setq org-hide-emphasis-markers t)
-#+end_src
-
 ** Helm
 
 [[https://emacs-helm.github.io/helm/]]
@@ -741,14 +425,55 @@ Imagine a life without Helm...
            ("<tab>" . helm-execute-persistent-action)))
 #+end_src
 
-*** Helm-org
+** Org-appear
 
-[[https://github.com/emacs-helm/helm-org]]
+[[https://github.com/awth13/org-appear]]
+
+Make invisible parts of Org elements appear visible.
 
 #+begin_src elisp
-  (use-package helm-org
+  (use-package org-appear
-    :after helm
+    :load-path "~/.emacs.d/etc/elisp/org-appear"
-    :config
+    :hook (org-mode . org-appear-mode)
-    (add-to-list 'helm-completing-read-handlers-alist '(org-capture . helm-org-completing-read-tags))
+    :init
-    (add-to-list 'helm-completing-read-handlers-alist '(org-set-tags . helm-org-completing-read-tags)))
+    (setq org-appear-autolinks t))
+#+end_src
+
+Hide emphasis markers by default.
+
+#+begin_src elisp
+  (setq org-hide-emphasis-markers t)
+#+end_src
+
+** Org-roam
+
+https://github.com/org-roam/org-roam
+
+https://www.orgroam.com/
+
+#+begin_src elisp
+  (use-package org-roam
+    :ensure t
+    ;;:init
+    ;;(setq org-roam-v2-ack t)
+    :custom
+    (org-roam-directory "~/org/notes")
+    (org-roam-completion-everywhere t)
+    (org-roam-capture-templates
+     '(("d" "default" plain "%?"
+        :target (file+head "%<%Y%m%d>-${slug}.org"
+                           ":PROPERTIES:\n:CREATED: %U\n:LASTMOD:  []\n:END:\n#+title: ${title}\n\n\n")
+        :unnarrowed t)))
+    :config
+    (org-roam-db-autosync-mode)
+    (setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:42}" 'face 'org-tag)))
+    :bind (("C-c n l" . org-roam-buffer-toggle)
+           ("C-c n f" . org-roam-node-find)
+           ("C-c n i" . org-roam-node-insert)
+           ("C-c n c" . org-roam-capture)
+           ("C-c n d" . org-id-get-create)
+           ("C-c n t" . org-roam-tag-add)
+           ("C-c n u" . org-roam-tag-remove)
+           ("C-c n a" . org-roam-alias-add)
+           ("C-c n b" . org-roam-alias-remove)))
 #+end_src