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

* 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