path: root/attic/misc.org

#+title: Miscellaneous config bits that i don't use anymore

* elixir
*** packages
    #+begin_src emacs-lisp
      (use-package elixir-mode
        :ensure t
        :custom (lsp-clients-elixir-server-executable
                 (expand-file-name "~/usr/share/elixir-ls/language_server.sh"))
        ;; :bind (:map elixir-mode-map (("C-c C-z" . jao-vterm-repl-pop-to-repl)))
        )

      (use-package mix
        :ensure t
        :hook (elixir-mode . mix-minor-mode)
        ;; :init (jao-vterm-repl-register "mix.exs" "iex -S mix" "^iex([0-9]+)> ")
        :diminish ((mix-minor-mode . "")))

      (use-package exunit :ensure t)
    #+end_src
*** hydra
    #+begin_src emacs-lisp
      (major-mode-hydra-define elixir-mode nil
        ("Doc"
         (("dd" lsp-describe-thing-at-point "Describe thing at point"))
         "Xref"
          (("xd" xref-find-definitions "Definitions")
           ("xo" xref-find-definitions-other-window "-> other win")
           ("xr" xref-find-references "References"))
          "LSP"
          (("lg" lsp-goto-implementation "Implementation")
           ("lf" lsp-format-buffer "Format buffer")
           ("ls" lsp-describe-session "Describe session"))
          "LSP modes"
          (("Tl" lsp-lens-mode "Lens mode" :toggle t)
           ("Td" lsp-modeline-diagnostics-mode "Modeline diagnostics" :toggle t)
           ("Tb" lsp-headerline-breadcrumb-mode "Header breadcrumb" :toggle t)
           ("Ti" lsp-toggle-trace-io "Trace I/O" :toggle lsp-print-io))
          "Mix"
          (("me" mix-execute-task "Execute mix task")
           ("mt" mix-test "Run tests")
           ("mc" mix-compile "Compile")
           ("mm" jao-elixir-pop-to-iex "Pop to iex"))
          "Mix subproject"
          (("Me" (lambda () (interactive) (mix-execute-task nil t))
            "Execute task")
           ("Mt" (lambda () (interactive) (mix-compile nil t)) "Compile")
           ("Mt" (lambda () (interactive) (mix-test nil t)) "Run tests"))
          "Tests"
          (("tt" exunit-verify-single "Run single test")
           ("tr" exunit-rerun "Re-run tests")
           ("ta" exunit-verify "Run test suites")
           ("tA" exunit-verify-all "Run all test suites"))))
    #+end_src
