Emacs configuration and packages
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

122 KiB

Packages

Use package

(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))
(require 'use-package)

ELPA Keyring

(use-package gnu-elpa-keyring-update :ensure t)

Loading .el newer than .elc files, and eln stuff

  (setq load-prefer-newer t)
  (setq comp-async-report-warnings-errors nil
        warning-suppress-types '((comp)))

Initialisation

Paths

  (defvar jao-local-lisp-dir "~/lib/elisp"
    "Directory for external elisp libraries and repos")

  (defvar jao-data-dir (expand-file-name "data" jao-emacs-dir)
    "Directory containing static data, such as images.")

  (defun jao-data-file (file) (expand-file-name file jao-data-dir))

  (defvar jao-org-dir (expand-file-name "~/org"))

  (defvar jao-sink-dir
    (file-name-as-directory (expand-file-name "~/doc/sink"))
    "Directory used for downloads and such.")

  (defvar jao-site-dir (expand-file-name "site" jao-emacs-dir))
  (defun jao-site-el (basename &optional gpg)
    (expand-file-name (concat basename ".el" (when gpg ".gpg")) jao-site-dir))

  (defun jao-load-site-el (basename &optional gpg)
    (let ((lf (jao-site-el basename gpg)))
      (if (file-exists-p lf)
          (load lf)
        (message "Attempted to load non existing %s" lf))))

  (defun jao-exec-path (file)
    (let ((fn (expand-file-name file)))
      (add-to-list 'exec-path fn nil)
      (setenv "PATH" (concat fn ":" (getenv "PATH")))))

  (defun jao-load-path (subdir)
    "Add to load path a subdir of `jao-local-lisp-dir'"
    (let ((path (expand-file-name subdir jao-local-lisp-dir)))
      (when (file-directory-p path) (add-to-list 'load-path path))))

Load and info path initialisation

  (add-to-list 'load-path jao-site-dir)
  (add-to-list 'load-path jao-local-lisp-dir)
  (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/")

  (let ((libd (expand-file-name "lib" jao-emacs-dir)))
    (add-to-list 'load-path libd)
    (dolist (f (directory-files libd t "^[^.]+$"))
      (when (file-directory-p f) (add-to-list 'load-path f))))

  (defvar jao-info-dir (expand-file-name "~/doc/info"))
  (require 'info)
  (add-to-list 'Info-directory-list jao-info-dir)

Custom location of custom.el and co.

  (setq custom-file (jao-site-el "custom"))
  ;; (load custom-file)
  (setq custom-unlispify-tag-names nil)
  (setq custom-buffer-done-kill t)
  (setq custom-raised-buttons nil)

Preamble (pre.el)

(jao-load-site-el "pre")

Session and history

  (setq backup-directory-alist (quote (("." . "~/.emacs.d/backups"))))
  (setq delete-old-versions t
        kept-new-versions 3
        kept-old-versions 2)

  (require 'saveplace)
  (setq save-place-file (expand-file-name "~/.emacs.d/cache/places"))
  (save-place-mode 1)

  (setq recentf-save-file (expand-file-name "~/.emacs.d/cache/recentf")
        recentf-max-saved-items 2000
        recentf-exclude '("/home/jao/\\.emacs\\.d/elpa.*/.*"
                          ".*/.git/COMMIT_EDITMSG"))
  (require 'recentf)
  (recentf-mode 1)

  ;; Command history
  (setq savehist-file (expand-file-name "~/.emacs.d/cache/history"))
  (require 'savehist)
  (savehist-mode t)
  (setq savehist-additional-variables
        '(kill-ring search-ring regexp-search-ring)
        savehist-ignored-variables
        '(ido-file-history))

yes/no, bell, startup message

  ;;; change yes/no for y/n
  (if (version< emacs-version "28")
      (fset 'yes-or-no-p 'y-or-n-p)
    (setq use-short-answers t))
  (setq inhibit-startup-message t)
  (setq visible-bell t)

Server

  (setenv "EDITOR" "emacsclient")
  ;; (unless (daemonp) (server-start))

System utilities

Tramp

  (setq tramp-mode nil)

Sleep/awake

  (use-package jao-sleep)
  (jao-sleep-dbus-register)

Process runners

  (use-package jao-shell
    :demand t
    :config (jao-shell-def-exec jao-trayer "trayer.sh")
    :bind (("s-r" . jao-shell-exec)))

App launcher

  (jao-load-path "app-launcher")
  (use-package app-launcher
    :bind (("s-R" . app-launcher-run-app)))

Brightness control

  (jao-shell-def-exec jao-bright-set-up "brightnessctl" "-q" "s" "5%+")
  (jao-shell-def-exec jao-bright-set-down "brightnessctl" "-q" "s" "5%-")

  (defun jao-bright-show ()
    (interactive)
    (message "%s" (thread-first (jao-shell-string "brightnessctl")
                    (split-string "\n")
                    (cadr)
                    (string-trim))))

  (defun jao-bright-up ()
    (interactive)
    (jao-shell-string "brightnessctl -q s 5%%+")
    (jao-bright-show))

  (defun jao-bright-down ()
    (interactive)
    (jao-shell-string "brightnessctl -q s 5%%-")
    (jao-bright-show))

Keyboard

  (use-package repeat
    :config (setq repeat-echo-function #'repeat-echo-mode-line))
  (when (> emacs-major-version 27) (repeat-mode))

  (defun jao-kb-toggle (&optional lyt)
    (interactive)
    (shell-command-to-string (or lyt
                                 (if (jao-kb-toggled-p)
                                     "setxkbmap us"
                                   "setxkbmap us -variant intl"))))

  (defun jao-kb-toggled-p ()
    (not (string-empty-p
          (shell-command-to-string "setxkbmap -query|grep variant"))))

  (set-keyboard-coding-system 'latin-1)
  (set-language-environment "UTF-8")
  ;; must be set after current-language-environment
  (customize-set-variable 'default-input-method "catalan-prefix")
  ;; http://mbork.pl/2022-03-07_Transient_input_method
  (customize-set-variable 'default-transient-input-method "TeX")

  (defun jao--set-kb-system (frame)
    (select-frame frame)
    (set-keyboard-coding-system 'latin-1)
    t)
  (add-to-list 'after-make-frame-functions 'jao--set-kb-system)

  (setq echo-keystrokes 1
        suggest-key-bindings nil)

Transient

  (use-package transient
    :init (setq transient-show-popup t) ;; 2.0
    :demand t
    :config
    (transient-bind-q-to-quit))

  (defmacro jao-transient-major-mode (mode &rest suffix)
    (declare (indent defun))
    (let ((mode (intern (format "%s-mode" mode)))
          (mmap (intern (format "%s-mode-map" mode)))
          (name (intern (format "jao-transient-%s" mode))))
      `(progn
         (transient-define-prefix ,name ()
           ,(format "Transient ops for %s" mode)
           [,(format "Operations for %s" mode) :if-derived ',mode ,@suffix])
         (define-key ,mmap (kbd "s-SPC") #',name))))

  (defmacro jao-transient-major-mode+1 (mode suffix)
    (declare (indent defun))
    (let ((name (intern (format "jao-transient-%s" mode))))
      (if (fboundp name)
          `(transient-append-suffix ',name '(0 -1) ,suffix)
        `(jao-transient-major-mode ,mode ,suffix))))

  (defmacro jao-transient-major-mode+ (mode &rest suffixes)
    (declare (indent defun))
    `(progn ,@(mapcar (lambda (s) `(jao-transient-major-mode+1 ,mode ,s))
                      suffixes)))

Disk

  (when (featurep 'multisession)
    (use-package jao-dirmon))

Crypto

PGP, EPG, passwords

  (setq epg-pinentry-mode 'loopback)
  (setq auth-source-debug nil)

  (require 'auth-source)
  (add-to-list 'auth-source-protocols '(local "local"))
  (setq auth-sources '("~/.emacs.d/authinfo.gpg" "~/.netrc"))

  (use-package epa-file
    :init (setq epa-file-cache-passphrase-for-symmetric-encryption t)
    :config (epa-file-enable))
  (require 'epa-file)

  (defun jao--get-user/password (h)
    (let ((item (car (auth-source-search :type 'netrc :host h :max 1))))
      (when item
        (let ((user (plist-get item :user))
              (pwd (plist-get item :secret)))
          (list user (when pwd (funcall pwd)))))))

pass

  (use-package password-store :ensure t
    :bind (("C-c p" . jao-transient-password)))

  (transient-define-prefix jao-transient-password ()
    [[("c" "copy secret" password-store-copy)
      ("C" "copy field" password-store-copy-field)]
     [("i" "insert entry" password-store-insert)
      ("e" "edit entry" password-store-edit)
      ("g" "generate password" password-store-generate)]
     [("d" "delete entry" password-store-remove)
      ("r" "rename entry" password-store-rename)]])

Pinentry

  (use-package pinentry :ensure t)
  (pinentry-start)

Fonts and colour themes

Widgets

  (setq widget-image-enable nil
        widget-link-prefix ""
        widget-link-suffix ""
        widget-button-prefix " "
        widget-button-suffix " "
        widget-push-button-prefix ""
        widget-push-button-suffix "")

Fonts

fontsets

See fonts - Line height with unicode characters for a good discussion.

  (defun jao--set-fontsets (_f)
    (set-fontset-font t 64257 "Quivira" nil)
    (set-fontset-font t 'egyptian "Noto Sans Egyptian Hieroglyphs"
                      nil)
    (set-fontset-font t 'hangul "NanumGothicCoding" nil)
    (set-fontset-font t 'unicode (face-attribute 'default :family)
                      nil)
    (set-fontset-font t 'unicode-bmp (face-attribute 'default :family)
                      nil)
    (set-fontset-font t 'symbol "Symbola-10" nil)
    (set-fontset-font t 'greek "GFS Didot" nil)
    (set-fontset-font t 'mathematical "FreeSerif" nil)
    (set-fontset-font t 'emoji "Noto Color Emoji" nil)
    ;; boxes
    (set-fontset-font t '(9472 . 9599) "Source Code Pro" nil)
    ;; variation selector-16
    (set-fontset-font t 65039 "BabelStone Modern-1" nil))

  (jao--set-fontsets nil)
  (add-to-list 'after-make-frame-functions 'jao--set-fontsets)
nobreak char display
  (setq nobreak-char-display nil)
list-fonts-display
  (defun list-fonts-display (&optional matching)
    "Display a list of font-families available via font-config, in a new buffer.
     If the optional argument MATCHING is non-nil, only
     font families matching that regexp are displayed;
     interactively, a prefix argument will prompt for the
     regexp.  The name of each font family is displayed
     using that family, as well as in the default font (to
     handle the case where a font cannot be used to display
     its own name)."
    (interactive
     (list
      (and current-prefix-arg
           (read-string "Display font families matching regexp: "))))
    (let (families)
      (with-temp-buffer
        (shell-command "fc-list : family" t)
        (goto-char (point-min))
        (while (not (eobp))
          (let ((fam (buffer-substring (line-beginning-position)
                                       (line-end-position))))
            (when (or (null matching) (string-match matching fam))
              (push fam families)))
          (forward-line)))
      (setq families
            (sort families
                  (lambda (x y) (string-lessp (downcase x) (downcase y)))))
      (let ((buf (get-buffer-create "*Font Families*")))
        (with-current-buffer buf
          (erase-buffer)
          (dolist (family families)
            ;; We need to pick one of the comma-separated names to
            ;; actually use the font; choose the longest one because some
            ;; fonts have ambiguous general names as well as specific
            ;; ones.
            (let ((family-name
                   (car (sort (split-string family ",")
                              (lambda (x y) (> (length x) (length y))))))
                  (nice-family (replace-regexp-in-string "," ", " family)))
              (insert (concat (propertize nice-family
                                          'face (list :family family-name))
                              " (" nice-family ")"))
              (newline)))
          (goto-char (point-min)))
        (display-buffer buf))))

Themes

  (defun jao-colors-scheme-dark-p ()
    (equal "dark" (getenv "JAO_COLOR_SCHEME")))

  (setq custom-theme-directory
        (expand-file-name "lib/themes" jao-emacs-dir))

  (require 'jao-themes)

  (defvar jao-theme-dark 'jao-dark)
  (defvar jao-theme-light 'jao-light)
  (defvar jao-theme-term-dark 'modus-vivendi)
  (defvar jao-theme-term-light 'jao-light)

  (defun jao-themes-setup ()
    (let* ((dark (jao-colors-scheme-dark-p))
           (theme (cond ((and dark window-system) jao-theme-dark)
                        (dark jao-theme-term-dark)
                        (window-system jao-theme-light)
                        (t jao-theme-term-light))))
      (load-theme theme t)
      (modify-all-frames-parameters `((font . ,jao-themes-default-face)))))

  (unless (eq window-system 'pgtk) (jao-themes-setup))

  (global-font-lock-mode 1)

Help system

Help buffers and shortcuts

  (setq help-window-select t
        help-link-key-to-documentation t)

  (use-package find-func
    :bind (("C-h C-v" . find-variable)
           ("C-h C-f" . find-function)
           ("C-h C-k" . find-function-on-key)
           ("C-h C-l" . find-library)))

eldoc

  (use-package eldoc
    :init (setq eldoc-mode-line-string nil
                eldoc-echo-area-use-multiline-p t
                eldoc-echo-area-prefer-doc-buffer nil
                eldoc-display-functions '(eldoc-display-in-echo-area))
    :config (global-eldoc-mode 1)
    :diminish ((eldoc-mode . "")))

Bookmarks

(setq bookmark-default-file "~/.emacs.d/emacs.bmk"
      bookmark-set-fringe-mark nil)

Man pages

  (setq Man-notify-method 'pushy) ;; pushy - same window

Recoll

  (use-package jao-recoll)

Window manager helpers

transparency

  (defvar jao-transparent-only-bg (> emacs-major-version 28))

  (defvar jao-frames-default-alpha
    (cond ((eq window-system 'pgtk) 80)
          (jao-transparent-only-bg 88)
          (t 85)))

  (defvar jao-transparent-frame (< jao-frames-default-alpha 100))

  (defun jao-transparent-p () jao-transparent-frame)

  (defun jao-alpha-parameters (&optional level)
    (let ((level (or level jao-frames-default-alpha)))
      (if jao-transparent-only-bg
          `((alpha-background . ,level) (alpha))
        `((alpha . ,(cons level level)) (alpha-background)))))

  (defun jao-set-transparency (&optional level all)
    (interactive "nOpacity (0-100): ")
    (let ((level (or level jao-frames-default-alpha)))
      (setq jao-transparent-frame (< level 100))
      (if all
            (modify-all-frames-parameters (jao-alpha-parameters level))
          (modify-frame-parameters nil (jao-alpha-parameters level)))))

  (defun jao-toggle-transparency (&optional all)
    (interactive "P")
    (let ((level (if jao-transparent-frame 100 jao-frames-default-alpha)))
      (jao-set-transparency level all)))

exwm

  (defvar jao-exwm-enabled nil)
  (defun jao-exwm-enabled-p () jao-exwm-enabled)

  (defun jao-exwm-enable ()
    (jao-load-org "exwm.org")
    (setq jao-exwm-enabled t)
    (display-time-mode -1)
    (exwm-enable)
    (setq jao-frames-default-alpha 88)
    (jao-set-transparency)
    (x-change-window-property "_XMONAD_TRAYPAD" "" nil nil nil nil 0)
    (jao-trisect t))

xmonad

  (defvar jao-xmonad-enabled (string= "xmonad" (or (getenv "wm") "")))
  (defun jao-xmonad-enabled-p () jao-xmonad-enabled)

  (defun jao-xmonad-enable ()
    (setq jao-browse-doc-use-emacs-p t)
    (setq jao-wallpaper-random-wake t)
    (jao-set-transparency)
    (jao-trisect)
    (message "Welcome to xmonad"))

  (when jao-xmonad-enabled
    (add-hook 'after-init-hook #'jao-xmonad-enable t))

sway

When starting emacs inside a sway session, we use -f jao-sway-enable and don't load any separate configuration file.

  (defun jao-swaymsg (msg)
    (shell-command (format "swaymsg '%s' >/dev/null" msg)))

  (defmacro jao-def-swaymsg (name msg)
    `(defun ,(intern (format "jao-sway-%s" name)) ()
       (interactive)
       (jao-swaymsg ,msg)))
  (jao-def-swaymsg firefox "[app_id=firefox] focus")

  (defvar jao-sway-enabled
    (and (eq window-system 'pgtk) (not jao-xmonad-enabled)))

  (defun jao-sway-set-wallpaper (f)
    (jao-swaymsg (format "output * bg %s fill" f))
    (make-symbolic-link f "~/.wallpaper.sway" t))

  (defun jao-sway-run-or-focus (cmd &optional ws)
    (if (jao-shell-running-p "firefox")
        (jao-swaymsg (format "[app_id=%s] focus" cmd))
      (jao-swaymsg (format "workspace %s" (or ws 2)))
      (start-process-shell-command cmd nil cmd)))

  (defun jao-sway-run-or-focus-tidal ()
    (interactive)
    (if (jao-shell-running-p "tidal-hifi")
        (jao-swaymsg "[app_id=tidal-hifi] scratchpad show")
      (start-process-shell-command "tidal-hifi" nil "tidal-hifi &")
      (jao-sway-run-or-focus-tidal)))

  (defun jao-sway-run-or-focus-firefox ()
    (interactive)
    (jao-sway-run-or-focus "firefox"))

  (defun jao-sway-enable ()
    (setq jao-browse-doc-use-emacs-p t)
    (setq jao-wallpaper-random-wake nil)
    (jao-trisect)
    (jao-set-transparency 85)
    (jao-themes-setup)
    ;; (display-time-mode 1)
    (global-set-key (kbd "s-f") #'jao-sway-run-or-focus-firefox)
    (defalias 'jao-streaming-list #'jao-sway-run-or-focus-tidal)
    (message "Welcome to sway"))

  (when jao-sway-enabled
    (defalias 'x-change-window-property #'ignore)
    (add-hook 'after-init-hook #'jao-sway-enable))

wallpaper

  (defvar jao-wallpaper-dir "~/.wallpapers/")

  (defvar jao-wallpaper-random-candidates
    '("wallpaper.jpg" "wallpaper2.jpg"))

  (defvar jao-wallpaper-random-candidates-light
    '("wallpaper.jpg" "wallpaper2.jpg"))

  (defvar jao-wallpaper-random-wake t
    "Set to t for getting a new wallpaper on awaking from sleep")

  (defun jao-set-wallpaper (&optional path)
    (interactive)
    (let ((current (format "~/.wallpaper.%s"
                           (if (jao-colors-scheme-dark-p) "dark" "light"))))
      (when-let ((f (or path
                        (read-file-name "Image: "
                                        jao-wallpaper-dir
                                        (file-symlink-p current)
                                        t))))
        (make-symbolic-link (expand-file-name f) current t)
        (if jao-sway-enabled
            (jao-sway-set-wallpaper (expand-file-name f))
          (shell-command (format "xwallpaper --zoom %s" f))))))

  (defun jao-set-random-wallpaper ()
    (interactive)
    (when (or (called-interactively-p 'interactive)
              jao-wallpaper-random-wake)
      (let* ((ws (if (jao-colors-scheme-dark-p)
                     jao-wallpaper-random-candidates
                   jao-wallpaper-random-candidates-light))
             (f (seq-random-elt ws)))
        (jao-set-wallpaper (expand-file-name f jao-wallpaper-dir))
        (message "%s" f))))

  (add-to-list 'jao-sleep-awake-functions #'jao-set-random-wallpaper)

screensaver and lock

  (defun jao-screensaver-enabled ()
    (string= (jao-shell-string "xdg-screensaver status") "enabled"))

  (defun jao-screensaver-toggle ()
    (interactive)
    (let ((wid (jao-shell-string "xdotool getwindowfocus")))
      (if (jao-screensaver-enabled)
          (jao-shell-string "xdg-screensaver suspend" wid)
        (jao-shell-string "xdg-screensaver resume" wid))
      (jao-notify (format "Using '%s'"
                          (jao-shell-string "xdotool getwindownames" wid))
                  (format "Screensaver %s"
                          (jao-shell-string "xdg-screensaver status")))))

  (jao-shell-def-exec jao-xlock-screen "xdg-screensaver" "activate")
  (jao-shell-def-exec jao-suspend "sudo" "systemctl" "suspend")
  (jao-shell-def-exec jao-poweroff "sudo" "systemctl" "poweroff")

  (defun jao-lock-screen ()
    (interactive)
    (if jao-sway-enabled
        (shell-command "swaylock -i ~/.lockimage")
      (jao-xlock-screen)))

  (transient-define-prefix jao-transient-sleep ()
    ["Sleep"
     ("l" "lock screen" jao-lock-screen)
     ("z" "sleep" jao-suspend)
     ("u" "enable/disable screensaver" jao-screensaver-toggle)
     ("poof" "power-off" jao-poweroff)])

mouse

  (dolist (k '([mouse-3]
               [down-mouse-3]
               [drag-mouse-3]
               [double-mouse-3]
               [mouse-4]
               [down-mouse-4]
               [drag-mouse-4]
               [double-mouse-4]
               [triple-mouse-4]
               [mouse-5]
               [down-mouse-5]
               [drag-mouse-5]
               [double-mouse-5]
               [triple-mouse-5]))
    (global-unset-key k))

X clipboard

  (setq select-enable-clipboard t
        select-enable-primary t
        selection-timeout 100)

xmobar

  (defun jao-xmobar-kill ()
    (interactive)
    (shell-command "killall xmobar-exwm"))

  (defun jao-xmobar-restart ()
    (interactive)
    (jao-xmobar-kill)
    (start-process "" nil "xmobar-exwm" "-d"))

Mode line and minibuffer

Time display

  (setq display-time-world-list
        '(("Europe/Paris" "Barcelona")
          ("America/Los_Angeles" "Los Angeles")
          ("America/New_York" "New York")
          ("Europe/London" "London")
          ("Asia/Calcutta" "Bangalore")
          ("Asia/Tokyo" "Tokyo")))

  (defun jao-time--pdt-hour ()
    (jao-time-at-zone "%H" "America/Los_Angeles"))

  (defun jao-time--chicago-hour ()
    (jao-time-at-zone "%H" "America/Chicago"))

  (defun jao-time-at-zone (format zone)
    (set-time-zone-rule zone)
    (prog1 (format-time-string format)
      (set-time-zone-rule nil)))

  (defun jao-time-echo-la-time ()
    (interactive)
    (message (jao-time-at-zone "LA %H:%M" "America/Los_Angeles")))

  (defun jao-time-echo-times ()
    (interactive)
    (let ((msg (format "%s (%s)"
                       (format-time-string "%a, %e %B - %H:%M")
                       (jao-time-at-zone "%H:%M" "America/Los_Angeles"))))
      (jao-notify msg "" (jao-data-file "clock-world-icon.png"))))

  (defun jao-time-to-epoch (&optional s)
    "Transform a time string to an epoch integer in milliseconds."
    (interactive)
    (let ((s (or s (read-string "Time string: " (thing-at-point 'string)))))
      (message "%s = %s"
               s
               (round (* 1000 (time-to-seconds (parse-time-string s)))))))

  (defun jao-epoch-to-time (&optional v)
    "Transform an epoch, given in milliseconds, to a time string."
    (interactive)
    (let ((v (or v (read-number "Milliseconds: " (thing-at-point 'number)))))
      (message "%s = %s" v
               (format-time-string "%Y-%m-%d %H:%M:%S"
                                   (seconds-to-time (/ v 1000.0))))))

  (setq display-time-day-and-date nil
        display-time-24hr-format nil
        display-time-default-load-average nil
        display-time-format " %a %e %H:%M")

Minibuffer

  (defvar jao-modeline-in-minibuffer (and window-system t))

  (use-package jao-minibuffer
    :init
    (if (jao-colors-scheme-dark-p)
        (setq jao-minibuffer-active-buffer-line-color "azure4"
              jao-minibuffer-inactive-buffer-line-color "grey25")
      (setq jao-minibuffer-active-buffer-line-color "burlywood3"
            jao-minibuffer-inactive-buffer-line-color "grey65"))
    :commands (jao-minibuffer-add-variable
 jao-minibuffer-refresh
               jao-minibuffer-mode))

  (use-package jao-mode-line
    :commands (jao-mode-line-add-to-minibuffer
               jao-mode-line-remove-from-minibuffer))

  (setq enable-recursive-minibuffers t)
  (require 'mb-depth)
  (minibuffer-depth-indicate-mode 1)
  (require 'minibuf-eldef)
  (setq minibuffer-eldef-shorten-default t)
  (minibuffer-electric-default-mode 1)

  (jao-minibuffer-mode 1)

  (when jao-modeline-in-minibuffer
    (add-hook 'display-time-hook #'jao-minibuffer-refresh)
    (add-hook 'after-init-hook
              (lambda () (jao-mode-line-add-to-minibuffer 90))))

Mode line format

  (setq line-number-display-limit-width 250)
  (setq mode-line-position-column-format '(" %c")
        mode-line-position-line-format '(" %l,%c"))
  (setq mode-line-percent-position
        '(" %l" (:eval (format "/%d" (line-number-at-pos (point-max))))))
  (line-number-mode -1)
  (column-number-mode 1)

Mode line toggle

  (use-package jao-mode-line
    :init
    (when (and window-system (not jao-modeline-in-minibuffer))
      (add-to-list 'after-make-frame-functions #'jao-mode-line-hide-inactive)
      (add-hook 'after-init-hook #'jao-toggle-inactive-mode-line))
    :demand t
    :bind (("<home>" . jao-mode-line-toggle-inactive)
           ("<end>" . jao-mode-line-toggle)
           ("<insert>" . jao-mode-line-echo)))

Diminish

  (use-package diminish :ensure t)
  (when (require 'use-package-diminish nil 'noerror)
    (eval-after-load "simple" '(diminish 'auto-fill-function " §"))
    (eval-after-load "autorevert" '(diminish 'auto-revert-mode "")))

Battery

  (use-package battery
    :init (setq battery-load-low 15
                battery-load-critical 8
                battery-mode-line-limit 40
                battery-echo-area-format
                "%L %r %B (%p%% load, remaining time %t)"
                battery-mode-line-format " %b%p ")) ;; " 🔋%b%p "
  (display-battery-mode 1)
  (with-eval-after-load "jao-minibuffer"
    (unless jao-modeline-in-minibuffer
      (jao-minibuffer-add-variable 'battery-mode-line-string 80)))

Notifications

alert

  (use-package alert
    :ensure t
    :init
    (setq alert-default-style 'message ;; 'libnotify
          alert-hide-all-notifications nil))

jao-notify

  (require 'jao-notify)

tracking

  (use-package tracking
    :demand t
    :init (setq tracking-position 'before-modes
                tracking-frame-behavior nil
                tracking-most-recent-first nil
                tracking-max-mode-line-entries 10
                tracking-sort-faces-first t
                tracking-shorten-modes '())
    :config
    (setq erc-track-enable-keybindings nil)

    (defun jao-tracking-next-buffer ()
      (interactive)
      (tracking-next-buffer)
      (jao-tracking-update-minibuffer))

    :bind (("C-c C-SPC" . jao-tracking-next-buffer)))

  (use-package jao-tracking
    :demand t
    :init (setq jao-tracking-bkg
                (if (jao-colors-scheme-dark-p) "grey20" "grey93")))

tmr

  (use-package tmr
    :ensure t
    :init
    (setq tmr-sound-file "/usr/share/sounds/freedesktop/stereo/message.oga"
          tmr-descriptions-list '("tea is ready")))

Calendar, diary, weather

Diary

  (setq diary-file (expand-file-name "diary" jao-org-dir)
        diary-display-function 'diary-fancy-display
        diary-mail-addr "jao@localhost"
        diary-comment-start ";;"
        diary-comment-end "")

  (add-hook 'diary-list-entries-hook 'diary-sort-entries t)

Calendar

  (setq appt-display-format nil)
  (appt-activate 1)
  (setq calendar-latitude 55.9533
        calendar-longitude -3.1883
        calendar-location-name "Edinburgh, Scotland"
        calendar-mark-diary-entries-flag t
        calendar-date-echo-text '(format "ISO date: %s"
                                         (calendar-iso-date-string
                                          (list month day year))))

  (setq calendar-holidays
        '((holiday-fixed 1 1 "New Year's Day")
          (holiday-fixed 4 1 "April Fools' Day")
          (holiday-float 5 0 2 "Mother's Day")
          (holiday-fixed 3 19 "Father's Day")
          (holiday-float 11 4 4 "Thanksgiving")
          (holiday-fixed 12 25 "Christmas")
          (holiday-chinese-new-year)
          (solar-equinoxes-solstices)
          (holiday-sexp calendar-daylight-savings-starts
                        (format "Daylight Saving Time Begins %s"
                                (solar-time-string
                                 (/ calendar-daylight-savings-starts-time
                                    (float 60))
                                 calendar-standard-time-zone-name)))
          (holiday-sexp calendar-daylight-savings-ends
                        (format "Daylight Saving Time Ends %s"
                                (solar-time-string
                                 (/ calendar-daylight-savings-ends-time
                                    (float 60))
                                 calendar-daylight-time-zone-name)))))

  (add-to-list 'display-buffer-alist
               `(,(regexp-quote diary-fancy-buffer)
                 (display-buffer-at-bottom)
                 (window-parameters (mode-line-format . none))
                 (window-height . fit-window-to-buffer)))

  (defun jao-diary--select ()
    (switch-to-buffer diary-fancy-buffer))

  (add-hook 'diary-fancy-display-mode-hook #'jao-diary--select)
  (setq org-calendar-insert-diary-entry-key nil
        org-agenda-diary-file 'diary-file)

Weather

winttr
  (defun jao-weather (&optional wide)
    (interactive "P")
    (if (not wide)
        (message "%s"
                 (jao-shell-string "curl -s"
                                   "https://wttr.in/?format=%l++%m++%C+%c+%t+%w++%p"))
      (jao-afio--goto-scratch)
      (if-let ((b (get-buffer "*wttr*")))
          (progn (pop-to-buffer b)
                 (term-send-string "clear;curl wttr.in\n"))
        (jao-exec-in-term "curl wttr.in" "*wttr*"))))
  (global-set-key (kbd "<f5>") #'jao-weather)

Timers

(put 'list-timers 'disabled nil)

Files, dired and scratch buffer

so-long

  (setq large-file-warning-threshold (* 200 1024 1024))

  (use-package so-long
    :ensure t
    :diminish)
  (global-so-long-mode 1)

Persistent scratch

  (use-package persistent-scratch
    :ensure t
    :config (persistent-scratch-setup-default))

Automatically uncompress

  (require 'jka-compr)
  (auto-compression-mode 1)

wgrep

  (use-package wgrep :ensure t)
  (require 'wgrep)

dired

  (use-package dired
    :init
    (setq dired-recursive-deletes 'top
          dired-recursive-copies 'top
          dired-listing-switches "-alhF --group-directories-first"
          ls-lisp-dirs-first t
          dired-dwim-target t
          dired-kill-when-opening-new-dired-buffer t
          dired-mouse-drag-files t
          wdired-create-parent-directories t)

    (put 'dired-find-alternate-file 'disabled nil)
    :hook (dired-mode . turn-on-gnus-dired-mode)
    :bind (:map dired-mode-map
                ("C-c C-r" . wdired-change-to-wdired-mode)
                ("C-M-m" . gnus-dired-attach)))

  (use-package dired-x :demand t)

  (use-package find-dired
    :init (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld"))
    :bind ("C-c D" . find-name-dired))

  (use-package dired-git-info
    :ensure t
    :bind (:map dired-mode-map (")" . dired-git-info-mode)))

General editing

Executable scripts

  (add-hook 'after-save-hook
            'executable-make-buffer-file-executable-if-script-p)

Long lines

Comprehensive guide on handling long lines in Emacs - 200ok

  (when (version<= "27.1" emacs-version)
    (setq bidi-inhibit-bpa t))

Spaces, tabs, kill

  (setq kill-whole-line t)
  (setq-default indent-tabs-mode nil)
  (setq indent-tabs-width 4)
  (setq-default default-tab-width 8)
  (setq tab-always-indent t)
  (setq kill-read-only-ok t)
  (setq view-read-only nil)

Whitespace and filling column

  (add-hook 'write-file-functions 'delete-trailing-whitespace)
  (setq-default indicate-empty-lines nil)
  (setq fill-column 78)
  (setq comment-auto-fill-only-comments nil)

  (use-package whitespace
    :init
    (setq whitespace-style '(face tabs trailing ;; lines-tail
                             empty  missing-newline-at-eof)
          whitespace-line-column 80)
    :hook (prog-mode . whitespace-mode)
    :diminish)

  (use-package display-fill-column-indicator
    :init (setq-default display-fill-column-indicator-column 80)
    :hook (prog-mode . display-fill-column-indicator-mode))

Visible mode

  (use-package visible-mode
    :bind (("s-v" . visible-mode)))

Changes

  (use-package goto-chg
    :ensure t
    :bind (("C-." . goto-last-change)
           ("C-c ." . goto-last-change)
           ("C-c ," . goto-last-change-reverse)))

Eval-and-replace

  (defun fc-eval-and-replace ()
    "Replace the preceding sexp with its value."
    (interactive)
    (backward-kill-sexp)
    (condition-case nil
        (prin1 (eval (read (current-kill 0)))
               (current-buffer))
      (error (message "Invalid expression")
             (insert (current-kill 0)))))

   (global-set-key "\C-ce" 'fc-eval-and-replace)

Skeletons and autoinsert

  (use-package autoinsert
    :config
    (setq auto-insert-directory "~/.emacs.d/autoinsert/"
          auto-insert t
          auto-insert-query t)
    (setf (alist-get 'html-mode auto-insert-alist nil t) nil))
  (add-hook 'find-file-hooks #'auto-insert)

  (use-package jao-skel
    :demand t
    :config
    (require 'jao-skel-geiser)
    (require 'jao-skel-lisp)
    (require 'jao-skel-haskell)
    (require 'jao-skel-latex))

Undo

f to go forward b to go backward

n to go to the node below when you at a branching point p to go to the node above

a to go back to the last branching point e to go forward to the end/tip of the branch

  (use-package vundo
    :ensure t
    :config
    (set-face-attribute 'vundo-default nil :family "Symbola")
    (setq vundo-glyph-alist vundo-unicode-symbols)
    :bind (("C-?" . vundo)))

Completion

  (jao-load-org "completion")

Buffers

cursor and mark

  (transient-mark-mode -1)
  (blink-cursor-mode -1)
  (setq cursor-in-non-selected-windows nil)

uniquifiy

  (require 'uniquify)
  (setq uniquify-buffer-name-style 'forward
        uniquify-trailing-separator-p t)

autosave

(setq auto-save-list-file-prefix "~/.emacs.d/auto-save-list/.saves-"
      auto-save-no-message t
      kill-buffer-delete-auto-save-files t)

(setq lock-file-name-transforms
      '(("\\`/.*/\\([^/]+\\)\\'" "/tmp/emacs-lock/\\1" t)))

autorevert

  (setq auto-revert-check-vc-info nil)
  (setq auto-revert-verbose nil)
  (setq auto-revert-avoid-polling t)
  (setq auto-revert-mode-text "")
  (require 'autorevert)
  (global-auto-revert-mode 1)

attached buffers

  (defun jao-display-buffer-below-selected (buffer alist)
    (delete-other-windows-vertically)
    (display-buffer-below-selected buffer alist))

  (defun jao-attached-buffer-entry (name-rx height)
    `(,name-rx (display-buffer-reuse-window
                jao-display-buffer-below-selected)
               (window-height . ,(or height 25))))

  (defmacro jao-with-attached-buffer (name-rx height &rest body)
    (declare (indent defun))
    `(let ((display-buffer-alist '(,(jao-attached-buffer-entry name-rx height))))
       ,@body))

  (defun jao-define-attached-buffer (name-rx &optional height)
    (add-to-list 'display-buffer-alist
                 (jao-attached-buffer-entry name-rx height)))

images

  (setq image-use-external-converter t)
  (setq widget-image-enable nil)

same mode

  (defun jao-buffer-same-mode (&optional mode pre-fn switch-fn)
    (interactive)
    (let* ((mode (or mode major-mode))
           (modes (if (symbolp mode) (list mode) mode))
           (pred `(lambda (b)
                    (let ((b (get-buffer (if (consp b) (car b) b))))
                      (member (buffer-local-value 'major-mode b)
                              ',modes))))
           (buff (read-buffer "Buffer: " nil t pred)))
      (when pre-fn (funcall pre-fn))
      (if switch-fn (funcall switch-fn buff) (pop-to-buffer buff))))
  (global-set-key (kbd "C-c C-b") #'jao-buffer-same-mode)

projects

  (use-package project
    :bind (("C-x C-p" . project-prefix-map)))

buffer quit function (the triple ESC)

  (setq buffer-quit-function (lambda () t))

pulsar

  (use-package pulsar
    :ensure t
    :diminish
    :custom ((pulsar-pulse-functions
              '(ace-window
                backward-page
                delete-other-windows
                delete-window
                forward-page
                jao-prev-window
                move-to-window-line-top-bottom
                org-backward-heading-same-level
                org-forward-heading-same-level
                org-next-visible-heading
                org-previous-visible-heading
                other-window
                outline-backward-same-level
                outline-forward-same-level
                outline-next-visible-heading
                outline-previous-visible-heading
                outline-up-heading
                recenter-top-bottom
                reposition-window
                scroll-down-command
                scroll-up-command))
             (pulsar-pulse t)
             (pulsar-delay 0.1)
             (pulsar-iterations 10)
             (pulsar-face 'pulsar-yellow)
             (pulsar-highlight-face 'pulsar-face))
    :hook ((jao-afio-switch . pulsar-pulse-line)))

  (pulsar-global-mode)

Windows

scrolling

  (setq scroll-preserve-screen-position 'always
        scroll-conservatively most-positive-fixnum
        scroll-margin 4
        scroll-step 2
        redisplay-skip-fontification-on-input t)

splitting and switch

  (setq split-height-threshold 80
        split-width-threshold 144
        display-buffer-avoid-small-windows 20)

  (setq switch-to-buffer-preserve-window-point nil
        switch-to-buffer-obey-display-actions t
        switch-to-prev-buffer-skip 'this) ;; don't switch to a
                                          ;; buffer already visible in
                                          ;; this frame

  (global-set-key (kbd "C-x _") #'delete-other-windows-vertically)

first window

  (defvar jao-first-window--from nil)

  (defun jao-first-window ()
    "Go to previous windows in frame, remembering where we were."
    (interactive)
    (let ((cb (current-buffer)))
      (if (eq (get-buffer-window cb) (select-window (frame-first-window)))
          (when jao-first-window--from (pop-to-buffer jao-first-window--from))
        (setq jao-first-window--from cb))))

  (defun jao-prev-window ()
    "Go to previous window."
    (interactive)
    (other-window -1))

  (global-set-key (kbd "C-x p") #'jao-prev-window)
  (global-set-key (kbd "s-a") #'jao-first-window)
  (global-set-key (kbd "M-a") #'jao-first-window)

ace window

  (use-package ace-window
    :ensure t
    :demand t
    :init (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
                aw-char-position 'top-left
                aw-ignore-current nil
                aw-dispatch-when-more-than 2
                aw-leading-char-style 'path
                aw-display-mode-overlay t
                aw-scope 'frame)
    :config

    (defun jao-ace-consult-buffer-other-window (w)
      (interactive)
      (aw-switch-to-window w)
      (consult-buffer))

    (setf (alist-get ?b aw-dispatch-alist)
          '(jao-ace-consult-buffer-other-window "Consult buffer"))

    (setf (alist-get ?B aw-dispatch-alist)
          (alist-get ?u aw-dispatch-alist))


    :bind (("M-o" . ace-window)
           ("M-O" . ace-swap-window)
           ("C-x 4 t" . ace-swap-window)))

window navigation (custom)

  (defun jao-nth-window (n)
    (if (zerop n)
        'jao-first-window
      `(lambda ()
         (interactive)
         (select-window (frame-first-window))
         (dotimes (x ,n) (other-window 1)))))

  (defun jao-prev-window ()
    "Go to previous window"
    (interactive)
    (other-window -1))

  (defun jao-next-window ()
    "Go to previous window"
    (interactive)
    ;; next-window-any-frame
    (other-window 1))

  (global-set-key (kbd "C-x p") 'jao-prev-window)
  (global-set-key (kbd "C-x o") 'other-window)
  (mapc (lambda (n)
          (global-set-key (format "\C-c%s" (1+ n)) (jao-nth-window n)))
        '(0 1 2 3 4 5 6 7 8))

  ;; transposing windows
  (defun 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 (plusp arg) (1- arg) (1+ arg))))))

  (define-key ctl-x-4-map (kbd "t") 'transpose-windows)
transpose-windows

winner mode

  (winner-mode 1)

Frames

Frame geometry

  (setq frame-resize-pixelwise nil)
  ;;; modeline, toolbars and co.
  (modify-all-frames-parameters
   `((horizontal-scroll-bars . nil)
     (vertical-scroll-bars . nil)
     (scroll-bar-width . 11)
     (menu-bar . nil)))

Frame layout, title, etc.

  (setq frame-title-format '("%b"))
  (use-package fringe)
  (fringe-mode)

  (menu-bar-mode -1)

  ;; (setting it to nil avoids mouse wrapping after other-frame)
  (setq focus-follows-mouse t)

  (use-package scroll-bar)
  (set-scroll-bar-mode nil)
  (use-package tool-bar)
  (tool-bar-mode -1)

  (defun jao-trisect (&optional force)
    (interactive)
    (let ((fw (frame-width)))
      (delete-other-windows)
      (cond ((or force (>= fw 240))
             (let ((w (- (/ fw 3))))
               (delete-other-windows)
               (split-window-horizontally w)
               (split-window-horizontally w)
               (balance-windows)))
            ((> fw 162)
             (split-window-horizontally)
             (switch-to-buffer (other-buffer))))))

  (defun jao-bisect ()
    (interactive)
    (jao-trisect t)
    (next-window)
    (delete-window))

afio

  (use-package jao-afio)

  (defun jao-xmonad-goto-1 ()
    (shell-command "sendCommand 1"))

  (defun jao-afio--goto-scratch-1 ()
    (interactive)
    (jao-afio-goto-scratch t))

  (jao-afio-setup 'jao-afio--goto-scratch-1 t)

  (defun jao-current--frame-id ()
    (propertize (if (and (jao-exwm-enabled-p)
                         (not (bound-and-true-p jao-exwm--use-afio)))
                    (format "F%s" exwm-workspace-current-index)
                  (format "%s" (jao-afio-current-no)))
                'face 'font-lock-warning-face))

  (add-hook 'jao-afio-switch-hook #'tracking-remove-visible-buffers)
  (jao-minibuffer-add-variable '(jao-current--frame-id) 100)

  (defun jao-afio--set-mode-line ()
    (when (and window-system (fboundp 'jao-mode-line-hide-inactive))
      (if (string= "Docs" (jao-afio-current-frame))
          (jao-mode-line-show-inactive nil)
        (jao-mode-line-hide-inactive nil))))

  (unless jao-modeline-in-minibuffer
    (add-hook 'jao-afio-switch-hook #'jao-afio--set-mode-line))

Writing and writing modes

Copyright notices

  (setq copyright-year-ranges t)
  (add-hook 'write-file-functions 'copyright-update)

Indent on yank

  ;;; indent on yank
  (defvar jao-auto-indent-modes
    '(emacs-lisp-mode ;; clojure-mode
      scheme-mode objc-mode
      tuareg-mode c-mode c++-mode
      tcl-mode sql-mode
      perl-mode cperl-mode
      java-mode jde-mode
      LaTeX-mode TeX-mode))

  (defadvice yank (after indent-region activate)
    (if (member major-mode jao-auto-indent-modes)
        (indent-region (region-beginning) (region-end) nil)))

Org mode

  (jao-load-org "org")

Blog

  (jao-load-org "blog")

Text-ish mode settings

  ;;; SENTENCES separated by just one space
  (setq sentence-end "[.?!][]\"')]*\\($\\|\t\\| \\)[ \t\n]*")
  (setq sentence-end-double-space t)
  ;;; copy rectangle
  (defun kill-rectangle-save (start end)
    "Save the region-rectangle as the last killed one."
    (interactive "r")
    (require 'rect)           ; Make sure killed-rectangle is defvar'ed.
    (setq killed-rectangle (extract-rectangle start end))
    (message "Rectangle saved"))

  ;; text mode, autoinserts and write hooks
  ;;; misc
  (setq default-major-mode 'text-mode)

  (add-hook 'text-mode-hook 'turn-on-auto-fill)

Dictionaries

  (defun jao-word-definition-lookup ()
    "Look up the word under cursor in a browser."
    (interactive)
    (require 'thingatpt)
    (browse-url
     (concat "http://www.wordnik.com/words/"
             ;; "http://www.answers.com/main/ntquery?s="
             (thing-at-point 'word))))

  (use-package dictionary
    :init (setq dictionary-use-single-buffer t
                dictionary-server "localhost")
    :commands (dictionary-search
               dictionary-match-words
               dictionary-lookup-definition
               dictionary
               dictionary-mouse-popup-matching-words
               dictionary-popup-matching-words
               dictionary-tooltip-mode
               global-dictionary-tooltip-mode)
    :bind (("C-c d" . dictionary-search)))

  (setq ispell-personal-dictionary
        (expand-file-name "~/.emacs.d/ispell.dict"))

  (use-package wordreference
    :ensure t
    :init (setq wordreference-target-lang "es"
                wordreference-source-lang "en")
    :bind (("C-c D" . wordreference-search)))

Markdown

  (use-package markdown-mode
    :ensure t)

  (use-package markdown-toc
    :ensure t)

  (dolist (ext '("\\.md$" "\\.markdown$"))
    (add-to-list 'auto-mode-alist (cons ext 'markdown-mode)))

TeX and LaTex

  (use-package tex-site
    :ensure auctex
    :init
    (setq TeX-auto-save t)
    (setq TeX-parse-self t)
    (setq TeX-a4-paper t)
    (setq TeX-auto-local ".tex-auto-local")
    ;; Preferred view format: dvi, ps, pdf, pdfs
    (setq TeX-view-format "pdf")
    (setq-default TeX-master "../main") ; nil to ask
    (setq TeX-view-program-selection
          ;;  '((output-dvi "open")
          ;;    (output-pdf "open")
          ;;    (output-html "open"))
          '(((output-dvi has-no-display-manager) "dvi2tty")
            ((output-dvi style-pstricks) "dvips and gv")
            (output-dvi "xdvi")
            (output-pdf "xdg-open")
            (output-html "xdg-open")))
    ;; to make RefTeX faster for large documents, try these:
    (setq reftex-enable-partial-scans t)
    (setq reftex-save-parse-info t)
    (setq reftex-use-multiple-selection-buffers t)
    ;; to integrate with AUCTeX
    (setq reftex-plug-into-AUCTeX t)
    (setq reftex-ref-style-default-list
          '("Hyperref" "Varioref" "Fancyref"))
    (setq LaTeX-command "latex -shell-escape")
    (setq LaTeX-biblatex-use-Biber t)
    (setq bibtex-dialect 'biblatex)
    :config
    (add-hook 'TeX-after-compilation-finished-functions
              #'TeX-revert-document-buffer)
    (add-hook 'LaTeX-mode-hook 'turn-on-reftex)
    )

;; (use-package ebib
  ;;  :ensure t
  ;;  :config (setq ebib-bibtex-dialect 'biblatex))

  ;; for M-x biblio-lookup
  ;; (use-package biblio :ensure t)

Browsing

Variables

  (defvar jao-browse-doc-use-emacs-p t)
  (defvar jao-browse-url-function nil)
  (defvar jao-browse-url-external-function nil)

URL around point

  (defun jao-url-around-point (&optional current-url)
    (or (and (fboundp 'w3m-anchor) (w3m-anchor))
        (shr-url-at-point nil)
        (ffap-url-at-point)
        (thing-at-point 'url)
        (when current-url
          (or (and (fboundp 'w3m-anchor) (w3m-anchor))
              (and (derived-mode-p 'eww-mode) (plist-get eww-data :url))))))

  (defun jao--url-prompt ()
    (let* ((def (jao-url-around-point t))
           (prompt (concat "URL" (if def (format " (%s): " def) ": "))))
      (read-string prompt nil nil def)))

Downloads using wget

  (defun jao-wget--get-title (filename)
    (let ((fn (file-name-base filename)))
      (if (string-blank-p fn)
          (plist-get eww-data :title)
        (subst-char-in-string ?- ?  (capitalize fn)))))

  (defun jao-wget (url &optional user pwd)
    "Download URL using wget."
    (let* ((def (file-name-nondirectory url))
           (pmt (format "Save %s to: " url))
           (read-file-name-function nil)
           (dest (expand-file-name
                  (read-file-name pmt jao-sink-dir nil nil def)))
           (title (jao-wget--get-title dest))
           (src-url (jao-url-around-point t))
           (auth (when (and user pwd)
                   `(,(format "--http-user=%s" user)
                     ,(format "--http-password=%s" pwd)))))
      (switch-to-buffer-other-window (get-buffer-create "*downloads*"))
      (erase-buffer)
      (kill-new (format "[[doc:%s][%s]] (from [[%s][here]])"
                        (file-name-nondirectory dest)
                        (read-string "Title: " title)
                        (or src-url (file-name-directory url))))
      (apply 'make-term `("downloads" "wget" nil ,@auth "-O" ,dest ,url))))

  (defun jao-download (url &optional pws)
    "Download URL using wget"
    (interactive (list (jao--url-prompt)))
    (when url
      (let ((usr (and pws (read-string "Login name: ")))
            (pwd (and pws (read-passwd "Password: "))))
        (jao-wget url usr pwd))))

  (with-eval-after-load "embark"
    (define-key embark-url-map (kbd "d") #'jao-download))

Video

  (defvar jao-video--url-rx
    (format "^https?://\\(?:www\\.\\)?%s/.+"
            (regexp-opt '("youtu.be"
                          "youtube.com"
                          "blip.tv"
                          "vimeo.com"
                          "infoq.com")
                        t)))

  (defvar jao-video--ext-rx
    (format "^https?://.+/.+\\.%s" (regexp-opt '("mp3" "webm" "mp4"))))

  (defun jao-video--url-p (url)
    (or (string-match-p jao-video--url-rx url)
        (string-match-p jao-video--ext-rx url)))

  (defun jao--remote-run (url prg)
    (let ((args (format "%s %s" prg (shell-quote-argument url))))
      (start-process-shell-command prg nil args)))

  (defun jao--mpv (url &rest args) (jao--remote-run url "mpv"))
  (defun jao--vlc (url &rest args) (jao--remote-run url "vlc"))

  (defvar jao--video-player 'jao--mpv)

  (defun jao-view-video (url)
    "Tries to stream a video from the current or given URL"
    (interactive (list (jao--url-prompt)))
    (when url (funcall jao--video-player url)))

  (defun jao-maybe-view-video (url &rest _ignored)
    (interactive)
    (if (y-or-n-p "View video (y) or web page (n)? ")
        (jao-view-video url)
      (funcall jao-browse-url-function url)))

Web browsers

  (defun jao-www--buffer-p (b)
    (with-current-buffer b
      (or (derived-mode-p 'w3m-mode 'eww-mode)
          (and (boundp 'exwm-class-name)
               (member (buffer-local-value 'exwm-class-name b)
                       '("vlc" "mpv"))))))
  (jao-load-org "eww")

Browse URL

  (require 'browse-url)

  (setq browse-url-generic-program "~/bin/firehog")

  (defun jao-browse-with-external-browser (&rest url)
    "Browse with external hogging"
    (interactive "s")
    (let ((url (or (car url) (jao-url-around-point))))
      (if (not url)
          (message "No URL at point")
        (when (and (jao-exwm-enabled-p) (fboundp 'jao-exwm-firefox))
          (jao-exwm-firefox))
        (when (and jao-sway-enabled (fboundp 'jao-sway-firefox))
          (jao-sway-firefox))
        (browse-url-generic url))))
  (setq jao-browse-url-external-function 'jao-browse-with-external-browser)

  (defun jao--fln (url)
    (shell-quote-argument
     (if (string-match "^[^:]*:/*?\\(/?[^/].*\\)" url)
         (match-string-no-properties 1 url)
       url)))

  (defun jao--browse-doc (url search &optional no-add)
    (let* ((url (substring-no-properties url))
           (file (jao--fln url)))
      (when file
        (unless (file-exists-p file)
          (error "File %s does not exist" file))
        (jao-open-doc file))))

  (defun jao--make-file-rx (exts)
    (format "file:/?/?.+\\.%s$" (regexp-opt exts)))

  (defvar jao--see-exts
    (jao--make-file-rx '("jpg" "jpeg" "png" "mov" "wmv" "avi" "mp4")))

  (defvar jao--doc-exts
    (jao--make-file-rx '("ps" "ps.gz" "pdf" "dvi" "djvu" "chm")))

  (defvar jao-browse-url-wget-exts
    '("ps" "pdf" "dvi" "djvu" "zip" "gz" "tgz" "mp4" "mp3" "flv"))

  (defvar jao-browse-external-domains
    '("github.com" "gitlab.com" "slack.com" "meet.google.com"
      "twitter.com" "t.com" "linkedin.com" "bigml.com"))

  (defvar jao-browse--external-regexp
    (format "https?://.*%s\\(/.*\\)?"
            (regexp-opt jao-browse-external-domains)))

  (defun jao-wget--regexp ()
    (concat "^http[s]?://.+\\(\\."
      (mapconcat 'identity jao-browse-url-wget-exts "\\|\\.")
      "\\)\\'"))

  (defun jao--see (url &rest _r)
    (start-process-shell-command "see" nil (format "see %s" (jao--fln url))))

  (defun jao--find-file-other-window (url &rest _)
    (find-file-other-window (jao--fln url)))

  (use-package elpher :ensure t)

  (defun jao-elpher--browse (url &rest _) (elpher-go url))

  (defvar jao-browse--sound-rx
    (format "^https?://.*/.*\\.%s" (regexp-opt '("mp4" "mp3" "flv"))))

  (defun jao-browse-add-url-to-mpc (url &rest _)
    "Add the given URL to mpc's playing list, or just play it."
    (let ((p (yes-or-no-p (format "Play %s right now?" url))))
      (when p (jao-mpc-clear))
      (jao-mpc-add-url url)
      (if p (jao-mpc-play) (message "%s added to mpc queue" url))))

  (defun jao-browse-url-browse (&rest args)
    (apply jao-browse-url-function args))

  (setq browse-url-handlers
        `(("^\\(gemini\\|gopher\\)://.*" . jao-elpher--browse)
          (,jao--doc-exts . jao--browse-doc)
          (,jao--see-exts . jao--see)
          ("^file://?.+\\.html?$" . ,jao-browse-url-function)
          ("^file://?" . jao--find-file-other-window)
          (,jao-browse--external-regexp . ,jao-browse-url-external-function)
          ("^https?://.*\\.gotomeeting\\.com\\.*" . browse-url-chrome)
          (,jao-browse--sound-rx . jao-browse-add-url-to-mpc)
          (,(jao-wget--regexp) . jao-download)
          (jao-video--url-p . jao-maybe-view-video)
          ("." . jao-browse-url-browse)))

  (when (< emacs-major-version 28)
    (setf (alist-get 'jao-video--url-p browse-url-handlers nil t) nil)
    (setq browse-url-browser-function browse-url-handlers))

Subscribe rss using r2e

  (autoload 'View-quit "view")

  (defun jao-rss--find-url ()
    (save-excursion
      (when (derived-mode-p 'w3m-mode 'eww-mode)
        (if (fboundp 'w3m-view-source) (w3m-view-source) (eww-view-source)))
      (goto-char (point-min))
      (when (re-search-forward
             "type=\"application/\\(?:atom\\|rss\\)\\+xml\" +" nil t)
        (let ((url (save-excursion
                     (when (re-search-forward
                            "href=\"\\([^\n\"]+\\)\"" nil t)
                       (match-string-no-properties 1))))
              (title (when (re-search-forward
                            "\\(?:title=\"\\([^\n\"]+\\)\" +\\)" nil t)
                       (match-string-no-properties 1))))
          (cond ((derived-mode-p 'w3m-view-mode) (w3m-view-source))
                ((string-match-p ".*\\*eww-source\\b.*" (buffer-name))
                 (View-quit)))
          (when url (cons url (or title "")))))))

  (defun jao-rss2e-append (name url mbox)
    (with-current-buffer (find-file-noselect "~/.config/rss2email.cfg")
      (goto-char (point-max))
      (insert "[feed." name "]\nurl = " url)
      (insert "\nto = " mbox "+" name "@localhost")
      (insert "\nmaildir-mailbox = " mbox "\n\n")
      (save-buffer)))

  (defun jao-rss--feeds-dirs ()
    (mapcar (lambda (d) (cadr (split-string d "\\.")))
            (directory-files "~/.emacs.d/gnus/Mail/" nil "^feeds")))

  (defun jao-rss-subscribe (url)
    "Subscribe to a given RSS URL.  If URL not given, look for it."
    (interactive (list (or (jao-url-around-point)
                           (jao-rss--find-url)
                           (read-string "Feed URL: "))))
    (let* ((url+title (if (consp url) url (list url)))
           (url (car url+title))
           (title (cdr url+title))
           ;; (cats (cons "prog" (jao-notmuch--subtags "feeds")))
           (cats (jao-rss--feeds-dirs)))
      (if url
          (let ((url (if (string-match "^feed:" url) (substring url 5) url)))
            (when (y-or-n-p (format "Subscribe to <%s>? " url))
              (let* ((name (read-string "Feed name: " title))
                     (cat (completing-read "Category: " cats nil t))
                     (subs (format "r2e add %s '%s' feeds.%s@localhost"
                                   name url cat)))
                ;; (jao-rss2e-append name url cat)
                (shell-command-to-string subs)
                (shell-command (format "r2e run %s" name)))))
        (message "No feeds found"))))

Email

  (setq jao-afio-mail-function 'notmuch)
  ;; (setq jao-afio-mail-function 'gnus)
  (jao-load-org "email")

PDFs and other docs

doc-view

  (use-package doc-view
    :init
    (setq doc-view-cache-directory "~/.emacs.d/cache/docview"
          doc-view-resolution 110
          doc-view-continuous t
          doc-view-conversion-refresh-interval 1)

    :bind (:map doc-view-mode-map
                ("j" . doc-view-next-line-or-next-page)
                ("J" . doc-view-scroll-up-or-next-page)
                ("k" . doc-view-previous-line-or-previous-page)
                ("K" . doc-view-scroll-down-or-previous-page)))

  (use-package jao-doc-view
    :bind (:map doc-view-mode-map
                ("b" . jao-doc-view-back)
                ("B" . jao-doc-view-forward)
                ("S" . jao-doc-view-save-session)
                ("u" . jao-doc-view-visit-url)))

pdf-tools

  (use-package pdf-tools
    :ensure t
    :demand t
    :init
    (add-hook 'after-init-hook
              (lambda ()
                (setq pdf-view-midnight-colors
                      (cons (frame-parameter nil 'foreground-color)
                            (frame-parameter nil 'background-color)))))

    :config (pdf-tools-install)

    :diminish ((pdf-view-midnight-minor-mode . ""))

    :bind (:map pdf-view-mode-map
                (("C-c C-d" . pdf-view-midnight-minor-mode)
                 ("j" . pdf-view-next-line-or-next-page)
                 ("J" . pdf-view-scroll-up-or-next-page)
                 ("k" . pdf-view-previous-line-or-previous-page)
                 ("K" . pdf-view-scroll-down-or-previous-page))))

zathura

  (defun jao-zathura-file-info (title)
    (when (string-match "\\(.+\\) \\[\\(.+\\) (\\([0-9]+\\)/\\([0-9]+\\))\\]"
                        title)
      (list (expand-file-name (match-string 1 title))
            (string-to-number (match-string 3 title))
            (string-to-number (match-string 4 title))
            (match-string 2 title))))

  (defun jao-zathura-goto-org (&optional title)
    (when-let* ((title (or title (jao-shell-string "xdotool"
                                                   "getactivewindow"
                                                   "getwindowname")))
                (info (jao-zathura-file-info title))
                (file (jao-org-pdf-to-org-file (car info)))
                (page (cadr info))
                (pageno (or (car (last info)) page)))
      (jao-afio--goto-docs)
      (let* ((exists (file-exists-p file))
             (fn (file-name-nondirectory file))
             (lnk (format "[[doc:%s::%d][Page %s]]" fn page pageno)))
        (find-file file)
        (unless exists (jao-org-insert-doc-skeleton))
        (if (or (not exists) (y-or-n-p "Insert link?"))
            (insert lnk "\n")
          (kill-new lnk)
          (message "Link to %s (%s) killed" file page)))))

  (defun jao-zathura-open (file page)
    (let ((id (jao-shell-string (format "xdotool search --name %s"
                                        (file-name-nondirectory file)))))
      (if (string-blank-p id)
          (jao-shell-exec (format "zathura %s -P %s" file (or page 1)))
        (let* ((page (if page (format " && xdotool type %dg" page) ""))
               (cmd (format "xdotool windowactivate %s%s" id page)))
          (jao-shell-string cmd)))))

open pdfs

  (use-package saveplace-pdf-view
    :ensure t
    :demand t
    :after doc-view)

  (setq jao-open-doc-fun 'jao-find-or-open)
  (setq jao-org-open-pdf-fun 'jao-find-or-open)

  (defun jao-find-or-open (file &optional page height)
    (if (and jao-browse-doc-use-emacs-p window-system)
        (let* ((buffs (buffer-list))
               (b (catch 'done
                    (while buffs
                      (when (string-equal (buffer-file-name (car buffs)) file)
                        (throw 'done (car buffs)))
                      (setq buffs (cdr buffs))))))
          (jao-afio--goto-docs)
          (if b (pop-to-buffer b) (find-file file))
          (when page (jao-doc-view-goto-page page height)))
      (jao-zathura-open file page)))

  (defun jao-open-doc (&optional file page height)
    (interactive)
    (when-let (file (or file
                        (read-file-name "Document: "
                                        (concat jao-org-dir "/doc/"))))
      (funcall jao-open-doc-fun file page height)))

  (defun jao-select-pdf ()
    (interactive)
    (jao-buffer-same-mode '(pdf-view-mode doc-view-mode)
                          #'jao-afio--goto-docs))

epub

  (use-package nov
    :ensure t
    :after doc-view
    :init (setq nov-variable-pitch t
                nov-text-width 80)
    :config (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)))

transient

  (defun jao-org-pdf-goto-org-linking ()
    (interactive)
    (jao-org-pdf-goto-org 4))

  (jao-transient-major-mode doc-view
    ["Notes"
     ("o" "notes file" jao-org-pdf-goto-org)
     ("O" "notes file, linking" jao-org-pdf-goto-org-linking)]
    ["Navigation"
     ("b" "back jump" jao-doc-view-back)
     ("B" "forward jump" jao-doc-view-back)
     ("u" "visit URL" jao-doc-view-visit-url)]
    ["Slices"
     ("cb" "bounding box" doc-view-set-slice-from-bounding-box)
     ("cm" "using mouse" doc-view-set-slice-using-mouse)]
    ["Session"
     ("s" "load session" jao-afio-open-pdf-session)
     ("S" "save session" jao-doc-view-save-session)
     ("d" "visit cache directory" doc-view-dired-cache)])

  (with-eval-after-load "pdf-view"
    (jao-transient-major-mode pdf-view
      ["Notes"
       ("o" "notes file" jao-org-pdf-goto-org)
       ("O" "notes file, linking" jao-org-pdf-goto-org-linking)]
      ["Navigation"
       ("b" "back jump" pdf-history-backward)
       ("f" "forward jump" pdf-history-forward)]
      ["Session"
       ("s" "load session" jao-afio-open-pdf-session)
       ("S" "save session" jao-doc-view-save-session)]))

  ;; (transient-get-suffix 'jao-transient-pdf-view '(0 -1))

Shells and terms

shell modes

  (setq sh-basic-offset 2)
  ;; translates ANSI colors into text-properties, for eshell
  (autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
  (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

vterm

  (defvar jao-use-vterm nil)

  (use-package vterm
    :ensure t
    :demand t
    :commands (vterm vterm-mode)
    :init (setq vterm-kill-buffer-on-exit t
                vterm-copy-exclude-prompt t
                jao-use-vterm t)
    :config (jao-define-attached-buffer "\\*vterm\\*" 0.5)
    :bind (("<f3>" . vterm)
           :map vterm-mode-map ("C-c C-c" . vterm-send-C-c)))

  (defun jao-exec-in-vterm (cmd bname)
    (if (string-blank-p (or cmd ""))
        (vterm)
      (let ((vterm-shell cmd)
            (vterm-kill-buffer-on-exit t)
            (buff (generate-new-buffer bname)))
        (switch-to-buffer buff)
        (vterm-mode))))

term

  (defvar-local jao-term--cmd nil)

  (defun jao-term--find (cmd)
    (seq-find (lambda (b)
                (with-current-buffer b
                  (and (derived-mode-p 'term-mode 'vterm-mode)
                       (string= (or jao-term--cmd "") cmd))))
              (buffer-list)))

  (defun jao-exec-in-term (cmd &optional name)
    (if jao-use-vterm
        (jao-exec-in-vterm cmd name)
      (ansi-term "bash" name)
      (set-process-sentinel (get-buffer-process (current-buffer))
                            (lambda (process event)
                              (when (string= event "finished\n")
                                (kill-buffer (process-buffer process)))))
      (term-send-string nil (concat cmd " ; exit\n"))))

  (defmacro jao-def-exec-in-term (name cmd &rest prelude)
    `(defun ,(intern (format "jao-term-%s" name)) (&optional term)
       (interactive "P")
       ,@prelude
       (let ((jao-use-vterm (if term (not jao-use-vterm) jao-use-vterm)))
         (if-let ((b (jao-term--find ,cmd)))
             (pop-to-buffer b)
           (jao-exec-in-term ,cmd ,(format "*%s*" name))
           (setq-local jao-term--cmd ,cmd)))))

eshell

Basic custom
  (use-package eshell
    :init
    (setq eshell-directory-name "~/.emacs.d/eshell")
    (setq eshell-hist-ignoredups 'erase)

    (defun jao-eshell--outline ()
      (setq-local outline-regexp eshell-prompt-regexp))

    :hook (eshell-mode . jao-eshell--outline))
Colors
  (autoload 'ansi-color-apply "ansi-color")
  ;; (add-hook 'eshell-preoutput-filter-functions 'ansi-color-filter-apply)
  (add-hook 'eshell-preoutput-filter-functions 'ansi-color-apply)

  (use-package eshell-syntax-highlighting
    :after esh-mode
    :ensure t
    :config
    ;; Enable in all Eshell buffers.
    (eshell-syntax-highlighting-global-mode +1))
Visual commands
  (require 'em-term)
  ;;; commands using ansi scape seqs
  (dolist (c '("editor" "more" "wget" "dict" "vim" "links" "w3m" "guile"
               "ssh" "autossh" "zmore" "pager" "aptitude" "su" "htop" "top"
               "screen" "whizzml" "iex" "spt"))
    (add-to-list 'eshell-visual-commands c))

  (setq eshell-visual-subcommands '(("git" "log" "diff" "show")
                                    ("sudo" "vim")
                                    ("rebar3" "shell"))
        eshell-destroy-buffer-when-process-dies nil
        eshell-escape-control-x t)

  (use-package eshell-vterm :ensure t)

  (when jao-use-vterm (eshell-vterm-mode))
bol
  (defun jao-eshell-maybe-bol ()
    (interactive)
    (let ((p (point)))
      (eshell-bol)
      (if (= p (point))
          (beginning-of-line))))
Prompt
;; tracking git repos
(defun jao-eshell--git-dirty ()
  (shell-command-to-string "git diff-index --quiet HEAD -- || echo -n '*'"))

(use-package git-ps1-mode
  :ensure t
  :init (setq git-ps1-mode-showupstream "1"
              git-ps1-mode-showdirtystate "1"))

(defun jao-eshell--git-info ()
  (if (fboundp 'git-ps1-mode-get-current)
      (git-ps1-mode-get-current)
    (let ((desc (shell-command-to-string "git branch --no-color")))
      (when (string-match "^* \\(\\<.+\\>\\)" desc)
        (format "%s%s" (match-string 1 desc) (jao-eshell--git-dirty))))))

(defun jao-eshell--git-current-branch (suffix)
  (let ((desc (or (jao-eshell--git-info) "")))
    (cond ((and (string-empty-p desc) suffix) (format " (%s)" suffix))
          ((string-empty-p (or suffix "")) (format " (%s)" desc))
          (t (format " (%s %s)" desc suffix)))))

(defun jao-eshell--virtualenv ()
  (let ((venv (getenv "VIRTUAL_ENV")))
    (when (and venv (string-match ".*/\\([^/]+\\)/$" venv))
      (match-string-no-properties 1 venv))))

(defun jao-eshell-prompt-function ()
  (let* ((venv (jao-eshell--virtualenv))
         (venv (if venv (format "%s" venv) "")))
    (concat (abbreviate-file-name (eshell/pwd))
            (jao-eshell--git-current-branch venv)
            (if (= (user-uid) 0) " # " " $ "))))

(setq eshell-prompt-function 'jao-eshell-prompt-function)
in-term
  (defun eshell/in-term (prog &rest args)
    (switch-to-buffer
     (apply #'make-term (format "in-term %s %s" prog args) prog nil args))
    (term-mode)
    (term-char-mode))
Dir navigation
(use-package eshell-up
  :ensure t
  :config (setq eshell-up-print-parent-dir t))

(use-package eshell-autojump :ensure t)
Completion
  (defun jao-eshell-completion-capf ()
    (let* ((b (save-excursion (eshell-bol) (point)))
           (c (bash-completion-dynamic-complete-nocomint b (point) t)))
      (when (and c (listp c))
        (append c '(:exclusive no)))))

  (defun jao-eshell--set-up-completion ()
    (setq-local completion-styles '(basic partial-completion)
                completion-at-point-functions
                '(jao-eshell-completion-capf
                  pcomplete-completions-at-point t)))

  (use-package bash-completion
    :ensure t
    :hook (eshell-mode . jao-eshell--set-up-completion))
History
  (setq eshell-history-size 10000)
  ;;; Fix eshell history completion to allow !$
  ;; This is done by advising eshell-history-reference to expand !$
  ;; into !!:$ which works...
  (defadvice jao-eshell-history-reference (before ben-fix-eshell-history)
    "Fixes eshell history to allow !$ as abbreviation for !!:$"
    (when (string= (ad-get-arg 0) "!$") (ad-set-arg 0 "!!:$")))
  (ad-activate 'jao-eshell-history-reference)

This is needed if we want ! to expand in emacs >= 27

  (add-hook 'eshell-expand-input-functions #'eshell-expand-history-references)
Toggle

  (use-package jao-eshell-here
    :demand t
    :config (jao-define-attached-buffer "^\\*eshell" 0.5)
    :bind (("<f1>" . jao-eshell-here-toggle)
           ("C-<f1>" . jao-eshell-here-toggle-new)))
Workarounds
  ;; at some point, bash completion started insertig the TAB
  ;; after the commands ends
  (defun jao-eshell--clean-prompt ()
    (eshell-bol)
    (ignore-errors (kill-line)))

  (add-hook 'eshell-after-prompt-hook 'jao-eshell--clean-prompt)
Keybindings
  (defun jao-eshell--kbds ()
    (define-key eshell-mode-map "\C-a" 'jao-eshell-maybe-bol)
    (define-key eshell-mode-map "\C-ci" 'consult-outline))
  ;; Eshell mode is sillily re-creating its mode map
  ;; in every buffer in emacs < 28.
  (if (> emacs-major-version 27)
      (jao-eshell--kbds)
    (add-hook 'eshell-mode-hook #'jao-eshell--kbds))

Version control and CI

General options

(setq vc-follow-symlinks t)
(setq auto-revert-check-vc-info nil)

Diff fringe indicators (diff-hl)

  (use-package diff-hl
    :ensure t
    :custom ((diff-hl-draw-borders nil)
             (diff-hl-side 'right)
             (diff-hl-margin-symbols-alist
              '((insert . "+")
                (delete . "-")
                (change . "~")
                (unknown . "?")
                (ignored . "i"))))
    :config
    (map-keymap (lambda (_k cmd)
                  (put cmd 'repeat-map 'diff-hl-command-map))
                diff-hl-command-map)
    (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)
    (when (jao-colors-scheme-dark-p) (diff-hl-margin-mode 1)))

  (global-diff-hl-mode 1)

Git config files: more informative diffs

See Informative diff hunks for Emacs Lisp and Org | Protesilaos Stavrou

  *.clj  diff=lisp
  *.cljc  diff=lisp
  *.cljs  diff=lisp
  *.lisp  diff=lisp
  *.el    diff=lisp
  *.org   diff=org
  [diff "lisp"]
xfuncname = "^(((;;;+ )|\\(|([ \t]+\\(((cl-|el-patch-)?def(un|var|macro|method|custom)|gb/))).*)$"
  [diff "org"]
xfuncname = "^(\\*+ +.*)$"

Magit and forge

  (use-package magit
    :ensure t
    :commands magit-status
    :init
    (setq magit-status-initial-section nil
          magit-define-global-key-bindings nil
          magit-completing-read-function 'magit-builtin-completing-read
          magit-display-buffer-function
          'magit-display-buffer-fullcolumn-most-v1
          magit-delete-by-moving-to-trash nil
          magit-last-seen-setup-instructions "1.4.0"
          magit-log-edit-confirm-cancellation t
          magit-omit-untracked-dir-contents t
          magit-process-connection-type nil
          magit-push-always-verify nil
          magit-repository-directories
          '(("/home/jao/usr/bigml" . 2)
            ("/home/jao/usr/jao" . 2)
            ("/home/jao/lib/elisp" . 3)
            ("/usr/local/src" . 1))
          magit-save-repository-buffers 'dontask
          magit-section-visibility-indicator '("…" . t)
          magit-status-buffer-switch-function 'switch-to-buffer
          magit-status-show-hashes-in-headers t)
    :config

    (use-package forge
      :ensure t
      :demand t
      :init
      (setq forge-topic-list-limit (cons 100 -1)
            forge-pull-notifications nil))

    (add-hook 'magit-status-sections-hook #'forge-insert-assigned-pullreqs t)
    (add-hook 'magit-status-sections-hook #'forge-insert-assigned-issues t)

    :bind (("<f2>" . magit-status)
           (:map forge-topic-mode-map ("M-w" . copy-region-as-kill))))

  (use-package code-review
    :ensure t
    :after forge
    :bind (:map magit-status-mode-map
                ("C-c C-r" . code-review-forge-pr-at-point)))

Eldoc for magit status/log buffers

Using Eldoc with Magit.

  (defun jao-magit-eldoc-for-commit (_callback)
    (when-let ((commit (magit-commit-at-point)))
      (with-temp-buffer
        (magit-git-insert "show"
                          "--format=format:%an <%ae>, %ar"
                          (format "--stat=%d" (window-width))
                          commit)
        (goto-char (point-min))
        (put-text-property (point-min) (line-end-position) 'face 'bold)
        (buffer-string))))

  (defun jao-magit-eldoc-setup ()
    (add-hook 'eldoc-documentation-functions
              #'jao-magit-eldoc-for-commit nil t)
    (eldoc-mode 1))

  (add-hook 'magit-log-mode-hook #'jao-magit-eldoc-setup)
  (add-hook 'magit-status-mode-hook #'jao-magit-eldoc-setup)

  (with-eval-after-load "eldoc"
    (eldoc-add-command 'magit-next-line)
    (eldoc-add-command 'magit-previous-line)
    (eldoc-add-command 'magit-section-forward)
    (eldoc-add-command 'magit-section-backward))

Other git packages

  (use-package git-timemachine :ensure t)

  ;; git config --local git-link.remote / git-link.branch
  (use-package git-link :ensure t)

  (use-package git-modes :ensure t)

Jenkins

GitHub - rmuslimov/jenkins.el: Jenkins plugin for emacs

  (use-package jenkins
    :ensure t
    :init
    ;; one also needs jenkins-api-token, jenkins-username and jenkins-url
    ;; optionally: jenkins-colwidth-id, jenkins-colwidth-last-status
    (setq jenkins-colwidth-name 35)
    :config
    (defun jao-jenkins-first-job (&rest _)
      (interactive)
      (goto-char (point-min))
      (when (re-search-forward "^- Job" nil t)
        (goto-char (match-beginning 0))))
    (add-hook 'jenkins-job-view-mode-hook #'jao-jenkins-first-job)
    (advice-add 'jenkins-job-render :after #'jao-jenkins-first-job)

    (defun jenkins-refresh-console-output ()
      (interactive)
      (let ((n (buffer-name)))
        (when (string-match "\\*jenkins-console-\\([^-]+\\)-\\(.+\\)\\*$" n)
          (jenkins-get-console-output (match-string 1 n) (match-string 2 n))
          (goto-char (point-max)))))

    :bind (:map jenkins-job-view-mode-map
                (("n" . next-line)
                 ("p" . previous-line)
                 ("f" . jao-jenkins-first-job)
                 ("RET" . jenkins--show-console-output-from-job-screen))
                :map jenkins-console-output-mode-map
                (("n" . next-line)
                 ("p" . previous-line)
                 ("g" . jenkins-refresh-console-output))))

Programming

Automatic modes

  (add-to-list 'auto-mode-alist '("\\.mix\\'" . hexl-mode))
  (add-to-list 'auto-mode-alist '("\\.m4\\'" . m4-mode))
  (add-to-list 'auto-mode-alist '("\\.am\\'" . makefile-mode))
  (add-to-list 'auto-mode-alist '("\\.pl\\'\\|\\.pm\\'" . cperl-mode))

Smart scan

  (use-package smartscan
    :ensure t
    :commands smartscan-mode
    :init (add-hook 'prog-mode-hook #'smartscan-mode)
    :diminish)

Paredit and parens

  (require 'paren)
  (show-paren-mode t)
  (setq show-paren-context-when-offscreen t)

  (use-package paredit
    :ensure t
    :commands paredit-mode
    :hook ((pie-mode . paredit-mode)
           (scheme-mode . paredit-mode)
           (clojure-mode . paredit-mode)
           (emacs-lisp-mode . paredit-mode)
           (eval-expression-minibuffer-setup . paredit-mode)
           (lisp-interaction-mode . disable-paredit-mode))
    :diminish ((paredit-mode . " þ")))

Diff/Ediff

  (setq ediff-split-window-function 'split-window-horizontally)
  (setq ediff-make-buffers-readonly-at-startup nil)
  (setq ediff-window-setup-function 'ediff-setup-windows-plain)
  (setq ediff-keep-variants nil)

Compilation

Compilation mode options
(require 'compile)
(setq compilation-scroll-output t)
(setq compilation-error-regexp-alist
      (remove 'omake compilation-error-regexp-alist))
;; (add-hook 'compilation-mode-hook #'visual-line-mode)
Mode line (no "Compiling"!)
  (require 'compile)
  (diminish 'compilation-minor-mode " ‡")
  (when (< emacs-major-version 27)
    (setcdr (assq 'compilation-in-progress minor-mode-alist) '(" ‡")))
  (when (> emacs-major-version 26)
    (setcdr (assq 'compilation-in-progress mode-line-modes) '("‡ ")))
Colorizing compilation buffer
  (setq compilation-message-face 'default)
  (require 'ansi-color)
  (defun endless/colorize-compilation ()
    "Colorize from `compilation-filter-start' to `point'."
    (let ((inhibit-read-only t))
      (ansi-color-apply-on-region
       compilation-filter-start (point))))

  (add-hook 'compilation-filter-hook #'endless/colorize-compilation)
Compilation commands
  (use-package jao-compilation
    :commands jao-compilation-setup
    :bind (("C-c C" . compile)
           ("C-c c" . jao-compile)))
  (jao-compilation-setup)
Next error
  (setq next-error-find-buffer-function
        #'next-error-buffer-on-selected-frame
        next-error-verbose t)

Flymake

  (use-package flymake
    :ensure t
    :custom ((flymake-mode-line-format '(" " flymake-mode-line-counters)))
    :hook ((haskell-mode . flymake-mode))
    :config (jao-define-attached-buffer "^\\*Flymake diagnostics .*\\*\\'")
    :bind (:map flymake-mode-map (("s-f n" . flymake-goto-next-error)
                                  ("s-f p" . flymake-goto-prev-error)
                                  ("s-f i" . flymake-show-diagnostic)
                                  ("s-f f" . flymake-show-diagnostics-buffer)
                                  ("s-f l" . consult-flymake))))

Workarounds

  (setq c-type-finder-time-slot nil)

Programming languages

Elisp

  (use-package edit-list :ensure t)
  (use-package package-lint :ensure t)

  (defun elisp-disassemble (function)
    (interactive (list (function-called-at-point)))
    (disassemble function))

  (defun elisp-pp (sexp)
    (with-output-to-temp-buffer "*Pp Eval Output*"
      (pp sexp)
      (with-current-buffer standard-output
        (emacs-lisp-mode))))

  (defun elisp-macroexpand (form)
    (interactive (list (form-at-point 'sexp)))
    (elisp-pp (macroexpand form)))

  (defun elisp-macroexpand-all (form)
    (interactive (list (form-at-point 'sexp)))
    (elisp-pp (macroexpand-all form)))

  (defun elisp-find-definition (name)
    (interactive (list (thing-at-point 'symbol)))
    (cond (name
           (let ((symbol (intern-soft name))
                 (search (lambda (fun sym)
                           (let* ((r (save-excursion (funcall fun sym)))
                                  (buffer (car r))
                                  (point (cdr r)))
                             (cond ((not point)
                                    (error "Found no definition for %s in %s"
                                           name buffer))
                                   (t
                                    (switch-to-buffer buffer)
                                    (goto-char point)
                                    (recenter 1)))))))
             (cond ((fboundp symbol)
                    (xref-push-marker-stack)
                    (funcall search 'find-function-noselect symbol))
                   ((boundp symbol)
                    (xref-push-marker-stack)
                    (funcall search 'find-variable-noselect symbol))
                   (t
                    (message "Symbol not bound: %S" symbol)))))
          (t (message "No symbol at point"))))


  (defun elisp-bytecompile-and-load ()
    (interactive)
    (or buffer-file-name
        (error "The buffer must be saved in a file first"))
    (require 'bytecomp)
    ;; Recompile if file or buffer has changed since last compilation.
    (when  (and (buffer-modified-p)
                (y-or-n-p (format "save buffer %s first? " (buffer-name))))
      (save-buffer))
    (let ((filename (expand-file-name buffer-file-name)))
      (with-temp-buffer
        (byte-compile-file filename t))))

  (use-package elisp-mode
    :bind (:map emacs-lisp-mode-map
                (("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)
                 ("M-." . elisp-find-definition)
                 ("M-," . pop-tag-mark)
                 ("C-c <" . lc-show-package-summary))))

Erlang

  (use-package erlang
    :disabled t
    :ensure t
    :custom ((inferior-erlang-machine-options '("shell"))
             (inferior-erlang-machine "rebar3")
             (inferior-erlang-shell-type nil)
             (erlang-indent-level 4))

    ;; :bind (:map erlang-mode-map (("C-c C-z" . jao-vterm-repl-pop-to-repl)))

    :init
    ;; (require 'jao-vterm-repl)
    ;; (add-to-list 'auto-mode-alist '("^rebar\\.config\\`" . erlang-mode))
    ;; (jao-vterm-repl-register "rebar.config" "rebar3 shell" "^[0-9]+> ")

    :config
    ;; (defun jao-erlang-current-module ()
    ;;   (when (save-excursion (goto-char (point-min))
    ;;                         (re-search-forward "^-module(\\([^)]+\\))" nil t))
    ;;     (match-string-no-properties 1)))

    ;; (defun jao-erlang-compile (arg)
    ;;   (interactive "P")
    ;;   (save-some-buffers)
    ;;   (when-let ((mname (jao-erlang-current-module)))
    ;;     (with-current-buffer (jao-vterm-repl)
    ;;       (vterm-send-string (format "c(%s).\n" mname))
    ;;       (sit-for 0)
    ;;       (setq compilation-last-buffer (current-buffer))
    ;;       (when arg (jao-vterm-repl-pop-to-repl)))))

    ;; (setq erlang-shell-function #'jao-vterm-repl
    ;;       erlang-shell-display-function #'jao-vterm-repl-pop-to-repl
    ;;       erlang-compile-function #'jao-erlang-compile)
    )

Idris

  (use-package idris-mode
    :ensure t
    :custom ((idris-interpreter-path "idris2")
             (idris-pretty-printer-width 80)
             (idris-repl-history-file "~/.emacs.d/cache/idris-history.eld")
             (idris-stay-in-current-window-on-compiler-error t)))
  (jao-define-attached-buffer "^\\*idris.*")

Clojure

  (use-package clojure-mode
    :ensure t
    :config
    (defun jao-clojure--fix-things ()
      (setq-local completion-styles '(basic partial-completion emacs22))
      (eldoc-mode 1)
      (setq mode-name "λ"))
    :hook (clojure-mode . jao-clojure--fix-things))

  (use-package cider
    :ensure t
    :commands cider-mode
    :init (setq cider-annotate-completion-candidates t
                cider-auto-select-error-buffer nil
                cider-auto-select-test-report-buffer nil
                cider-eldoc-display-for-symbol-at-point t
                cider-eldoc-ns-function #'identity ;; #'cider-last-ns-segment
                cider-enrich-classpath nil
                cider-lein-parameters "repl :headless :host localhost"
                cider-mode-line  " ÷"
                cider-prompt-for-symbol nil
                cider-repl-history-file
                (expand-file-name "~/.emacs.d/cache/cider.history")
                cider-repl-pop-to-buffer-on-connect nil
                cider-repl-use-pretty-printing t
                cider-show-error-buffer 'except-in-repl
                cider-test-show-report-on-success nil
                cider-use-fringe-indicators nil
                cider-use-overlays nil
                clojure-docstring-fill-column 72
                nrepl-prompt-to-kill-server-buffer-on-quit nil))

  (with-eval-after-load "cider-test"
    (advice-add 'cider-scale-background-color :override
                (lambda () (frame-parameter nil 'background-color)))
    (setq cider-test-items-background-color
          (frame-parameter nil 'background-color)))

  (use-package cider-macroexpansion
    :after cider
    :diminish " µ")

Geiser

  (defun jao-org--set-geiser-impl () (setq-local geiser-repl--impl 'guile))
  (add-hook 'org-mode-hook #'jao-org--set-geiser-impl)

  (jao-load-path "geiser/geiser/elisp")
  (use-package geiser
    :init
    (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history"
          geiser-repl-startup-time 20000
          geiser-debug-auto-display-images-p t
          geiser-log-verbose-p t
          geiser-active-implementations '(guile)
          geiser-default-implementation 'guile))

  (jao-load-path "geiser/guile")
  (use-package geiser-guile)

  ;; (jao-load-path "geiser/mit")
  ;; (use-package geiser-mit)

  ;; (jao-load-path "geiser/chicken")
  ;; (use-package geiser-chicken)

  ;; (jao-load-path "geiser/chibi")
  ;; (use-package geiser-chibi)

  ;; (jao-load-path "geiser/chez")
  ;; (use-package geiser-chez
  ;;   :init (setq geiser-chez-binary "scheme"))

  ;; (jao-load-path "geiser/gambit")
  ;; (use-package geiser-gambit)

  ;; (jao-load-path "geiser/gauche")
  ;; (use-package geiser-gauche)

  (jao-define-attached-buffer "^\\* ?Geiser .*\\*" 0.4)
  (jao-define-attached-buffer "^\\* Guile REPL \\*" 0.4)

Haskell

packages
  (use-package haskell-mode
    :ensure t
    :custom
    ((inferior-haskell-find-project-root t)
     (haskell-check-remember-last-command-p nil)
     (haskell-font-lock-symbols nil)
     (haskell-interactive-popup-errors nil)
     (haskell-process-auto-import-loaded-modules t)
     (haskell-process-log t)
     (haskell-process-suggest-remove-import-lines t)
     (haskell-process-suggest-hoogle-imports t)
     (haskell-process-type 'cabal-repl)
     (haskell-process-use-presentation-mode t)
     (haskell-stylish-on-save nil))

    :config
    (defun jao-haskell-hoogle (query)
      (interactive (hoogle-prompt))
      (haskell-hoogle query t))

    (put 'haskell-process-args-cabal-repl
         'safe-local-variable
         (apply-partially #'seq-every-p #'stringp))

    (require 'haskell-doc)
    (dolist (h '(interactive-haskell-mode
                 haskell-doc-mode
                 haskell-decl-scan-mode
                 haskell-indentation-mode
                 haskell-auto-insert-module-template))
      (add-hook 'haskell-mode-hook h))

    :bind (:map haskell-mode-map
                (("C-c C-d" . jao-haskell-hoogle)
                 ("C-c h" . haskell-hoogle-lookup-from-local)
                 ("C-c C-c" . haskell-compile))))

  (require 'haskell)

  (diminish 'interactive-haskell-mode " λ")
  (diminish haskell-doc-mode)
  (diminish haskell-decl-scan-mode)

  (jao-define-attached-buffer "\\*hoogle\\*.*")

  ;; needs cabal install apply-refact
  (use-package hlint-refactor
    :ensure t
    :after (haskell-mode)
    :diminish ""
    :hook (haskell-mode . hlint-refactor-mode))
transient
  (jao-transient-major-mode haskell
    ["Imports"
     ("in" "Navigate imports" haskell-navigate-imports)
     ("if" "Format imports" haskell-mode-format-imports)
     ("is" "Sort imports" haskell-sort-imports)
     ("ia" "Align imports" haskell-align-imports)]
    ["Code"
     ("c" "Compile" haskell-compile)
     ("s" "stylish on buffer" haskell-mode-stylish-buffer)]
    ["Hoogle"
     ("h" "Hoogle" jao-haskell-hoogle)
     ("H" "Hoogle from local server" haskell-hoogle-lookup-from-local)])

Pie

  (jao-load-path "pie")
  (use-package pie
    :demand t
    :commands (pie-mode))

Lisp

  (use-package sly
    :ensure t
    :init (setq inferior-lisp-program "sbcl")
    :config (sly-setup))

  (use-package sly-quicklisp
    :after (sly)
    :ensure t)

Prolog

  (use-package ediprolog :ensure t)

  (use-package prolog
    :ensure t
    :commands (run-prolog prolog-mode mercury-mode)
    :init (progn
            (setq prolog-system 'swi)
            (add-to-list 'auto-mode-alist '("\\.pl$" . prolog-mode))
            (setq prolog-consult-string '((t "[%f].")))
            (setq prolog-program-name
                  '(((getenv "EPROLOG") (eval (getenv "EPROLOG")))
                    (eclipse "eclipse")
                    (mercury nil)
                    (sicstus "sicstus")
                    (swi "swipl")
                    (t "prolog")))))

Racket

  (use-package racket-mode
    :ensure t
    :init (setq racket-show-functions '(racket-show-echo-area)
                racket-documentation-search-location 'local)
    :config
    (jao-define-attached-buffer "\\`\\*Racket REPL")
    (jao-define-attached-buffer "\\`\\*Racket Describe" 0.5)
    (add-hook 'racket-mode-hook #'paredit-mode)
    (require 'racket-xp)
    (add-hook 'racket-mode-hook #'racket-xp-mode)
    :bind (:map racket-xp-mode-map (("C-c C-S-d" . racket-xp-documentation)
                                    ("C-c C-d" . racket-xp-describe))))

Python

Virtual envs (with eshell support)

See also the docs.

  (use-package virtualenvwrapper
    :ensure t
    :config
    (venv-initialize-eshell)
    (jao-compilation-env "VIRTUAL_ENV"))

Text/data formats

YAML

  (use-package yaml-mode :ensure t)

JSON

  (use-package json-mode :ensure t)
  ;; (use-package json-navigator :ensure nil)

Graphics

Images

  (setq image-use-external-converter t)

Gnuplot

  (use-package gnuplot
    :ensure t
    :commands (gnuplot-mode gnuplot-make-buffer)
    :init (add-to-list 'auto-mode-alist '("\\.gp$" . gnuplot-mode)))

Maps

  (use-package osm
    :ensure t
    :init
    (with-eval-after-load 'org (require 'osm-ol))
    :config
    (transient-define-prefix jao-transient-osm ()
      ["Open Street Maps"
       ("s" "search" osm-search)
       ("g" "goto" osm-goto)
       ("b" "jump to bookmark" osm-bookmark-jump)
       ("t" "server" osm-server)])
    :bind ("C-c M" . #'jao-transient-osm))

Network

nm applet

  (jao-shell-def-exec jao-nm-applet "nm-applet")

  (defun jao-toggle-nm-applet ()
    (interactive)
    (if (jao-shell-running-p "nm-applet")
        (jao-shell-string "killall nm-applet")
      (jao-nm-applet)))

enwc

  (use-package enwc
    :ensure t
    :custom ((enwc-default-backend 'nm)
             (enwc-wired-device "wlp164s0")
             (enwc-wireless-device "wlp164s0")
             (enwc-display-mode-line nil)))

bluetooth

(use-package bluetooth :ensure t)

vpn

  (use-package jao-mullvad :demand t)

ssh

  (use-package tramp)
  (defun jao-tramp-hosts ()
    (seq-uniq
     (mapcan (lambda (x)
               (remove nil (mapcar 'cadr (apply (car x) (cdr x)))))
             (tramp-get-completion-function "ssh"))
     #'string=))

  (defun jao-ssh ()
    (interactive)
    (let ((h (completing-read "Host: " (jao-tramp-hosts))))
      (jao-afio-goto-scratch)
      (jao-exec-in-term (format "ssh %s" h) (format "*ssh %s*" h))))

Chats

circe

  (defvar jao-libera-channels '())
  (defvar jao-oftc-channels '())
  (defvar jao-bitlbee-channels '())

  (use-package circe
    :ensure t
    :bind (:map circe-channel-mode-map
                (("C-c C-a" . lui-track-jump-to-indicator)))
    :init
    (setq circe-chat-buffer-name "{target}"
          circe-default-realname "https://jao.io"
          circe-default-part-message ""
          circe-default-quit-message ""
          circe-ignore-list nil
          circe-server-coding-system '(undecided . undecided)
          circe-server-killed-confirmation 'ask-and-kill-all
          circe-server-auto-join-default-type :after-auth
          circe-format-say "({nick}) {body}"
          circe-format-self-say "(jao) {body}"
          circe-new-buffer-behavior 'ignore
          circe-new-buffer-behavior-ignore-auto-joins t
          circe-nickserv-ghost-style 'after-auth
          circe-prompt-string ": "
          circe-completion-suffix ", "
          circe-reduce-lurker-spam t

          circe-nick-next-function
          (lambda (old)
            (replace-regexp-in-string "-" "`" (circe-nick-next old)))

          circe-lagmon-mode-line-format-string "" ;;  "%.0f "
          circe-lagmon-mode-line-unknown-lag-string "" ;; "? "
          circe-lagmon-timer-tick 120
          circe-lagmon-reconnect-interval 180

          lui-max-buffer-size 30000
          lui-fill-column 80
          lui-time-stamp-position 'right
          lui-time-stamp-format "%H:%M"
          lui-flyspell-p nil

          lui-track-indicator 'fringe
          lui-track-behavior 'before-tracking-next-buffer)
    :config

    (defun circe-command-RECOVER (&rest ignore)
      "Recover nick"
      (let* ((fn (jao--get-user/password "freenode"))
             (u (car fn))
             (p (cadr fn)))
        (circe-command-MSG "nickserv" (format "IDENTIFY %s %s" u p))
        (circe-command-MSG "nickserv" (format "GHOST %s" u))
        (circe-command-MSG "nickserv" (format "RELEASE %s" u))
        (circe-command-NICK u)))

    (defun circe-command-NNICKS (&rest _)
      "Echo number of nicks"
      (circe-display-server-message
       (format "%d nicks in this channel" (length (circe-channel-nicks)))))

    (advice-add 'circe-command-NAMES :after #'circe-command-NNICKS)

    (setq circe-network-options
          (let ((up (jao--get-user/password "libera"))
                (oup (jao--get-user/password "oftc"))
                (bup (jao--get-user/password "bitlbee")))
            `(("Libera Chat"
               :nick ,(car up) :channels ,jao-libera-channels
               :tls t :sasl-username ,(car up) :sasl-password ,(cadr up))
              ("OFTC" :nick ,(car oup) :channels ,jao-oftc-channels
               :nickserv-password ,(cadr oup)
               :tls t :sasl-username ,(car oup) :sasl-password ,(cadr oup))
              ("Bitlbee"
               :host "127.0.0.1" :nick ,(car bup)
               :channels ,jao-bitlbee-channels
               :lagmon-disabled t
               :nickserv-password ,(cadr bup) :user ,(car bup)))))

    (jao-shorten-modes 'circe-channel-mode
                       'circe-server-mode
                       'circe-query-mode)

    (enable-lui-track)
    (circe-lagmon-mode)
    (enable-circe-display-images))

slack

How to get a token: It's easyish! Open and sign into the slack customization page, e.g. https://my.slack.com/customize, right click anywhere > inspect element. Open the console and paste:

window.prompt("your api token is: ", TS.boot_data.api_token)

Lately things are iffy. We've needed to add the :override to slack-counts update, and it might be needed to replace slack-conversations-view by slack-conversations-history

  (use-package slack
    :commands (slack-start)
    :init
    (setq slack-alert-icon (jao-data-file "slack.svg")
          slack-buffer-emojify nil
          slack-buffer-create-on-notify t
          slack-display-team-name t
          slack-typing-visibility 'never ;; 'buffer, 'frame
          slack-profile-image-file-directory "/tmp/slack-imgs/"
          slack-image-file-directory "/tmp/slack-imgs/"
          slack-file-dir "~/var/download/slack/"
          slack-prefer-current-team t
          slack-message-tracking-faces '(warning)
          slack-log-level 'warn
          slack-message-custom-notifier (lambda (msg room team) room))
    :bind (:map slack-mode-map (("@" . slack-message-embed-mention)
                                ("#" . slack-message-embed-channel))
           :map slack-message-buffer-mode-map
           (("C-c C-e" . slack-message-edit)
            ("C-c C-a" . slack-file-upload)))
    :config
    (dolist (f (list slack-file-dir slack-image-file-directory))
      (when (not (file-exists-p f)) (make-directory f)))

    (jao-shorten-modes 'slack-message-buffer-mode
                       'slack-thread-message-buffer-mode)
    (jao-tracking-faces 'warning)

    (jao-define-attached-buffer "\\*Slack .+ Edit Message [0-9].+" 20))

telegram

  (use-package telega
    :ensure t
    :custom
    (telega-use-tracking-for '(unmuted) ;; '(or unmuted mention)
     telega-rainbow-color-custom-for nil
     telega-msg-rainbow-title nil
     telega-sticker-set-download t)
    :config
    (define-key global-map (kbd "C-c C-t") telega-prefix-map)
    (setq telega-chat-show-avatars nil
          telega-chat-prompt-format ">> "
          telega-root-show-avatars nil
          telega-emoji-use-images nil
          telega-temp-dir "/tmp/telega"
          telega-symbol-checkmark "·"
          telega-symbol-heavy-checkmark "×"
          telega-symbol-verified "*"
          telega-mode-line-string-format
          '(:eval (telega-mode-line-unread-unmuted)))
    (with-eval-after-load "tracking"
      (jao-shorten-modes 'telega-chat-mode)
      (jao-tracking-faces 'telega-tracking))
    (telega-mode-line-mode 1))

startup

  (defun jao-chats (&optional p)
    (interactive "P")
    (when (or p (y-or-n-p "Connect to slack? "))
      (slack-start))
    (when (or p (y-or-n-p "Connect to telegram? "))
      (telega))
    (when (or p (y-or-n-p "Connect to libera? "))
      (unless (get-buffer "irc.libera.chat:6697")
        (circe "Libera Chat"))))

  (defun jao-all-chats () (interactive) (jao-chats t))

  (defun jao-chats-telega ()
    (interactive)
    (jao-buffer-same-mode '(telega-root-mode telega-chat-mode)))

  (defun jao-chats-slack ()
    (interactive)
    (jao-buffer-same-mode 'slack-message-buffer-mode))

  (defun jao-chats-irc ()
    (interactive)
    (jao-buffer-same-mode '(circe-channel-mode circe-query-mode erc-mode)))

Multimedia

mixer

  (defun jao-mixer-get-level (&optional dev)
    (interactive)
    (let* ((dev (or dev "Master"))
           (s (shell-command-to-string (format "amixer sget %s" dev)))
           (s (car (last (split-string s "\n" t)))))
      (when (string-match ".*Front .*\\[\\([0-9]+\\)%\\] .*" s)
        (let ((level (match-string 1 s)))
          (message "%s level: %s%%" dev level)
          (string-to-number level)))))

  (defun jao-mixer-set (dev v)
    (jao-shell-string "amixer sset" dev v)
    (jao-mixer-get-level dev))

  (defun jao-mixer-master-toggle ()
    (interactive)
    (jao-mixer-set "Master" "toggle"))

  (defun jao-mixer-master-up ()
    (interactive)
    (jao-mixer-set "Master" "10%+"))

  (defun jao-mixer-master-down ()
    (interactive)
    (jao-mixer-set "Master" "10%-"))

  (defun jao-mixer-capture-up ()
    (interactive)
    (jao-mixer-set "Capture" "10%+"))

  (defun jao-mixer-capture-down ()
    (interactive)
    (jao-mixer-set "Capture" "10%-"))

  (jao-shell-def-exec jao-audio-applet "pasystray")

  (defun jao-toggle-audio-applet ()
    (interactive)
    (if (string-empty-p (jao-shell-string "pidof pasystray"))
        (jao-audio-applet)
      (jao-shell-string "killall pasystray")))

  (global-set-key (kbd "<f4>") #'jao-toggle-audio-applet)

mpris

  (defun jao-mpris-lyrics (&optional force)
    (interactive "P")
    (jao-show-lyrics force #'jao-mpris-artist-title))

  (use-package jao-mpris :demand t)

  (defalias 'jao-streaming-list #'ignore)
  (defalias 'jao-streaming-like #'ignore)
  (defalias 'jao-streaming-dislike #'ignore)
  (defalias 'jao-streaming-lyrics #'jao-mpris-lyrics)
  (defalias 'jao-streaming-toggle #'jao-mpris-play-pause)
  (defalias 'jao-streaming-next #'jao-mpris-next)
  (defalias 'jao-streaming-prev #'jao-mpris-previous)
  (defalias 'jao-streaming-current #'jao-mpris-show-osd)
  (defalias 'jao-streaming-seek #'jao-mpris-seek)
  (defalias 'jao-streaming-seek-back #'jao-mpris-seek-back)
  (defalias 'jao-streaming-volume #'jao-mpris-vol)
  (defalias 'jao-streaming-volume-down #'jao-mpris-vol-down)

  (jao-mpris-register "playerctld"
                      :session (if jao-modeline-in-minibuffer -10 70))

mpc

  (use-package jao-mpc
    :demand t
    :commands jao-mpc-setup)

  (defvar jao-mopidy-port 6669)
  (defvar jao-mpc-last-port nil)

  (defun jao-mpc-toggle-port ()
    (interactive)
    (setq jao-mpc-last-port (unless jao-mpc-last-port jao-mopidy-port)
          jao-mpc-port jao-mpc-last-port))

  (jao-mpc-setup jao-mopidy-port (if jao-modeline-in-minibuffer -10 70))

  (defun jao-mpc-pport (&optional mop)
    (cond ((or mop (jao-mpc--playing-p jao-mopidy-port)) jao-mopidy-port)
          ((jao-mpc--playing-p) nil)
          (t jao-mpc-last-port)))

  (defmacro jao-defun-play (name &optional mpc-name)
    (let ((arg (gensym)))
      `(defun ,(intern (format "jao-player-%s" name)) (&optional ,arg)
         (interactive "P")
         (,(intern (format "jao-mpc-%s" (or mpc-name name)))
          (setq jao-mpc-last-port (jao-mpc-pport ,arg))))))

  (jao-defun-play toggle)
  (jao-defun-play next)
  (jao-defun-play previous)
  (jao-defun-play stop)
  (jao-defun-play echo echo-current)
  (jao-defun-play list show-playlist)
  (jao-defun-play info lyrics-track-data)
  (jao-defun-play browse show-albums)
  (jao-defun-play select-album)

  (defun jao-player-seek (delta) (jao-mpc-seek delta (jao-mpc-pport)))

  (defalias 'jao-player-connect 'jao-mpc-connect)
  (defalias 'jao-player-play 'jao-mpc-play)

transients


  (require 'jao-lyrics)
  (setq jao-lyrics-info-function #'jao-player-info)

  (defun jao-player-volume-delta (raise)
    (jao-player-vol-delta (if raise 5 -5))
    (sit-for 0.05)
    (jao-player-show-volume))

  (defun jao-player-volume-raise ()
    (interactive)
    (jao-player-volume-delta t))

  (defun jao-player-volume-lower ()
    (interactive)
    (jao-player-volume-delta nil))

  (defun jao-player-show-volume ()
    (interactive)
    (jao-notify "Volume" (format "%s%%" (jao-player-volume))))

  (defun jao-player-seek-10 () (interactive) (jao-player-seek 10))
  (defun jao-player-seek--10 () (interactive) (jao-player-seek -10))

  (defun jao-streaming-clear () (interactive) (jao-mpc-clear jao-mopidy-port))

  (defun jao-streaming-echo-current ()
    (interactive)
    (jao-mpc-echo-current jao-mopidy-port))

  (defun jao-streaming-show-playlist ()
    (interactive)
    (jao-mpc-show-playlist jao-mopidy-port))

  (defun jao-player-level-cap () (interactive) (jao-mixer-level "Capture"))

  (use-package jao-random-album :demand t)

  (jao-def-exec-in-term "aptitude" "aptitude" (jao-afio--goto-scratch))
  (jao-def-exec-in-term "htop" "htop" (jao-afio--goto-scratch))

  (transient-define-prefix jao-transient-streaming ()
    [:description
     (lambda () (format "Streaming using %s" 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)]
     ["Act"
      ("k" "like" jao-streaming-like)
      ("K" "dislike" jao-streaming-dislike)]])

  (transient-define-prefix jao-transient-media ()
    [["Play"
      ("m" "toggle" jao-player-toggle)
      ("n" "next" jao-player-next)
      ("p" "previous" jao-player-previous)
      ("s" "select album" jao-player-select-album)]
     ["Seek and search"
      ("f" "seek fwd" jao-player-seek-10 :transient t)
      ("F" "seek bwd" jao-player-seek--10 :transient t)
      ("a" "search album" jao-mpc-search-and-select-album)]
     ["Browse"
      ("b" "browse" jao-player-browse)
      ("l" "show play list" jao-player-list)
      ("L" "show lyrics" jao-show-lyrics)
      ("w" "now playing" jao-player-echo)]
     ["Master volume"
      ("d" "master down" jao-mixer-master-down :transient t)
      ("u" "master up" jao-mixer-master-up :transient t)
      ("M" "master toggle" jao-mixer-master-toggle)
      ("v" "show" jao-mixer-get-level)]
     ["Capture volume"
      ("D" "capture down" jao-mixer-capture-down :transient t)
      ("U" "capture up" jao-mixer-capture-up :transient t)
      ("V" "show" jao-player-level-cap)]
     ["Utilities"
      ("c" "reconnect to mpd" jao-player-connect)
      ("N" "next random album" jao-random-album-next)
      ("r" (lambda ()
             (concat (if jao-random-album-p "dis" "en") "able random album"))
       jao-random-album-toggle)
      ("P" (lambda ()
             (concat "Toggle to "
                     (if (equal jao-mpc-last-port jao-mopidy-port)
                         "mpd" "mopidy")))
       jao-mpc-toggle-port)]])

  (global-set-key (kbd "s-m") #'jao-transient-media)

General transients

  (defun jao-list-packages ()
    (interactive)
    (jao-afio--goto-scratch-1)
    (package-list-packages))

  (defun jao-window-system-p ()
    (or jao-exwm-enabled jao-xmonad-enabled jao-sway-enabled))

  (transient-define-prefix jao-transient-utils ()
    "Global operations in X11."
    [["Notes"
      ("n" "capture note" jao-org-notes-open-or-create)
      ("/" "search notes" jao-org-notes-open)
      ("\\" "grep notes" jao-org-notes-grep)]
     ["Documents" :if jao-window-system-p
      ("d" "go to doc" jao-select-pdf)
      ("D" "open to doc" jao-open-doc)]
     ["Packages"
      ("a" "aptitude" jao-term-aptitude)
      ("l" "packages" jao-list-packages)]
     ["Monitors"
      ("p" "htop" jao-term-htop)
      ("v" "vpn status" jao-mullvad-status)
      ("m" "set tmr" tmr)]
     ["Network"
      ("S" "ssh" jao-ssh)
      ("b" "bluetooth" bluetooth-list-devices)
      ("c" "connect chats" jao-all-chats)
      ("N" "network interfaces" enwc)]
     ["Chats"
      ("t" "telegram" jao-chats-telega)
      ("s" "slack" jao-chats-slack)
      ("i"  "irc" jao-chats-irc)
      ("T" "telegram rooster" telega)]
     ["Window system" :if jao-window-system-p
      ("w" "set wallpaper" jao-set-wallpaper)
      ("W" "set radom wallpaper" jao-set-random-wallpaper)
      ("x" "restart xmobar" jao-xmobar-restart :if jao-exwm-enabled-p)
      ("x" "kill xmobar" jao-xmobar-kill :if jao-xmonad-enabled-p)]
     ["Helpers"
      ("r" "org reveal" org-reveal)
      ("k" (lambda () (concat "keyboard" (when (jao-kb-toggled-p) "*")))
       jao-kb-toggle :if jao-window-system-p)
      ("M" (lambda () (concat "minibuffer" (when jao-minibuffer-mode "*")))
       jao-minibuffer-mode)]])

  (global-set-key (kbd "s-w") #'jao-transient-utils)

Key bindings

  (global-set-key "\C-cj" #'join-line)
  (global-set-key "\C-cn" #'next-error)
  (global-set-key "\C-cq" #'auto-fill-mode)
  (global-set-key "\C-xr\M-w" #'kill-rectangle-save)
  (global-set-key "\C-c\C-z" #'comment-or-uncomment-region)
  (global-set-key "\C-z" #'comment-or-uncomment-region)

Last minute (post.el)

  (jao-load-site-el "post")