unused stuff removed

2 files changed, 0 insertions, 1216 deletions

diff --git a/attic/misc.org b/attic/misc.org
deleted file mode 100644
index d3af11a..0000000
--- a/attic/misc.org
+++ /dev/null
@@ -1,1216 +0,0 @@
-#+title: Miscellaneous config bits that i don't use anymore
-
-* portability macros
-  #+begin_src emacs-lisp
-  (defmacro jao-syscase (clauses)
-    (let ((cls (assoc system-type clauses)))
-      (when cls `(progn ,@(cdr cls)))))
-
-  (defmacro jao-d-l (darw linux)
-    `(jao-syscase ((darwin ,darw) (gnu/linux ,linux))))
-
-  (defmacro jao-when-darwin (&rest body)
-    `(jao-syscase ((darwin ,@body))))
-
-  (defmacro jao-when-linux (&rest body)
-    `(jao-syscase ((gnu/linux ,@body))))
-  #+end_src
-* outlines
-    #+begin_src emacs-lisp
-
-      (use-package bicycle
-        :ensure t
-        :after outline
-        :bind (:map outline-minor-mode-map
-                    ("C-<tab>" . bicycle-cycle)
-                    ("S-<tab>" . bicycle-cycle-global))
-        :diminish ((hs-minor-mode . "")
-                   (outline-minor-mode . "")))
-
-    #+end_src
-* elixir
-*** packages
-    #+begin_src emacs-lisp
-      (use-package elixir-mode
-        :ensure t
-        :custom (lsp-clients-elixir-server-executable
-                 (expand-file-name "~/usr/share/elixir-ls/language_server.sh"))
-        ;; :bind (:map elixir-mode-map (("C-c C-z" . jao-vterm-repl-pop-to-repl)))
-        )
-
-      (use-package mix
-        :ensure t
-        :hook (elixir-mode . mix-minor-mode)
-        ;; :init (jao-vterm-repl-register "mix.exs" "iex -S mix" "^iex([0-9]+)> ")
-        :diminish ((mix-minor-mode . "")))
-
-      (use-package exunit :ensure t)
-    #+end_src
-*** hydra
-    #+begin_src emacs-lisp
-      (major-mode-hydra-define elixir-mode nil
-        ("Doc"
-         (("dd" lsp-describe-thing-at-point "Describe thing at point"))
-         "Xref"
-          (("xd" xref-find-definitions "Definitions")
-           ("xo" xref-find-definitions-other-window "-> other win")
-           ("xr" xref-find-references "References"))
-          "LSP"
-          (("lg" lsp-goto-implementation "Implementation")
-           ("lf" lsp-format-buffer "Format buffer")
-           ("ls" lsp-describe-session "Describe session"))
-          "LSP modes"
-          (("Tl" lsp-lens-mode "Lens mode" :toggle t)
-           ("Td" lsp-modeline-diagnostics-mode "Modeline diagnostics" :toggle t)
-           ("Tb" lsp-headerline-breadcrumb-mode "Header breadcrumb" :toggle t)
-           ("Ti" lsp-toggle-trace-io "Trace I/O" :toggle lsp-print-io))
-          "Mix"
-          (("me" mix-execute-task "Execute mix task")
-           ("mt" mix-test "Run tests")
-           ("mc" mix-compile "Compile")
-           ("mm" jao-elixir-pop-to-iex "Pop to iex"))
-          "Mix subproject"
-          (("Me" (lambda () (interactive) (mix-execute-task nil t))
-            "Execute task")
-           ("Mt" (lambda () (interactive) (mix-compile nil t)) "Compile")
-           ("Mt" (lambda () (interactive) (mix-test nil t)) "Run tests"))
-          "Tests"
-          (("tt" exunit-verify-single "Run single test")
-           ("tr" exunit-rerun "Re-run tests")
-           ("ta" exunit-verify "Run test suites")
-           ("tA" exunit-verify-all "Run all test suites"))))
-    #+end_src
-* mpdel
-  #+BEGIN_SRC emacs-lisp
-    (jao-load-path "libmpdel")
-    (jao-load-path "mpdel")
-    (jao-load-path "navigel")
-
-    (use-package navigel
-      :init (setq navigel-display-messages nil))
-
-    (defun jao-mpdel-dup-dir-p (dir)
-      (and (libmpdel-directory-p dir)
-           (string-match-p "\\[.+\\]\\b"
-                           (or (libmpdel--directory-path dir) ""))))
-
-    (defun jao-mpdel--filter (dirs)
-      (cl-remove-if 'jao-mpdel-dup-dir-p dirs))
-
-    (use-package libmpdel
-      :init (setq libmpdel-port 6669))
-
-    (use-package mpdel
-      :diminish
-      :init
-      (setq mpdel-browser-list-clean-up-function 'identity
-            mpdel-browser-top-level-entries
-            '(directories
-              empty-line
-              stored-playlists current-playlist
-              empty-line
-              "Spotify/Top Lists/Top artists/Personal"
-              "Spotify/Playlists/Featured"
-              empty-line
-              search-album search-artist search-title))
-
-      (defun jao-mpdel--show-osd (data song ml)
-        (let* ((no (1+ (string-to-number (or (cdr (assq 'song data)) "0"))))
-               (to (or (cdr (assq 'playlistlength data)) "0"))
-               (album (or (libmpdel-album-name song) ""))
-               (artist (or (libmpdel-artist-name song) ""))
-               (tms (split-string (or (cdr (assq 'time data)) "0/0") ":"))
-               (tm (format "%s/%s"
-                           (libmpdel-time-to-string (car tms))
-                           (libmpdel-time-to-string (cadr tms))))
-               (title (format "%s %s/%s. %s" tm no to
-                              (or (libmpdel-entity-name song) ""))))
-          (if ml
-              (message "%s %s - %s (%s)" tm title artist album)
-            (jao-notify (format "%s (%s)" artist album)
-                        title
-                        jao-notify-audio-icon))))
-
-      (defun jao-mpdel-show-osd (&optional ml)
-        (interactive "P")
-        (let ((song (libmpdel-current-song)))
-          (when song
-            (libmpdel-send-command "status"
-                                   `(lambda (data)
-                                      (jao-mpdel--show-osd data ,song ,ml))))))
-
-      (defun jao-mpdel-search (&optional type)
-        (interactive
-         (list (completing-read "Search by: " '("album" "artist" "title"))))
-        (let* ((func (cond ((string= type "album") 'mpdel-core-search-by-album)
-                           ((string= type "artist") 'mpdel-core-search-by-artist)
-                           ((string= type "title") 'mpdel-core-search-by-title)))
-               (thing (read-from-minibuffer (format "Search for %s: " type))))
-          (mpdel-core-open (libmpdel-search-criteria-create :type type :what thing)))))
-
-    (use-package mpdel-browser)
-    (defalias 'mpdel-pop-to-browser 'mpdel-browser-open)
-
-    (mpdel-mode)
-    (define-key mpdel-browser-mode-map (kbd "n") #'next-line)
-    (define-key mpdel-browser-mode-map (kbd "p") #'previous-line)
-  #+END_SRC
-* emms
-*** configuration
-    #+BEGIN_SRC emacs-lisp
-      (use-package emms
-        :pin gnu
-        :ensure t
-        :init
-        (setq emms-score-file "~/.emacs.d/score"
-              emms-stream-bookmarks-file "~/.emacs.d/streams"
-              emms-history-file "~/.emacs.d/cache/emms-history"
-              emms-cache-file "~/.emacs.d/cache/emms-cache"
-              emms-show-format "%s")
-
-        (setq emms-source-file-default-directory "~/var/lib/music/"
-              emms-player-list '(emms-player-mpd)
-              emms-player-mpd-server-name "localhost"
-              emms-player-mpd-server-port "6600"
-              emms-player-mpd-music-directory emms-source-file-default-directory)
-
-        (setq emms-volume-change-function 'emms-volume-mpd-change
-              emms-volume-change-amount 10
-              emms-info-ogginfo-coding-system 'utf-8)
-
-        ;; from http://www.shellarchive.co.uk/index.html#%20Prettify%20emms
-        (setq emms-browser-info-genre-format "%i· %n"
-              emms-browser-info-artist-format "%i· %n"
-              emms-browser-info-album-format "%i◨ %n"
-              emms-browser-info-title-format "%i♪ %n")
-
-        (setq emms-last-played-format-alist
-              '(((emms-last-played-seconds-today) . "Today at %H:%M")
-                (604800 . "%a at %H:%M")
-                ((emms-last-played-seconds-month) . "%d")
-                ((emms-last-played-seconds-year) . "%m-%d")
-                (t . "")))
-
-        :hook ((emms-player-started . emms-player-mpd-show))
-
-        :config
-        (eval-after-load "emms-info"
-          '(add-to-list 'emms-info-functions 'emms-info-mpd)))
-
-      (emms-all)
-      (emms-mode-line -1)
-      (emms-playing-time 1)
-      (emms-playing-time-disable-display)
-
-      (use-package jao-emms-random-album
-        :after emms
-        :commands (jao-emms-random-album-next)
-        :init (setq jao-emms-random-album-notify-icon jao-notify-audio-icon))
-
-      (use-package jao-emms-info-track
-        :after emms
-        :init (setq jao-emms-show-icon jao-notify-audio-icon)
-        :config (jao-emms-info-setup 50))
-
-      (use-package jao-emms-lyrics
-        :after emms
-        :init (setq jao-lyrics-info-function 'jao-emms-lyrics-track-data))
-
-      (defvar jao-emms-random-album-notify--pause-icon
-        "/usr/share/icons/Tango/scalable/actions/media-playback-pause.svg")
-
-      (defun jao-emms--show-status (s status)
-        (jao-notify (format "%s%s%s"
-                            (cadr s)
-                            (cdr (assoc (car s) status))
-                            (caddr s))
-                    "emms"
-                    (if (string= "pause" (cdr (assoc "state" status)))
-                        jao-emms-random-album-notify--pause-icon
-                      jao-notify-audio-icon)))
-
-      (defun jao-emms--osd-status (s &optional pref suff)
-        (emms-player-mpd-get-status (list s (or pref "") (or suff ""))
-                                    'jao-emms--show-status))
-
-    #+END_SRC
-*** helper functions
-    #+begin_src emacs-lisp
-      (defun jao-emms-volume-delta (d)
-        (funcall emms-volume-change-function d))
-
-      (defun jao-emms-show-volume ()
-        (jao-emms--osd-status "volume" "Volume " "%"))
-
-      (defalias 'jao-emms-update-cache 'emms-player-mpd-update-all-reset-cache)
-
-      (defun jao-emms-load-streams ()
-        (interactive)
-        (emms-play-playlist (expand-file-name "~/var/lib/music/streams.list")))
-
-      (defun jao-emms-search ()
-        (interactive)
-        (let ((by (completing-read "Search by: "
-                                   '("artist"
-                                     "composer"
-                                     "performer"
-                                     "title"
-                                     "album"
-                                     "names"))))
-          (if (string= "names" by)
-              (emms-browser-search-by-names)
-            (emms-browser-search (list (intern (concat "info-" by)))))))
-
-      (defun jao-emms-echo ()
-        (interactive)
-        (emms-show)
-        (jao-emms-update-echo-string)
-        (emms-show))
-    #+end_src
-*** Media global aliases
-    #+begin_src emacs-lisp
-      (defalias 'jao-player-connect 'emms-player-mpd-connect)
-      (defalias 'jao-player-toggle 'emms-pause)
-      (defalias 'jao-player-next 'emms-next)
-      (defalias 'jao-player-previous 'emms-previous)
-      (defalias 'jao-player-stop 'emms-stop)
-      (defalias 'jao-player-start 'emms-start)
-      (defalias 'jao-player-seek-forward 'emms-seek-forward)
-      (defalias 'jao-player-seek-backward 'emms-seek-backward)
-      (defalias 'jao-player-play 'emms-start)
-      (defalias 'jao-player-search 'jao-emms-search)
-      (defalias 'jao-player-vol-delta 'jao-emms-volume-delta)
-      (defalias 'jao-player-volume 'jao-emms-show-volume)
-      (defalias 'jao-player-osd 'jao-emms-show-osd)
-      (defalias 'jao-player-echo 'jao-emms-echo)
-      (defalias 'jao-player-list 'emms-playlist-mode-go)
-      (defalias 'jao-player-browse 'emms-browser)
-      (defalias 'jao-player-random-album 'jao-emms-random-album-next)
-    #+end_src
-
-* frm
-  #+begin_src emacs-lisp
-    (use-package jao-frm
-      :init (setq jao-frm-mail-command 'jao-open-gnus-frame))
-
-    (defun jao-frm--formatter (mbox n)
-      (apply #'format "%s/%s: %s" `(,@(last (split-string mbox "/") 2) ,n)))
-
-    (defun jao-frm--show ()
-      (interactive)
-      (jao-frm-show-mail-numbers #'jao-frm--formatter))
-
-    (global-set-key [(f12)] 'jao-frm--show)
-    (global-set-key [(f8)] 'jao-frm)
-
-  #+end_src
-* mu4e
-  #+begin_src emacs-lisp
-    (jao-load-path "mu4e")
-    (use-package mu4e
-      :init
-      (setq mu4e-attachment-dir (expand-file-name "~/var/download/attachments")
-            mu4e-change-filenames-when-moving nil
-            mu4e-completing-read-function 'completing-read
-            mu4e-display-update-status-in-modeline nil
-            mu4e-get-mail-command "run-mb.sh || [ $? -eq 1 ]"
-            mu4e-headers-show-threads t
-            mu4e-headers-sort-direction 'ascending
-            mu4e-headers-visible-columns 100
-            mu4e-headers-visible-lines 12
-            mu4e-hide-index-messages t
-            mu4e-index-cleanup t  ;; don't do a full cleanup check
-            mu4e-index-lazy-check t ;; don't consider up-to-date dirs
-            mu4e-maildir "~/var/mail/"
-            mu4e-split-view 'horizontal ;; 'vertical
-            mu4e-update-interval 300
-            mu4e-use-fancy-chars nil
-            mu4e-user-mail-address-list jao-mails
-            mu4e-view-show-addresses t
-            mu4e-view-show-images t
-            mu4e-maildir-shortcuts '((:maildir "/jao/inbox" :key ?j)
-                                     (:maildir "/bigml/inbox" :key ?b))
-            jao-mu4e-uninteresting-mail-query
-            (concat
-             "flag:unread AND NOT flag:trashed"
-             " AND NOT (maildir:/bigml/inbox OR maildir:/bigml/bugs OR"
-             " maildir:/bigml/support OR maildir:/jao/inbox)")
-            jao-mu4e-interesting-mail-query
-            (concat
-             "flag:unread AND NOT flag:trashed"
-             " AND (maildir:/bigml/inbox OR maildir:/bigml/bugs OR"
-             " maildir:/bigml/support OR maildir:/jao/inbox)")
-            mu4e-bookmarks
-            `((:name "Inbox" :query ,jao-mu4e-interesting-mail-query :key ?i)
-              (:name "Other messages"
-                     :query ,jao-mu4e-uninteresting-mail-query
-                     :key 117)
-              (:name "Today's messages" :query "date:today..now"
-                     :key 116)
-              (:name "Last 7 days" :query "date:7d..now" :hide-unread t
-                     :key 119)
-              (:name "Messages with PDFs"
-                     :query "mime:application/pdf OR mime:x-application/pdf"
-                     :key 112)))
-
-      :config
-      (defun jao-mu4e--maildir (msg)
-        (when msg
-          (let ((md (mu4e-message-field msg :maildir)))
-            (when (string-match "/\\([^/]+\\)/.*" md)
-              (match-string 1 md)))))
-
-      (defun jao-mu4e--refile-folder (msg)
-        (let ((md (jao-mu4e--maildir msg)))
-          (if (string= md "trove")
-              "/trove/jao"
-            (format "/trove/%" md))))
-
-      (setq mu4e-sent-folder #'jao-mu4e--refile-folder)
-      (setq mu4e-drafts-folder "/trove/drafts")
-      (setq mu4e-trash-folder "/trash")
-      (setq mu4e-refile-folder 'jao-mu4e--refile-folder)
-
-      (setq mu4e-contexts nil)
-
-      (setq mu4e-view-show-images t)
-      (when (fboundp 'imagemagick-register-types)
-        (imagemagick-register-types))
-
-      (define-key mu4e-view-mode-map [remap mu4e-view-verify-msg-popup]
-        'epa-mail-verify)
-
-      ;; View html message in browser (type aV)
-      (add-to-list 'mu4e-view-actions
-                   '("ViewInBrowser" . mu4e-action-view-in-browser) t))
-
-    #+end_src
-* company
-  #+begin_src emacs-lisp
-    (use-package company
-      :ensure t
-      :custom ((company-backends '(company-capf
-                                   company-bbdb
-                                   company-files
-                                   company-dabbrev
-                                   company-keywords))
-               (company-global-modes '(not slack-message-buffer-mode
-                                           circe-channel-mode
-                                           telega-chat-mode))
-               (company-format-margin-function nil) ;; #'company-text-icons-margin
-               (company-idle-delay 0.2)
-               (company-lighter "")
-               (company-lighter-base "")
-               (company-show-numbers nil)
-               (company-selection-wrap-around t)
-               (company-tooltip-limit 15)
-               (company-tooltip-align-annotations t)
-               (company-tooltip-offset-display 'lines)) ;; 'scrollbar
-
-      :config
-      (defun jao-complete-at-point ()
-        "Complete using company unless we're in the minibuffer."
-        (interactive)
-        (if (or (not company-mode) (window-minibuffer-p))
-            (completion-at-point)
-          (company-manual-begin)))
-
-      (defun jao-company-use-in-tab ()
-        (global-set-key [remap completion-at-point] #'jao-complete-at-point)
-        (global-set-key [remap completion-symbol] #'jao-complete-at-point)
-        (global-set-key (kbd "M-TAB") #'jao-complete-at-point))
-
-      (jao-company-use-in-tab)
-
-      :bind (:map company-active-map
-
-             ("<tab>" . #'company-complete-common-or-cycle)
-             ("TAB" . #'company-complete-common-or-cycle)
-
-             ("C-h" . #'company-show-doc-buffer)
-             ("M-." . #'company-show-location)
-
-             :filter (or (not (derived-mode-p 'eshell-mode))
-                         (company-explicit-action-p))
-             ("<return>" . #'company-complete-selection)
-             ("RET" . #'company-complete-selection))
-      :diminish)
-
-    (global-company-mode 1)
-  #+end_src
-* notmuch-addr
-  #+begin_src emacs-lisp
-    (when (jao-load-path "notmuch-addr")
-      (with-eval-after-load 'notmuch-address
-        (jao-corfu-no-auto notmuch-message)
-        (defun jao-notmuch-message-corfu-setup ()
-          (setq-local corfu-quit-no-match nil
-                      corfu-commit-predicate t
-                      orderless-component-separator " +"))
-        (add-hook 'notmuch-message-mode-hook #'jao-notmuch-message-corfu-setup)
-        (require 'notmuch-addr)
-        (notmuch-addr-setup)))
-  #+end_src
-* rcirc
-    #+begin_src emacs-lisp :load no
-      (use-package rcirc
-        :init
-        (setq rcirc-server-alist `(("irc.libera.chat"
-                                  :encryption tls
-                                  :port 6697
-                                  :channels ,jao-irc-channels))
-              rcirc-default-user-full-name "http://jao.io/"
-              rcirc-buffer-maximum-lines 1000
-              rcirc-fill-column 82
-              rcirc-fill-prefix "         "
-              rcirc-time-format "%H:%M "
-              rcirc-kill-channel-buffers t
-              rcirc-response-formats
-              '(("PRIVMSG" . "(%N) %m")
-                ("NOTICE" . "-%N- %m")
-                ("ACTION" . "(... %N %m)")
-                ("COMMAND" . "%m")
-                ("ERROR" . "%fw!!! %m")
-                (t . "%fp*** %fs%n %r %m"))
-              rcirc-prompt ": "
-              rcirc-nick-completion-format "%s, "
-              rcirc-reconnect-delay 120
-              rcirc-omit-responses
-              '("JOIN" "PART" "QUIT" "NICK" "AWAY" "MODE" "KEEPALIVE"))
-        :config
-        (let ((fn (jao--get-user/password "libera"))
-              (btl (jao--get-user/password "bitlbee")))
-          (setq rcirc-authinfo
-                `(("libera" nickserv ,(nth 0 fn) ,(nth 1 fn))
-                  ("localhost" bitlbee ,(nth 0 btl) ,(nth 1 btl)))))
-        (jao-shorten-modes 'rcirc-mode)
-
-        (define-minor-mode ncm-mode "" nil
-          (:eval (format " [%S]"
-                         (length (rcirc-channel-nicks (rcirc-buffer-process)
-                                                      rcirc-target)))))
-
-        (defun jao-rcirc-track ()
-          (dolist (b rcirc-activity) (tracking-add-buffer b))
-          (jao-minibuffer-refresh))
-
-        (add-hook 'rcirc-update-activity-string-hook #'jao-rcirc-track)
-        (add-hook 'rcirc-mode-hook #'ncm-mode)
-        (add-hook 'rcirc-mode-hook #'rcirc-omit-mode)
-
-      :diminish ((rcirc-omit-mode . "")))
-    #+end_src
-* nth window
-  #+begin_src emacs-lisp
-    (defun jao--nth-window (n)
-      (let ((jao-minibuffer-mode nil)
-            (ignore-window-parameters t))
-        (select-window (frame-first-window))
-        (other-window n))
-      (jao-minibuffer-refresh))
-
-    (defalias 'jao-other-window 'other-window)
-
-    ;; (global-set-key (kbd "M-o") #'jao-other-window)
-
-    (global-set-key (kbd "C-c 0") #'jao-first-window)
-    (dolist (n '(0 1 2 3 4 5 6 7 8))
-      (global-set-key (format "\C-c%s" (1+ n))
-                      (lambda () (interactive) (jao--nth-window n))))
-
-  #+end_src
-* transpose
-  #+begin_src emacs-lisp
-    (defun jao-transpose-windows (arg)
-      "Transpose the buffers shown in two windows."
-      (interactive "p")
-      (let ((selector (if (>= arg 0) 'next-window 'previous-window)))
-        (while (/= arg 0)
-          (let ((this-win (window-buffer))
-                (next-win (window-buffer (funcall selector))))
-            (set-window-buffer (selected-window) next-win)
-            (set-window-buffer (funcall selector) this-win)
-            (select-window (funcall selector)))
-          (setq arg (if (> arg 0) (1- arg) (1+ arg))))))
-
-    (defun jao-transpose-windows-prev ()
-      (interactive)
-      (jao-transpose-windows -1))
-
-    (define-key ctl-x-4-map (kbd "t") #'jao-transpose-windows)
-    (global-set-key (kbd "M-O") #'jao-transpose-windows)
-    (global-set-key (kbd "M-P") #'jao-transpose-windows-prev)
-  #+end_src
-* ace-window
-  #+begin_src emacs-lisp
-    (defun jao-ace-switch-buffer-other-window ()
-      (interactive)
-      (aw-select "Other window"
-                 (if (eq jao-completion-engine 'consult)
-                     (lambda (w)
-                       (aw-switch-to-window w)
-                       (call-interactively 'consult-buffer))
-                   #'aw-switch-buffer-in-window)))
-
-    (defun jao-ace-find-file-other-window ()
-      (interactive)
-      (aw-select "Other window"
-                 (lambda (w)
-                   (let ((df default-directory))
-                     (aw-switch-to-window w)
-                     (let ((default-directory df))
-                       (call-interactively 'find-file))))))
-
-    (global-set-key (kbd "C-x 4 f") #'jao-ace-find-file-other-window)
-    (global-set-key (kbd "C-x 4 b") #'jao-ace-switch-buffer-other-window)
-  #+end_src
-
-* switch window
-  An alternative for this one is ace-window, but it has the problem
-  of not displaying its overlay over org buffers (sometimes) and
-  introducing a dependency (avy).
-  #+begin_src emacs-lisp
-    (use-package switch-window
-      :ensure t
-      :custom ((switch-window-minibuffer-shortcut ?z)
-               (switch-window-background t)
-               (switch-window-shortcut-style 'qwerty)
-               (switch-window-shortcut-appearance 'text)
-               (switch-window-timeout 7)
-               (switch-window-threshold 2))
-      :init (defalias 'jao-other-window 'switch-window)
-      :config
-      (defun jao-switch-window--then (prompt cmd)
-        (let ((f `(lambda ()
-                    (let ((default-directory ,default-directory))
-                      (call-interactively ',cmd)))))
-          (switch-window--then prompt f f)))
-
-      (defun jao-switch-window-then-dired ()
-        (interactive)
-        (jao-switch-window--then "Find directory" 'dired))
-
-      (defun jao-switch-window-then-find-file ()
-        (interactive)
-        (jao-switch-window--then "Find file" 'find-file))
-
-      (defun jao-switch-window-then-consult-buffer ()
-        (interactive)
-        (jao-switch-window--then "Switch to buffer" 'consult-buffer))
-
-      :bind (("M-o" . switch-window)
-             ("M-O" . switch-window-then-swap-buffer)
-             ("s-o" . switch-window)
-             ("s-O" . switch-window-then-swap-buffer)
-             ("C-x 4 d" . jao-switch-window-then-dired)
-             ("C-x 4 f" . jao-switch-window-then-find-file)
-             ("C-x 4 b" . jao-switch-window-then-consult-buffer)))
-
-  #+end_src
-* vterm
-*** vterm-toggle
-    #+begin_src emacs-lisp :tangle no
-      (use-package vterm-toggle
-        :ensure t
-        :config
-        (defun jao-vterm--toggle (cd)
-          (interactive "P")
-          (if cd (vterm-toggle-cd) (vterm-toggle)))
-        :bind (("C-<f3>" . jao-vterm--toggle)))
-    #+end_src
-*** Vterm repls
-      #+begin_src emacs-lisp
-        (use-package jao-vterm-repl)
-        (jao-define-attached-buffer "^\\* vrepl - .+ \\*.*")
-      #+end_src
-* eshell here
-  #+begin_src emacs-lisp
-    (use-package eshell-toggle
-      :ensure t
-      :demand t
-      :custom ((eshell-toggle-use-git-root t)))
-
-    (defun jao-eshell-toggle (current)
-      (interactive "P")
-      (when (eq eshell-toggle--toggle-buffer-p t)
-        (eshell-save-some-history)
-        (eshell-autojump-save))
-      (let ((eshell-toggle-use-git-root (not current)))
-        (eshell-toggle)))
-
-    (global-set-key (kbd "<f1>") #'jao-eshell-toggle)
-   #+end_src
-* scrolling
-  #+begin_src emacs-lisp
-    (use-package iscroll
-      :ensure t
-      :diminish)
-    (with-eval-after-load "gnus-art"
-      (add-hook 'gnus-article-mode-hook #'iscroll-mode))
-    (with-eval-after-load "eww"
-      (add-hook 'eww-mode-hook #'iscroll-mode))
-    (with-eval-after-load "notmuch-show"
-      (add-hook 'notmuch-show-mode #'iscroll-mode))
-  #+end_src
-* ednc
-  #+begin_src emacs-lisp
-    (use-package ednc
-      :ensure t
-      :diminish)
-
-    (use-package jao-ednc
-      :after ednc
-      :commands (jao-ednc-setup)
-      :config
-      (jao-ednc-ignore-app "Spotify")
-      (jao-ednc-ignore-app "NetworkManager")
-      (defhydra jao-hydra-ednc (:color blue)
-        "Notifications"
-        ("s" jao-ednc-show "show last")
-        ("d" jao-ednc-dismiss "dismiss last")
-        ("D" jao-ednc-dismiss-all "dismiss all")
-        ("i" jao-ednc-invoke-last-action "invoke last action")
-        ("n" jao-ednc-pop "show all")))
-  #+end_src
-* erc
-*** Package
-    #+begin_src emacs-lisp
-      (use-package erc
-        :init
-        (setq erc-modules
-              '(autojoin
-                button
-                dcc
-                fill
-                irccontrols
-                match
-                move-to-prompt
-                netsplit
-                networks
-                noncommands
-                notify
-                pcomplete
-                ring
-                services
-                stamp
-                track
-                truncate))
-
-        (setq erc-auto-query 'bury
-              erc-autojoin-channels-alist `(("libera.chat" ,@jao-libera-channels))
-              erc-away-nickname "jao"
-              erc-button-buttonize-nicks t
-              erc-common-server-suffixes '(("libera.chat$" . "lb"))
-              erc-current-nick-highlight-type 'nick-or-keyword
-              erc-email-userid (car jao-mails)
-              erc-fill-column 84
-              erc-fill-prefix "     "
-              erc-format-nick-function 'erc-format-@nick
-              erc-header-line-face-method t
-              erc-header-line-format nil ;; "%l %o"
-              erc-header-line-uses-tabbar-p nil
-              erc-hide-list '("JOIN" "PART" "QUIT")
-              erc-hide-timestamps nil
-              erc-input-line-position -1
-              erc-insert-timestamp-function 'erc-insert-timestamp-right
-              erc-join-buffer 'bury
-              erc-kill-buffer-on-part t
-              erc-kill-queries-on-quit t
-              erc-log-channels-directory nil
-              erc-mode-line-away-status-format "(a)"
-              erc-mode-line-format "%t"
-              erc-nick "jao"
-              erc-notice-highlight-type 'all
-              erc-notice-prefix "- "
-              erc-notify-signoff-hook 'erc-notify-signoff
-              erc-notify-signon-hook 'erc-notify-signon
-              erc-pcomplete-nick-postfix ","
-              erc-rename-buffers t
-              erc-server-send-ping-timeout 60
-              erc-prompt ":"
-              erc-prompt-for-nickserv-password nil
-              erc-use-auth-source-for-nickserv-password t
-              erc-prompt-for-password nil
-              erc-public-away-p t
-              erc-server "irc.libera.chat"
-              erc-server-coding-system '(utf-8 . undecided)
-              erc-server-reconnect-attempts 10
-              erc-server-reconnect-timeout 10
-              erc-timestamp-format "%H:%M"
-              erc-timestamp-only-if-changed-flag t
-              erc-timestamp-right-column 84
-              erc-user-full-name "https://jao.io"
-              erc-user-mode "+i"
-              erc-whowas-on-nosuchnick t)
-
-        :config
-
-        (define-minor-mode ncm-erc-mode "" nil
-          (:eval (format " [%s]" (hash-table-count erc-channel-users))))
-
-        (add-hook 'erc-mode-hook (lambda () (ncm-erc-mode 1)))
-        (add-hook 'erc-mode-hook (lambda () (auto-fill-mode -1))))
-      #+end_src
-*** No angles
-      #+begin_src emacs-lisp
-        (defun jao-erc--no-angles (old-func &rest args)
-          (let ((msg (apply old-func args)))
-            (replace-regexp-in-string "^<\\([^>]+\\)>" "(\\1)" msg)))
-
-        (with-eval-after-load "erc"
-          (modify-syntax-entry ?\( "." erc-mode-syntax-table)
-          (modify-syntax-entry ?\) "." erc-mode-syntax-table)
-          (advice-add 'erc-format-privmessage :around #'jao-erc--no-angles)
-          (advice-add 'erc-format-my-nick :around #'jao-erc--no-angles))
-      #+end_src
-*** Tracking
-      #+begin_src emacs-lisp
-        (defun jao-erc-track-shorten (names)
-          (let ((names (erc-track-shorten-names names)))
-            (mapcar (lambda (n) (string-remove-prefix "#" n)) names)))
-
-        (setq erc-track-exclude-server-buffer t
-              erc-track-exclude-types '("NICK" "JOIN" "PART" "QUIT" "MODE" "KICK")
-              erc-track-remove-disconnected-buffers t
-              erc-track-shorten-aggressively t ;; 'max
-              erc-track-shorten-function #'jao-erc-track-shorten
-              erc-track-switch-direction 'importance
-              erc-track-visibility nil ;; t all, nil only selected frame
-              erc-track-position-in-mode-line nil
-              erc-track-enable-keybindings nil ;; 'ask
-              erc-track-faces-priority-list '(erc-error-face
-                                              erc-current-nick-face
-                                              erc-pal-face
-                                              erc-direct-msg-face
-                                              erc-nick-msg-face
-                                              erc-default-face
-                                              erc-action-face
-                                              erc-notice-face))
-        (defun jao-track-erc-buffers ()
-          (dolist (e erc-modified-channels-alist)
-            (tracking-add-buffer (car e) (list (cddr e)))))
-
-        (with-eval-after-load "erc-track"
-          (require 'tracking nil t)
-          (add-hook 'exwm-workspace-switch-hook #'erc-modified-channels-update)
-          (add-hook 'erc-track-list-changed-hook #'jao-track-erc-buffers))
-
-        (jao-shorten-modes 'erc-mode)
-        (jao-tracking-faces 'erc-error-face
-                            'erc-pal-face
-                            'erc-current-nick-face
-                            'erc-direct-msg-face)
-      #+end_src
-*** Commands (/recover &co.)
-      #+begin_src emacs-lisp
-        (defun erc-cmd-RECOVER (&rest ignore)
-          "Recover nick"
-          (let ((fn (jao--get-user/password "freenode")))
-            (erc-cmd-MSG (format "nickserv IDENTIFY %s %s" (car fn) (cadr fn)))
-            (erc-cmd-MSG (format "nickserv GHOST %s" (car fn)))
-            (erc-cmd-MSG (format "nickserv RELEASE %s" (car fn)))
-            (erc-cmd-NICK (car fn))))
-      #+end_src
-*** Startup
-      #+begin_src emacs-lisp
-      (defun jao-erc (&optional yes)
-        (interactive "P")
-        ;; (when (or yes (y-or-n-p "Connect to bitlbee using ERC? "))
-        ;;   (erc-select :server "localhost"))
-        (when (or yes (y-or-n-p "Connect to libera using ERC? "))
-          (erc-select :server "irc.libera.chat")))
-      #+end_src
-* git helpers
-  #+begin_src emacs-lisp
-
-    (use-package github-review
-      :ensure t
-      :config
-      (defun jao-gnus-github-review ()
-        (interactive)
-        (gnus-summary-select-article-buffer)
-        (goto-char (point-min))
-        (when (re-search-forward "https://github\.com/.*/pull/.*" nil t)
-          (let ((url (match-string-no-properties 0)))
-            (when (yes-or-no-p (format "Start review for %s" url))
-              (github-review-start url)))))
-      (eval-after-load "gnus-art"
-        '(progn
-           (define-key gnus-summary-mode-map "\C-cG" 'jao-gnus-github-review)
-           (define-key gnus-article-mode-map "\C-cG" 'jao-gnus-github-review)))
-
-      (jao-transient-major-mode github-review
-        ["Review"
-         ("a" "Approve" github-review-approve)
-         ("r" "Reject" github-review-reject)
-         ("c" "Comment" github-review-reject)]
-        ["Quit"
-         ("Q" "Bury buffer" bury-buffer)
-         ("k" "Kill buffer" kill-buffer)]))
-
-  #+end_src
-* cape
-  #+begin_src emacs-lisp
-    (use-package cape
-      :ensure t
-      ;; Bind dedicated completion commands
-      :bind (("C-c p p" . completion-at-point) ;; capf
-             ("C-c p t" . complete-tag)        ;; etags
-             ("C-c p d" . cape-dabbrev)        ;; or dabbrev-completion
-             ("M-/" . cape-dabbrev)
-             ("C-c p f" . cape-file)
-             ("C-c p k" . cape-keyword)
-             ("C-c p s" . cape-symbol)
-             ("C-c p a" . cape-abbrev)
-             ("C-c p i" . cape-ispell)
-             ("C-c p l" . cape-line)
-             ("C-c p w" . cape-dict))
-      :init
-      ;; Add `completion-at-point-functions', used by `completion-at-point'.
-      (add-to-list 'completion-at-point-functions #'cape-file)
-      ;; (add-to-list 'completion-at-point-functions #'cape-dabbrev)
-      ;; (add-to-list 'completion-at-point-functions #'cape-keyword)
-      ;;(add-to-list 'completion-at-point-functions #'cape-abbrev)
-      ;;(add-to-list 'completion-at-point-functions #'cape-ispell)
-      ;;(add-to-list 'completion-at-point-functions #'cape-dict)
-      ;;(add-to-list 'completion-at-point-functions #'cape-symbol)
-      ;;(add-to-list 'completion-at-point-functions #'cape-line)
-      )
-  #+end_src
-* vertico
-  #+begin_src emacs-lisp
-    (use-package vertico-repeat
-      :after vertico
-      :config (add-hook 'minibuffer-setup-hook #'vertico-repeat-save)
-      :bind (("M-R" . vertico-repeat)))
-
-    (use-package vertico-buffer
-      :after vertico
-      :init
-      (setq vertico-buffer-display-action
-            '(display-buffer-at-bottom (window-height . ,(+ 3 vertico-count))))
-      (vertico-buffer-mode -1))
-
-    (use-package vertico
-      :ensure t
-      :init
-      (setq vertico-count 10
-            vertico-cycle t
-            vertico-resize t
-            org-refile-use-outline-path t
-            resize-mini-windows t)
-
-      :config
-
-      (defun jao-vertico--display-candidates (lines)
-        (move-overlay vertico--candidates-ov (point-min) (point-min))
-        (overlay-put vertico--candidates-ov 'after-string (apply #'concat lines))
-        (vertico--resize-window (length lines)))
-
-      (advice-add 'vertico--display-candidates
-                  :override #'jao-vertico--display-candidates))
-
-    (use-package vertico-directory
-      :after vertico
-      :bind (:map vertico-map (("RET" . vertico-directory-enter)
-                               ("M-<backspace>" . vertico-directory-delete-word)
-                               ("<backspace>" . vertico-directory-delete-char))))
-
-    ;; (vertico-mode)
-
-  #+end_src
-* orderless
-  #+begin_src emacs-lisp
-    (defun orderless--strict-*-initialism (component &optional anchored)
-      (orderless--separated-by
-       '(seq (zero-or-more alpha) word-end (zero-or-more (not alpha)))
-       (cl-loop for char across component collect `(seq word-start ,char))
-       (when anchored '(seq (group buffer-start) (zero-or-more (not alpha))))
-       (when (eq anchored 'both)
-         '(seq (zero-or-more alpha) word-end (zero-or-more (not alpha)) eol))))
-
-    (defun orderless-strict-initialism (component)
-      (orderless--strict-*-initialism component))
-
-    (defun orderless-strict-leading-initialism (component)
-      (orderless--strict-*-initialism component 'start))
-
-    (defun orderless-strict-full-initialism (component)
-      (orderless--strict-*-initialism component 'both))
-
-          (defun jao-orderless--dispatch (pattern index _total)
-        (cond ((and (zerop index) (string-prefix-p "-" pattern))
-               `(orderless-strict-full-initialism . ,(substring pattern 1)))
-              ((string-suffix-p "%" pattern)
-               `(orderless-regexp . ,(substring pattern 0 -1)))
-              ((string-equal "!" pattern)
-               '(orderless-literal . ""))
-              ((string-prefix-p "!" pattern)
-               `(orderless-without-literal . ,(substring pattern 1)))))
-    (setq orderless-style-dispatchers '(jao-orderless--dispatch))
-
-  #+end_src
-* embark
-*** prompt format
-    #+begin_src emacs-lisp
-      (defvar jao-embark--brx
-        "^\\(\\([^ ] \\)+\\|RET\\|TAB\\|SPC\\)\\( *\\)\\([^ ]+ +\\)\\(.*\\)$")
-
-      (defun jao-embark--cmp (x y)
-        (let* ((lxk (get-text-property 0 'kbd x))
-               (lyk (get-text-property 0 'kbd y)))
-          (if (= lxk lyk) (string< x y) (< lxk lyk))))
-
-      (defun jao-embark--cmd-doc (cmd)
-        (propertize (car (split-string (or (embark--function-doc cmd) "") "\n"))
-                    'face 'embark-verbose-indicator-documentation))
-
-      (defun jao--max-len (strs)
-        (seq-reduce (lambda (m x) (max m (length x))) strs 0))
-
-      (cl-defun jao-embark--other (&key shadowed-targets &allow-other-keys)
-        (propertize (format "%s" (or shadowed-targets ""))
-                    'face 'embark-verbose-indicator-shadowed))
-
-      (cl-defun jao-embark--bindings (&key bindings &allow-other-keys)
-        (let* ((cmds (mapcar #'caddr bindings))
-               (docs (mapcar #'jao-embark--cmd-doc cmds))
-               (keys (mapcar (lambda (b)
-                               (propertize (car (last b))
-                                           'face 'embark-keybinding))
-                             bindings))
-               (cmds (mapcar (lambda (b)
-                               (propertize (cadr b) 'face 'embark-command))
-                             bindings))
-               (fmt (format "%%-%ds   %%-%ds     %%s\n"
-                            (jao--max-len cmds) (jao--max-len keys)))
-               (res (seq-mapn (lambda (c k d)
-                                (let ((n (if (string-prefix-p "embark-" c)
-                                             10
-                                           (length k))))
-                                  (propertize (format fmt c k d) 'kbd n)))
-                              cmds keys docs)))
-          (apply #'concat (seq-sort #'jao-embark--cmp res))))
-
-      (setq embark-verbose-indicator-buffer-sections
-            '(jao-embark--bindings "\n" target "  " jao-embark--other))
-    #+end_src
-* window config persistence
-  #+begin_src emacs-lisp
-    (use-package bookmark-view
-      :ensure t
-      :bind (("C-c v" . bookmark-view)
-             ("C-c B" . bookmark-set)))
-
-  #+end_src
-* notmuch
-  #+begin_src emacs-lisp
-    (defun jao-notmuch--show-hidden-html ()
-      (when (save-excursion
-              (goto-char (point-min))
-              (re-search-forward "^\\[ text/html (hidden) \\]" nil t))
-        (jao-notmuch--toggle-mime)))
-
-    (defun jao-notmuch-show-prefer-html ()
-      (add-hook 'notmuch-show-hook #'jao-notmuch--show-hidden-html))
-
-  #+end_src
-* link-hint for w3m
-  #+begin_src emacs-lisp
-    (defun jao-link-hint--notmuch-next-url (&optional bound)
-      (link-hint--next-property 'w3m-href-anchor bound))
-
-    (defun jao-link-hint--notmuch-url-at-point ()
-      (get-text-property (point) 'w3m-href-anchor))
-
-    (link-hint-define-type 'notmuch-w3m-url
-      :next #'jao-link-hint--notmuch-next-url
-      :at-point-p #'jao-link-hint--notmuch-url-at-point
-      :vars '(notmuch-show-mode)
-      :open #'browse-url
-      :open-multiple t
-      :copy #'kill-new)
-
-    (push 'link-hint-notmuch-w3m-url link-hint-types)
-
-  #+end_src
-* spotify
-  Access to spotify uses packages tangled from [[./lib/media/espotify.org][espotify.org]], which
-  offers functionality tailored to the completion engines at hand:
-  #+begin_src emacs-lisp
-    (jao-load-path "espotify")
-
-    (use-package espotify
-      :demand t
-      :init (setq espotify-service-name "mopidy"))
-    (use-package consult-spotify :demand t)
-    (defalias 'jao-streaming-album #'consult-spotify-album)
-    (defalias 'jao-streaming-track #'consult-spotify-track)
-    (defalias 'jao-streaming-artist #'consult-spotify-artist)
-    (defalias 'jao-streaming-playlist #'consult-spotify-playlist)
-
-    (jao-def-exec-in-term "ncmpcpp" "ncmpcpp" (jao-afio--goto-scratch))
-
-    (use-package jao-spt
-      :demand t
-      :config
-      (defun jao-spt-setup-aliases ()
-        (setq espotify-play-uri-function #'jao-spt-play-uri)
-        (defalias 'jao-streaming-list #'jao-term-spt)
-        (defalias 'jao-streaming-lyrics #'jao-spt-show-lyrics)
-        (defalias 'jao-streaming-toggle #'jao-spt-toggle)
-        (defalias 'jao-streaming-next #'jao-spt-next)
-        (defalias 'jao-streaming-prev #'jao-spt-previous)
-        (defalias 'jao-streaming-current #'jao-spt-echo-current)
-        (defalias 'jao-streaming-seek #'jao-spt-seek)
-        (defalias 'jao-streaming-seek-back #'jao-spt-seek-back)
-        (defalias 'jao-streaming-volume #'jao-spt-vol)
-        (defalias 'jao-streaming-volume-down #'jao-spt-vol-down)
-        (defalias 'jao-streaming-like #'jao-spt-like)
-        (defalias 'jao-streaming-dislike #'jao-spt-dislike)))
-
-    (defvar jao-spt-on nil)
-    (defun jao-spt-on-p () jao-spt-on)
-    ;; (jao-spt-setup-aliases)
-
-    (jao-def-exec-in-term "spt" "spt" (jao-afio--goto-scratch-1))
-
-    (defun jao-streaming-toggle-player ()
-      (interactive)
-      (if jao-spt-on
-          (let ((player (completing-read "Player: "
-                                         '( "chromium" "mopidy" "firefox"
-                                            "spotify")
-                                         nil nil nil nil jao-mpris-player)))
-            (setq jao-mpris-player player)
-            (jao-mpris-setup-aliases))
-        (jao-spt-setup-aliases))
-      (message "%s activated "
-               (if (setq jao-spt-on (not jao-spt-on)) "spt" "mpris")))
-
-    (transient-define-prefix jao-transient-streaming ()
-      [:description
-       (lambda () (format "Streaming using %s"
-                          (if jao-spt-on "spt" "MPRIS")
-                          (if jao-spt-on "" jao-mpris-player)))
-       ["Search"
-        ("a" "album" jao-streaming-album)
-        ("A" "artist" jao-streaming-artist)
-        ("t" "track" jao-streaming-track)
-        ("P" "playlist" jao-streaming-playlist)]
-       ["Play"
-        ("s" "toggle" jao-streaming-toggle)
-        ("n" "next" jao-streaming-next)
-        ("p" "previous" jao-streaming-prev)]
-       ["Seek & shout"
-        ("f" "seek fwd" jao-streaming-seek :transient t)
-        ("F" "seek bwd" jao-streaming-seek-back :transient t)
-        ("u" "up" jao-streaming-volume :transient t)
-        ("d" "down" jao-streaming-volume-down :transient t)]
-       ["Browse"
-        ("l" "playing list" jao-streaming-list)
-        ("L" "lyrics" jao-streaming-lyrics)
-        ("w" "currently playing" jao-streaming-current)
-        ("T" "toggle player" jao-streaming-toggle-player)]
-       ["Act"
-        ("k" "like" jao-streaming-like)
-        ("K" "dislike" jao-streaming-dislike)
-        ("S" "toggle shuffling" jao-spt-toggle-shuffle :if jao-spt-on-p)]])
-  #+end_src
-* gnus
-*** gnus maildirs
-      #+begin_src emacs-lisp
-        (defvar jao-gnus-use-maildirs nil)
-
-        (when jao-gnus-use-maildirs
-          (defun jao-gnus--maildir (dir)
-            (let ((root (concat "/tmp/mboxes/" dir "/"))
-                  (config (concat "~/.notmuch-config-" dir)))
-              (add-to-list
-               'gnus-secondary-select-methods
-               `(nnmaildir ,dir (directory ,root)
-                           (gnus-search-engine gnus-search-notmuch
-                                               (remove-prefix ,root)
-                                               (config-file ,config))))))
-          (jao-gnus--maildir "jao")
-          (jao-gnus--maildir "feeds")
-          (jao-gnus--maildir "bigml"))
-
-      #+end_src
-*** gnus spam
-    #+begin_src emacs-lisp :tangle no
-      (setq jao-gnus-ham-groups ".*\\(bigml\\|jao\\|feeds\\)\\..*"
-            gnus-spam-process-destinations `((,jao-gnus-ham-groups "nnml:spam"))
-            gnus-spam-newsgroup-contents
-            `((".*spam.*" gnus-group-spam-classification-spam)
-              (,jao-gnus-ham-groups gnus-group-spam-classification-ham))
-            gnus-ham-process-destinations
-            '((".*\\(jao\\|feeds\\)\\..*" "jao.inbox")
-              (".*bigml\\..*" "bigml.inbox"))
-            gnus-spam-process-newsgroups
-            `((,jao-gnus-ham-groups ((spam spam-use-bogofilter)
-                                     (ham spam-use-bogofilter)
-                                     (spam spam-use-spamassassin)
-                                     (ham spam-use-spamassassin)
-                                     (spam spam-use-blacklist)))
-              ("nnml:spam" ((ham spam-use-blacklist)
-                            (spam spam-use-bogofilter)
-                            (ham spam-use-bogofilter))))
-            spam-use-blacklist t
-            spam-use-BBDB nil
-            spam-use-bogofilter t
-            spam-use-spamassassin nil
-            spam-spamassassin-program "spamc"
-            spam-split-group "spam")
-
-      ;; (spam-initialize)
-    #+end_src
-* snippets
-  #+begin_src emacs-lisp
-    (defun jao-minibuffer--text-with-padding (text)
-      "Return TEXT with padding on the left."
-      (let* ((len (+ (string-pixel-width text)
-                     (string-pixel-width jao-minibuffer-right-margin)
-                     10))
-             (padding (propertize
-                       "-" 'display
-                       `(space :align-to (- (+ right right-margin) (,len))))))
-        (concat padding text jao-minibuffer-right-margin)))
-  #+end_src
-
-  #+begin_src emacs-lisp
-    ;; this is an ugly hack: when jao-minibuffer is active,
-    ;; somehow docview scrolling is not triggering a refresh,
-    ;; specially for scroll down movements, so we advice the
-    ;; scrolling functions to force a redisplay by going to
-    ;; another window.
-    (defun jao--refresh (&rest _rest)
-      (let ((jao-minibuffer-mode nil))
-        (other-window 1) (other-window -1)))
-
-    (dolist (f '(image-forward-hscroll
-                 image-backward-hscroll
-                 image-scroll-down
-                 image-scroll-up
-                 image-eol
-                 image-bol))
-          (advice-add f :after #'jao--refresh))
-
-    ;; (dolist (f '(doc-view-scroll-up-or-next-page
-    ;;              doc-view-scroll-down-or-previous-page
-    ;;              doc-view-previous-line-or-previous-page
-    ;;              doc-view-next-line-or-next-page
-    ;;              image-forward-hscroll
-    ;;              image-backward-hscroll
-    ;;              image-scroll-down
-    ;;              image-scroll-up
-    ;;              image-eol
-    ;;              image-bol))
-    ;;   (advice-add f :after #'jao--refresh))
-
-    ;; (dolist (f '(pdf-view-scroll-up-or-next-page
-    ;;              pdf-view-scroll-down-or-previous-page
-    ;;              pdf-view-previous-line-or-previous-page
-    ;;              pdf-view-next-line-or-next-page))
-    ;;   (advice-add f :after #'jao--refresh))
-  #+end_src
diff --git a/attic/w3m.org b/attic/net/w3m.org
index 3689c8e..3689c8e 100644
--- a/attic/w3m.org
+++ b/attic/net/w3m.org