* mpdel
  #+BEGIN_SRC emacs-lisp
    (jao-load-path "libmpdel")
    (jao-load-path "mpdel")
    (jao-load-path "navigel")

    (use-package navigel
      :init (setq navigel-display-messages nil))

    (defun jao-mpdel-dup-dir-p (dir)
      (and (libmpdel-directory-p dir)
           (string-match-p "\\[.+\\]\\b"
                           (or (libmpdel--directory-path dir) ""))))

    (defun jao-mpdel--filter (dirs)
      (cl-remove-if 'jao-mpdel-dup-dir-p dirs))

    (use-package libmpdel
      :init (setq libmpdel-port 6669))

    (use-package mpdel
      :diminish
      :init
      (setq mpdel-browser-list-clean-up-function 'identity
            mpdel-browser-top-level-entries
            '(directories
              empty-line
              stored-playlists current-playlist
              empty-line
              "Spotify/Top Lists/Top artists/Personal"
              "Spotify/Playlists/Featured"
              empty-line
              search-album search-artist search-title))

      (defun jao-mpdel--show-osd (data song ml)
        (let* ((no (1+ (string-to-number (or (cdr (assq 'song data)) "0"))))
               (to (or (cdr (assq 'playlistlength data)) "0"))
               (album (or (libmpdel-album-name song) ""))
               (artist (or (libmpdel-artist-name song) ""))
               (tms (split-string (or (cdr (assq 'time data)) "0/0") ":"))
               (tm (format "%s/%s"
                           (libmpdel-time-to-string (car tms))
                           (libmpdel-time-to-string (cadr tms))))
               (title (format "%s %s/%s. %s" tm no to
                              (or (libmpdel-entity-name song) ""))))
          (if ml
              (message "%s %s - %s (%s)" tm title artist album)
            (jao-notify (format "%s (%s)" artist album)
                        title
                        jao-notify-audio-icon))))

      (defun jao-mpdel-show-osd (&optional ml)
        (interactive "P")
        (let ((song (libmpdel-current-song)))
          (when song
            (libmpdel-send-command "status"
                                   `(lambda (data)
                                      (jao-mpdel--show-osd data ,song ,ml))))))

      (defun jao-mpdel-search (&optional type)
        (interactive
         (list (completing-read "Search by: " '("album" "artist" "title"))))
        (let* ((func (cond ((string= type "album") 'mpdel-core-search-by-album)
                           ((string= type "artist") 'mpdel-core-search-by-artist)
                           ((string= type "title") 'mpdel-core-search-by-title)))
               (thing (read-from-minibuffer (format "Search for %s: " type))))
          (mpdel-core-open (libmpdel-search-criteria-create :type type :what thing)))))

    (use-package mpdel-browser)
    (defalias 'mpdel-pop-to-browser 'mpdel-browser-open)

    (mpdel-mode)
    (define-key mpdel-browser-mode-map (kbd "n") #'next-line)
    (define-key mpdel-browser-mode-map (kbd "p") #'previous-line)
  #+END_SRC
* emms
*** configuration
    #+BEGIN_SRC emacs-lisp
      (use-package emms
        :pin gnu
        :ensure t
        :init
        (setq emms-score-file "~/.emacs.d/score"
              emms-stream-bookmarks-file "~/.emacs.d/streams"
              emms-history-file "~/.emacs.d/cache/emms-history"
              emms-cache-file "~/.emacs.d/cache/emms-cache"
              emms-show-format "%s")

        (setq emms-source-file-default-directory "~/var/lib/music/"
              emms-player-list '(emms-player-mpd)
              emms-player-mpd-server-name "localhost"
              emms-player-mpd-server-port "6600"
              emms-player-mpd-music-directory emms-source-file-default-directory)

        (setq emms-volume-change-function 'emms-volume-mpd-change
              emms-volume-change-amount 10
              emms-info-ogginfo-coding-system 'utf-8)

        ;; from http://www.shellarchive.co.uk/index.html#%20Prettify%20emms
        (setq emms-browser-info-genre-format "%i· %n"
              emms-browser-info-artist-format "%i· %n"
              emms-browser-info-album-format "%i◨ %n"
              emms-browser-info-title-format "%i♪ %n")

        (setq emms-last-played-format-alist
              '(((emms-last-played-seconds-today) . "Today at %H:%M")
                (604800 . "%a at %H:%M")
                ((emms-last-played-seconds-month) . "%d")
                ((emms-last-played-seconds-year) . "%m-%d")
                (t . "")))

        :hook ((emms-player-started . emms-player-mpd-show))

        :config
        (eval-after-load "emms-info"
          '(add-to-list 'emms-info-functions 'emms-info-mpd)))

      (emms-all)
      (emms-mode-line -1)
      (emms-playing-time 1)
      (emms-playing-time-disable-display)

      (use-package jao-emms-random-album
        :after emms
        :commands (jao-emms-random-album-next)
        :init (setq jao-emms-random-album-notify-icon jao-notify-audio-icon))

      (use-package jao-emms-info-track
        :after emms
        :init (setq jao-emms-show-icon jao-notify-audio-icon)
        :config (jao-emms-info-setup 50))

      (use-package jao-emms-lyrics
        :after emms
        :init (setq jao-lyrics-info-function 'jao-emms-lyrics-track-data))

      (defvar jao-emms-random-album-notify--pause-icon
        "/usr/share/icons/Tango/scalable/actions/media-playback-pause.svg")

      (defun jao-emms--show-status (s status)
        (jao-notify (format "%s%s%s"
                            (cadr s)
                            (cdr (assoc (car s) status))
                            (caddr s))
                    "emms"
                    (if (string= "pause" (cdr (assoc "state" status)))
                        jao-emms-random-album-notify--pause-icon
                      jao-notify-audio-icon)))

      (defun jao-emms--osd-status (s &optional pref suff)
        (emms-player-mpd-get-status (list s (or pref "") (or suff ""))
                                    'jao-emms--show-status))

    #+END_SRC
*** helper functions
    #+begin_src emacs-lisp
      (defun jao-emms-volume-delta (d)
        (funcall emms-volume-change-function d))

      (defun jao-emms-show-volume ()
        (jao-emms--osd-status "volume" "Volume " "%"))

      (defalias 'jao-emms-update-cache 'emms-player-mpd-update-all-reset-cache)

      (defun jao-emms-load-streams ()
        (interactive)
        (emms-play-playlist (expand-file-name "~/var/lib/music/streams.list")))

      (defun jao-emms-search ()
        (interactive)
        (let ((by (completing-read "Search by: "
                                   '("artist"
                                     "composer"
                                     "performer"
                                     "title"
                                     "album"
                                     "names"))))
          (if (string= "names" by)
              (emms-browser-search-by-names)
            (emms-browser-search (list (intern (concat "info-" by)))))))

      (defun jao-emms-echo ()
        (interactive)
        (emms-show)
        (jao-emms-update-echo-string)
        (emms-show))
    #+end_src
*** Media global aliases
    #+begin_src emacs-lisp
      (defalias 'jao-player-connect 'emms-player-mpd-connect)
      (defalias 'jao-player-toggle 'emms-pause)
      (defalias 'jao-player-next 'emms-next)
      (defalias 'jao-player-previous 'emms-previous)
      (defalias 'jao-player-stop 'emms-stop)
      (defalias 'jao-player-start 'emms-start)
      (defalias 'jao-player-seek-forward 'emms-seek-forward)
      (defalias 'jao-player-seek-backward 'emms-seek-backward)
      (defalias 'jao-player-play 'emms-start)
      (defalias 'jao-player-search 'jao-emms-search)
      (defalias 'jao-player-vol-delta 'jao-emms-volume-delta)
      (defalias 'jao-player-volume 'jao-emms-show-volume)
      (defalias 'jao-player-osd 'jao-emms-show-osd)
      (defalias 'jao-player-echo 'jao-emms-echo)
      (defalias 'jao-player-list 'emms-playlist-mode-go)
      (defalias 'jao-player-browse 'emms-browser)
      (defalias 'jao-player-random-album 'jao-emms-random-album-next)
    #+end_src

* enwc
    #+BEGIN_SRC emacs-lisp
      (use-package enwc
        :ensure t
        :init (setq enwc-default-backend 'nm
                    enwc-backend 'nm
                    enwc-display-mode-line nil
                    enwc-wired-device "enp3s0f0"
                    enwc-wireless-device "wlp1s0"))
    #+END_SRC
* frm
  #+begin_src emacs-lisp
    (use-package jao-frm
      :init (setq jao-frm-mail-command 'jao-open-gnus-frame))

    (defun jao-frm--formatter (mbox n)
      (apply #'format "%s/%s: %s" `(,@(last (split-string mbox "/") 2) ,n)))

    (defun jao-frm--show ()
      (interactive)
      (jao-frm-show-mail-numbers #'jao-frm--formatter))

    (global-set-key [(f12)] 'jao-frm--show)
    (global-set-key [(f8)] 'jao-frm)

  #+end_src
* mu4e
  #+begin_src emacs-lisp
    (jao-load-path "mu4e")
    (use-package mu4e
      :init
      (setq mu4e-attachment-dir (expand-file-name "~/var/download/attachments")
            mu4e-change-filenames-when-moving nil
            mu4e-completing-read-function 'completing-read
            mu4e-display-update-status-in-modeline nil
            mu4e-get-mail-command "run-mb.sh || [ $? -eq 1 ]"
            mu4e-headers-show-threads t
            mu4e-headers-sort-direction 'ascending
            mu4e-headers-visible-columns 100
            mu4e-headers-visible-lines 12
            mu4e-hide-index-messages t
            mu4e-index-cleanup t  ;; don't do a full cleanup check
            mu4e-index-lazy-check t ;; don't consider up-to-date dirs
            mu4e-maildir "~/var/mail/"
            mu4e-split-view 'horizontal ;; 'vertical
            mu4e-update-interval 300
            mu4e-use-fancy-chars nil
            mu4e-user-mail-address-list jao-mails
            mu4e-view-show-addresses t
            mu4e-view-show-images t
            mu4e-maildir-shortcuts '((:maildir "/jao/inbox" :key ?j)
                                     (:maildir "/bigml/inbox" :key ?b))
            jao-mu4e-uninteresting-mail-query
            (concat
             "flag:unread AND NOT flag:trashed"
             " AND NOT (maildir:/bigml/inbox OR maildir:/bigml/bugs OR"
             " maildir:/bigml/support OR maildir:/jao/inbox)")
            jao-mu4e-interesting-mail-query
            (concat
             "flag:unread AND NOT flag:trashed"
             " AND (maildir:/bigml/inbox OR maildir:/bigml/bugs OR"
             " maildir:/bigml/support OR maildir:/jao/inbox)")
            mu4e-bookmarks
            `((:name "Inbox" :query ,jao-mu4e-interesting-mail-query :key ?i)
              (:name "Other messages"
                     :query ,jao-mu4e-uninteresting-mail-query
                     :key 117)
              (:name "Today's messages" :query "date:today..now"
                     :key 116)
              (:name "Last 7 days" :query "date:7d..now" :hide-unread t
                     :key 119)
              (:name "Messages with PDFs"
                     :query "mime:application/pdf OR mime:x-application/pdf"
                     :key 112)))

      :config
      (defun jao-mu4e--maildir (msg)
        (when msg
          (let ((md (mu4e-message-field msg :maildir)))
            (when (string-match "/\\([^/]+\\)/.*" md)
              (match-string 1 md)))))

      (defun jao-mu4e--refile-folder (msg)
        (let ((md (jao-mu4e--maildir msg)))
          (if (string= md "trove")
              "/trove/jao"
            (format "/trove/%" md))))

      (setq mu4e-sent-folder #'jao-mu4e--refile-folder)
      (setq mu4e-drafts-folder "/trove/drafts")
      (setq mu4e-trash-folder "/trash")
      (setq mu4e-refile-folder 'jao-mu4e--refile-folder)

      (setq mu4e-contexts nil)

      (setq mu4e-view-show-images t)
      (when (fboundp 'imagemagick-register-types)
        (imagemagick-register-types))

      (define-key mu4e-view-mode-map [remap mu4e-view-verify-msg-popup]
        'epa-mail-verify)

      ;; View html message in browser (type aV)
      (add-to-list 'mu4e-view-actions
                   '("ViewInBrowser" . mu4e-action-view-in-browser) t))

    #+end_src
* company
  #+begin_src emacs-lisp
    (use-package company
      :ensure t
      :custom ((company-backends '(company-capf
                                   company-bbdb
                                   company-files
                                   company-dabbrev
                                   company-keywords))
               (company-global-modes '(not slack-message-buffer-mode
                                           circe-channel-mode
                                           telega-chat-mode))
               (company-format-margin-function nil) ;; #'company-text-icons-margin
               (company-idle-delay 0.2)
               (company-lighter "")
               (company-lighter-base "")
               (company-show-numbers nil)
               (company-selection-wrap-around t)
               (company-tooltip-limit 15)
               (company-tooltip-align-annotations t)
               (company-tooltip-offset-display 'lines)) ;; 'scrollbar

      :config
      (defun jao-complete-at-point ()
        "Complete using company unless we're in the minibuffer."
        (interactive)
        (if (or (not company-mode) (window-minibuffer-p))
            (completion-at-point)
          (company-manual-begin)))

      (defun jao-company-use-in-tab ()
        (global-set-key [remap completion-at-point] #'jao-complete-at-point)
        (global-set-key [remap completion-symbol] #'jao-complete-at-point)
        (global-set-key (kbd "M-TAB") #'jao-complete-at-point))

      (jao-company-use-in-tab)

      :bind (:map company-active-map

             ("<tab>" . #'company-complete-common-or-cycle)
             ("TAB" . #'company-complete-common-or-cycle)

             ("C-h" . #'company-show-doc-buffer)
             ("M-." . #'company-show-location)

             :filter (or (not (derived-mode-p 'eshell-mode))
                         (company-explicit-action-p))
             ("<return>" . #'company-complete-selection)
             ("RET" . #'company-complete-selection))
      :diminish)

    (global-company-mode 1)
  #+end_src
* rcirc
    #+begin_src emacs-lisp :load no
      (use-package rcirc
        :init
        (setq rcirc-server-alist `(("irc.libera.chat"
                                  :encryption tls
                                  :port 6697
                                  :channels ,jao-irc-channels))
              rcirc-default-user-full-name "http://jao.io/"
              rcirc-buffer-maximum-lines 1000
              rcirc-fill-column 82
              rcirc-fill-prefix "         "
              rcirc-time-format "%H:%M "
              rcirc-kill-channel-buffers t
              rcirc-response-formats
              '(("PRIVMSG" . "(%N) %m")
                ("NOTICE" . "-%N- %m")
                ("ACTION" . "(... %N %m)")
                ("COMMAND" . "%m")
                ("ERROR" . "%fw!!! %m")
                (t . "%fp*** %fs%n %r %m"))
              rcirc-prompt ": "
              rcirc-nick-completion-format "%s, "
              rcirc-reconnect-delay 120
              rcirc-omit-responses
              '("JOIN" "PART" "QUIT" "NICK" "AWAY" "MODE" "KEEPALIVE"))
        :config
        (let ((fn (jao--get-user/password "libera"))
              (btl (jao--get-user/password "bitlbee")))
          (setq rcirc-authinfo
                `(("libera" nickserv ,(nth 0 fn) ,(nth 1 fn))
                  ("localhost" bitlbee ,(nth 0 btl) ,(nth 1 btl)))))
        (jao-shorten-modes 'rcirc-mode)

        (define-minor-mode ncm-mode "" nil
          (:eval (format " [%S]"
                         (length (rcirc-channel-nicks (rcirc-buffer-process)
                                                      rcirc-target)))))

        (defun jao-rcirc-track ()
          (dolist (b rcirc-activity) (tracking-add-buffer b))
          (jao-minibuffer-refresh))

        (add-hook 'rcirc-update-activity-string-hook #'jao-rcirc-track)
        (add-hook 'rcirc-mode-hook #'ncm-mode)
        (add-hook 'rcirc-mode-hook #'rcirc-omit-mode)

      :diminish ((rcirc-omit-mode . "")))
    #+end_src
* switch window
  An alternative for this one is ace-window, but it has the problem
  of not displaying its overlay over org buffers (sometimes) and
  introducing a dependency (avy).
  #+begin_src emacs-lisp
    (use-package switch-window
      :ensure t
      :custom ((switch-window-minibuffer-shortcut ?z)
               (switch-window-background t)
               (switch-window-shortcut-style 'qwerty)
               (switch-window-timeout 7)
               (switch-window-threshold 2))
      :init (defalias 'jao-other-window 'switch-window)
      :config
      (defun jao-switch-window--then (prompt cmd)
        (let ((f `(lambda ()
                    (let ((default-directory ,default-directory))
                      (call-interactively ',cmd)))))
          (switch-window--then prompt f f)))

      (defun jao-switch-window-then-dired ()
        (interactive)
        (jao-switch-window--then "Find directory" 'dired))

      (defun jao-switch-window-then-find-file ()
        (interactive)
        (jao-switch-window--then "Find file" 'find-file))

      (defun jao-switch-window-then-consult-buffer ()
        (interactive)
        (jao-switch-window--then "Switch to buffer" 'consult-buffer))

      :bind (("M-o" . switch-window)
             ("M-O" . switch-window-then-swap-buffer)
             ("H-s-o" . switch-window)
             ("H-s-O" . switch-window-then-swap-buffer)
             ("C-x 4 d" . jao-switch-window-then-dired)
             ("C-x 4 f" . jao-switch-window-then-find-file)
             ("C-x 4 b" . jao-switch-window-then-consult-buffer)))
  #+end_src

* vterm
    #+begin_src emacs-lisp
      (use-package vterm
        :ensure t
        :init
        (setq vterm-kill-buffer-on-exit t
              vterm-copy-exclude-prompt t
              vterm-use-vterm-prompt-detection-method t
              vterm-buffer-name-string nil)
        :config
        (define-key vterm-mode-map [(f1)] nil)
        :bind (:map vterm-mode-map (("C-c C-c" . vterm-send-C-c))))

      (defun jao-exec-in-vterm (cmd &optional name)
        (vterm)
        (when name (vterm-send-string "unset PROMPT_COMMAND\n"))
        (vterm-send-string cmd)
        (vterm-send-return)
        (when name (rename-buffer name)))

      (defun jao-exec-in-vterm (cmd &optional name)
        (ansi-term cmd name))

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

      (defun jao-vterm--find (cmd)
        (seq-find (lambda (b)
                    (and (eq (buffer-local-value 'major-mode b) 'vterm-mode)
                         (string= (or (buffer-local-value 'jao-vterm--cmd b) "")
                                  cmd)))
                  (buffer-list)))

      (defmacro jao-def-exec-in-vterm (name cmd &rest prelude)
        `(defun ,(intern (format "jao-vterm-%s" name)) ()
           (interactive)
           ,@prelude
           (if-let ((b (jao-vterm--find ,cmd)))
               (pop-to-buffer b)
             (jao-exec-in-vterm (format "%s; exit" ,cmd)
                                ,(when name (format "%s" name)))
             (setq-local jao-vterm--cmd ,cmd))))

      (jao-def-exec-in-vterm aptitude "aptitude" (jao-afio--goto-scratch))
      (jao-def-exec-in-vterm htop "htop" (jao-afio--goto-scratch))
   #+end_src
*** Vterm repls
      #+begin_src emacs-lisp
        (use-package jao-vterm-repl)
        (jao-define-attached-buffer "^\\* vrepl - .+ \\*.*")
      #+end_src
* ednc
  #+begin_src emacs-lisp
    (use-package ednc
      :ensure t
      :diminish)

    (use-package jao-ednc
      :after ednc
      :commands (jao-ednc-setup)
      :config
      (jao-ednc-ignore-app "Spotify")
      (jao-ednc-ignore-app "NetworkManager")
      (defhydra jao-hydra-ednc (:color blue)
        "Notifications"
        ("s" jao-ednc-show "show last")
        ("d" jao-ednc-dismiss "dismiss last")
        ("D" jao-ednc-dismiss-all "dismiss all")
        ("i" jao-ednc-invoke-last-action "invoke last action")
        ("n" jao-ednc-pop "show all")))
  #+end_src