full reorg

10 files changed, 0 insertions, 920 deletions

diff --git a/emacs/site-lisp/chinese.el b/emacs/site-lisp/chinese.el
deleted file mode 100644
index 4b01594..0000000
--- a/emacs/site-lisp/chinese.el
+++ /dev/null
@@ -1,18 +0,0 @@
-;; chinese input stuff
-;; (require 'unicode-fonts)
-;; (unicode-fonts-setup)
-(require 'pyim)
-(require 'pyim-basedict)
-(pyim-basedict-enable)
-;; (require 'pyim-wbdict)
-(setq default-input-method "pyim")
-(setq pyim-default-scheme 'quanpin)
-;; (pyim-wbdict-v98-morphe-enable)
-;; (dolist (charset '(kana han symbol cjk-misc bopomofo))
-;;   (set-fontset-font (frame-parameter nil 'font)
-;;                     charset
-;;                     (font-spec :family "FangSong" :size 15)))
-;; (setq rime-translate-keybindings
-;;       '("C-f" "C-b" "C-n" "C-p" "C-g" "<left>" "<right>" "<up>" "<down>" "<prior>" "<next>" "<delete>"))
-;; (setq rime-share-data-dir "~/.local/share/fcitx5/rime")
-;; (setq rime-show-candidate 'popup)
diff --git a/emacs/site-lisp/fbterm.el b/emacs/site-lisp/fbterm.el
deleted file mode 100644
index b8b3ba4..0000000
--- a/emacs/site-lisp/fbterm.el
+++ /dev/null
@@ -1,13 +0,0 @@
-;; config specifically for running emacs as the base process of fbterm
-
-
-(require 'ednc)
-(require 'single-header)
-
-;;; Code:
-
-(unless ednc-mode (ednc-mode 1))
-(unless single-header-mode (single-header-mode 1))
-
-(provide 'fbterm)
-;;; fbterm.el ends here
diff --git a/emacs/site-lisp/maze.el b/emacs/site-lisp/maze.el
deleted file mode 100644
index 784049f..0000000
--- a/emacs/site-lisp/maze.el
+++ /dev/null
@@ -1,64 +0,0 @@
-;; [adj] movement and editing for lisp
-
-(provide 'maze-lisp)
-
-(defun maze--cur-end ()
-  (push-mark)
-  (thing-at-point--end-of-sexp)
-  (let ((cur (point)))
-    (goto-char (mark))
-    (pop-mark)
-    cur))
-
-(defun maze--hl (beg end &optional buffer)
-  (let ((overlay (make-overlay beg end (or buffer (current-buffer)))))
-    (overlay-put overlay 'face 'highlight)
-    (setq maze-overlay overlay)
-    overlay))
-
-(defun maze--unhl ()
-  (if maze-overlay
-      (delete-overlay maze-overlay)))
-
-(defun maze--update-hl (beg end)
-  (if maze-overlay
-      (move-overlay maze-overlay beg end)
-    (maze--hl beg end)))
-
-(defun maze-forward (n)
-  (interactive "p")
-  (goto-char (or (scan-sexps (point) 2) (buffer-end 1)))
-  (thing-at-point--beginning-of-sexp)
-  (maze--update-hl (point) (maze--cur-end)))
-
-(defun maze-backward (n)
-  (interactive "p")
-  (let ((n (or n 1)))
-    (backward-sexp n))
-  (maze--update-hl (point) (maze--cur-end)))
-
-(defun maze-inward (n)
-  (interactive "p")
-  (down-list n)
-  (maze--update-hl (point) (maze--cur-end)))
-
-(defun maze-outward (n)
-  (interactive "p")
-  (backward-up-list n)
-  (maze--update-hl (point) (maze--cur-end)))
-
-(defvar-keymap maze-mode-map
-  (kbd "j") 'maze-forward
-  (kbd "k") 'maze-backward
-  (kbd "l") 'maze-inward
-  (kbd "h") 'maze-outward)
-
-
-(define-minor-mode maze-mode
-                         "doc"
-  :keymap maze-mode-map
-  :init-value nil
-  :after-hook (progn
-                (setq-local parse-sexp-ignore-comments t)
-                (setq-local maze-overlay nil)
-                (font-lock-mode 1)))
diff --git a/emacs/site-lisp/my-eglot.el b/emacs/site-lisp/my-eglot.el
deleted file mode 100644
index f4a00a3..0000000
--- a/emacs/site-lisp/my-eglot.el
+++ /dev/null
@@ -1,7 +0,0 @@
-(use-package eglot
-  :demand t)
-(use-package eglot-tempel
-  :after eglot tempel
-  :config
-  (eglot-tempel-mode 1))
-
diff --git a/emacs/site-lisp/my-exwm.el b/emacs/site-lisp/my-exwm.el
deleted file mode 100644
index be71f52..0000000
--- a/emacs/site-lisp/my-exwm.el
+++ /dev/null
@@ -1,184 +0,0 @@
-(use-package exwm ; emacs x window manager
-  :demand nil
-  :config
-  (require 'exwm-randr)
-  (require 'exwm-xim)
-  (require 'exwm-systemtray)
-  (require 'exwm-manage)
-  (add-to-list 'exwm-manage-configurations '((equal exwm-class-name "Slack") managed t))
-  (use-package exwm-modeline)
-  ;;(exwm-xim-mode 1)
-
-  (defun my/exwm-auto-workspace-montior ()
-    "Autopopulate exwm-randr-workspace-monitor-plist and attempt to
-have a workspace on each monitor.  Try to keep up with xrandr
-changes."
-    (let ((buf (generate-new-buffer "*xrandr-output*"))
-          (out-plist nil))
-      (call-process-shell-command "xrandr --listmonitors -q" nil buf nil)
-      (with-current-buffer buf
-        (keep-lines "[^[:word:]]connected" (point-min) (point-max) nil)
-	;; (goto-char (point-min))
-	;; (while (re-search-forward "^\\([a-zA-Z\\-0-9]+\\) .*$" nil t nil)
-	;;   (replace-match "\\1"))
-	;; (goto-char (point-min))
-        (let ((num-monitors (count-lines (point-min) (point-max)))
-              (i 0))
-          (setq exwm-workspace-number num-monitors)
-          (goto-char (point-min))
-          (while (< i num-monitors)
-            (move-beginning-of-line 1)
-            (push-mark)
-            (search-forward-regexp " ")
-            (backward-char)
-            (push (buffer-substring (mark) (point)) out-plist)
-	    (if (> i 0)
-		(let ((prev (caddr out-plist))
-		      (cur (car out-plist)))
-		  (call-process-shell-command
-		   (format "xrandr --output %s --auto --right-of %s" cur prev)
-		   nil nil nil))
-	      (call-process-shell-command
-	       (format "xrandr --output %s --auto" (car out-plist)) nil nil nil))
-            (push i out-plist)
-            (setq i (+ i 1))
-            (pop-mark)
-            (forward-line))))
-      (kill-buffer buf)
-      (setq exwm-randr-workspace-monitor-plist out-plist))
-    (while (> exwm-workspace-number (length exwm-workspace--list))
-      (exwm-workspace-add)))
-  (add-hook 'exwm-randr-screen-change-hook #'my/exwm-auto-workspace-montior)
-
-  (defun my/exwm-set-buffer-name ()
-    (if exwm-title
-        (let* ((shortened-title (replace-regexp-in-string
-                                 " - Mozilla Firefox"
-                                 ""
-                                 exwm-title))
-               (class-and-title  (concat
-                                  exwm-class-name
-                                  "<"
-                                  shortened-title
-                                  ">")))
-          (setq-local exwm-title class-and-title)
-          (exwm-workspace-rename-buffer exwm-title))))
-
-  (defun my/exwm-other-workspace (arg)
-    "Focus other monitor's workspace."
-    (interactive "p")
-    ;; based on other-frame
-    (let ((filter-f (function (lambda (f)
-                                (and (exwm-workspace--active-p f)
-                                     (not (eq (selected-frame) f))))))
-          (sframe (selected-frame))
-          (frame (selected-frame)))
-      (while (> arg 0)
-        (setq frame (next-frame frame))
-        (while (and (not (eq frame sframe))
-                    (not (eq (frame-visible-p frame) t))
-                    (funcall filter-f frame))
-          (setq frame (next-frame frame)))
-        (setq arg (1- arg)))
-      (while (< arg 0)
-        (setq frame (previous-frame frame))
-        (while (and (not (eq frame sframe))
-                    (not (eq (frame-visible-p frame) t))
-                    (filter-f frame))
-          (setq frame (previous-frame frame)))
-        (setq arg (1+ arg)))
-      (exwm-workspace-switch frame)))
-
-  (defun my/dmenu (command)
-    (interactive (list (read-shell-command "$ ")))
-    (start-process-shell-command command nil command))
-
-  (defun my/browser ()
-    (interactive)
-    (start-process-shell-command "glide" nil "glide"))
-
-  (defun my/brightnessdown () (interactive) (start-process "" nil "brightnessdown"))
-  (defun my/brightnessup () (interactive) (start-process "" nil "brightnessup"))
-  (defun my/mute () (interactive) (start-process "" nil "pactl" "set-sink-mute" "@DEFAULT_SINK@" "toggle"))
-  (defun my/voldown () (interactive) (start-process "" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" "-5%"))
-  (defun my/volup () (interactive) (start-process "" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" "+5%"))
-
-  (push ?\C-\\ exwm-input-prefix-keys) ;;C-\ to switch input method
-  (push ?\C-u exwm-input-prefix-keys)  ;; send C-u to all windows too
-  (push ?\M-L exwm-input-prefix-keys)
-  (progn
-    ;; (exwm-enable)
-    ;; (exwm-randr-mode)
-    ;; (ednc-mode 1)
-    ;; (exwm-systemtray-mode)
-    ;; (add-hook 'after-init-hook #'exwm-randr-refresh)
-    )
-  :hook
-  (exwm-update-class . my/exwm-set-buffer-name)
-  (exwm-update-title . my/exwm-set-buffer-name)
-  ;; (after-init . exwm-randr-refresh)
-  ;; (after-init . display-time-mode)
-  ;; (after-init . ednc-mode)
-  ;; (after-init . display-battery-mode)
-  :custom
-  (exwm-replace nil)
-  (exwm-title-length 50)
-  (exwm-workspace-show-all-buffers t)
-  (exwm-layout-show-all-buffers t)
-
-  (exwm-modeline-randr t)
-  (exwm-modeline-short nil)
-  (exwm-modeline-urgent t)
-
-  (exwm-manage-force-tiling t)
-
-  (exwm-input-global-keys
-   `(
-     ([?\M-r] . exwm-reset)
-     ;; Bind "s-w" to window switcher
-     ([?\M-W] . consult-buffer)
-     ([?\M-o] . other-window)
-     ([?\M-O] . my/exwm-other-workspace)
-
-     ([?\M-D] . my/dmenu)
-     ([?\M-E] . my/browser)
-     (,(kbd "M-C-m") . my/eshell)
-     ([?\M-K] . kill-current-buffer)
-
-     ,@(mapcar (lambda (n)
-                 (let* ((from (concat "C-x " (format "%d" n)))
-			(to (concat "M-" (format "%d" n)))
-			(bind (keymap-lookup global-map from)))
-                   (cons (kbd to) bind)))
-               (number-sequence 0 9))
-
-     ([XF86MonBrightnessDown] . my/brightnessdown)
-     ([XF86MonBrightnessUp] . my/brightnessup)
-     ([XF86AudioMute] . my/mute)
-     ([XF86AudioLowerVolume] . my/voldown)
-     ([XF86AudioRaiseVolume] . my/volup)))
-  (exwm-input-simulation-keys
-   '(;; movement
-     ([?\C-b] . [left])
-     ([?\M-b] . [C-left])
-     ([?\C-f] . [right])
-     ([?\M-f] . [C-right])
-     ([?\C-p] . [up])
-     ([?\C-n] . [down])
-     ([?\C-a] . [home])
-     ([?\C-e] . [end])
-     ([?\M-v] . [prior])
-     ([?\C-v] . [next])
-     ;; edit, copy, paste
-     ([?\C-d] . [delete])
-     ([?\C-k] . [S-end delete])
-     ([M-backspace] . [C-backspace])
-     ([?\M-w] . [?\C-c])
-     ([?\C-y] . [?\C-v])
-     ([?\C-s] . [?\C-f])))
-  (exwm-input-move-event 'M-down-mouse-1)
-  (exwm-input-resize-event 'M-down-mouse-3)
-  :bind (:map exwm-mode-map
-              ("C-q" . 'exwm-input-send-next-key)
-              ("M-!" . 'shell-command)))
-
diff --git a/emacs/site-lisp/my-mail.el b/emacs/site-lisp/my-mail.el
deleted file mode 100644
index bcda232..0000000
--- a/emacs/site-lisp/my-mail.el
+++ /dev/null
@@ -1,52 +0,0 @@
-(use-package mu4e
-  :ensure nil
-  :demand nil
-  :init
-  ;; assumed Maildir layout
-  ;; ~/Maildir/Account0/{Inbox,Sent,Trash}
-  ;; ~/Maildir/Account1/{Inbox,Sent,Trash}
-  ;; where Account0 is context name
-  (defun my/make-mu4e-context (context-name full-name mail-address signature)
-    "Return a mu4e context named CONTEXT-NAME with :match-func matching
-  folder name CONTEXT-NAME in Maildir. The context's `user-mail-address',
-  `user-full-name' and `mu4e-compose-signature' is set to MAIL-ADDRESS
-  FULL-NAME and SIGNATURE respectively.
-  Special folders are set to context specific folders."
-    (let ((dir-name (concat "/" context-name)))
-      (make-mu4e-context
-       :name context-name
-       ;; we match based on the maildir of the message
-       ;; this matches maildir /Arkham and its sub-directories
-       :match-func
-       `(lambda (msg)
-          (when msg
-            (string-match-p
-  	     ,(concat "^" dir-name)
-  	     (mu4e-message-field msg :maildir))))
-       :vars
-       `((user-mail-address    . ,mail-address)
-         (user-full-name       . ,full-name)
-         (mu4e-sent-folder     . ,(concat dir-name "/sent"))
-         (mu4e-drafts-folder   . ,(concat dir-name "/drafts"))
-         (mu4e-trash-folder    . ,(concat dir-name "/trash"))
-         (mu4e-refile-folder   . ,(concat dir-name "/archive"))
-         (mu4e-compose-signature . ,signature)))))
-  :custom
-  (mu4e-change-filenames-when-moving t)
-  (mu4e-get-mail-command "mbsync --all")
-  :config
-  ;;Fixing duplicate UID errors when using mbsync and mu4e
-  (setq mu4e-contexts
-        `(,(my/make-mu4e-context
-  	    "thomasmulmer02" "Thomas Ulmer"
-  	    "thomasmulmer02@gmail.com" "Thanks,
-Thomas Ulmer")))
-  
-  (require 'smtpmail)
-  (setq message-send-mail-function 'smtpmail-send-it)
-  (setq smtpmail-default-smtp-server "smtp.gmail.com"
-	smtpmail-smtp-server "smtp.gmail.com"
-	smtpmail-smtp-service 587
-	starttls-use-gnutls t
-	smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
-	smtp-auth-credentials (expand-file-name "~/.authinfo.gpg")))
diff --git a/emacs/site-lisp/my-modal.el b/emacs/site-lisp/my-modal.el
deleted file mode 100644
index 52cf8d3..0000000
--- a/emacs/site-lisp/my-modal.el
+++ /dev/null
@@ -1,211 +0,0 @@
-;;; bespoke vish modal -*- lexical-binding: t; -*-
-
-(require 's)
-
-
-(defun do-nothing () (interactive))
-
-(defun yank-looks-like-lines ()
-  (s-contains? "
-" (current-kill 0 t)))
-
-(defun paste-after-maybe-lines ()
-  (interactive)
-  (if (yank-looks-like-lines)
-      (progn
-        (move-end-of-line nil)
-        (newline)
-        (yank))
-    (forward-char-unless-eol)
-    (yank)))
-
-(defun paste-before-maybe-lines ()
-  (interactive)
-  (if (yank-looks-like-lines)
-      (progn
-        (move-beginning-of-line nil)
-        (yank))
-    (yank)))
-
-(defun forward-char-unless-eol (&optional arg)
-  (interactive "P")
-  (when (< (point) (point-at-eol)) (forward-char arg)))
-
-(defun mark-end-of-line (&optional arg)
-  (interactive "P")
-  (push-mark)
-  (move-end-of-line arg)
-  (exchange-point-and-mark))
-
-(defun mark-beginning-of-line (&optional arg)
-  (interactive "P")
-  (push-mark)
-  (move-beginning-of-line arg)
-  (exchange-point-and-mark))
-
-;; what I really want is a meta operator to invert the arg count,
-;; but between how ryo calls functions and expects symbols in binds,
-;; this is the best I can do.
-(defun mark-word-backward (&optional arg allow-extend)
-  (interactive "P\np")
-  (cond
-   ((null arg)
-    (setq arg -1))
-   ((numberp arg)
-    (setq arg (* -1 arg))))
-  (mark-word arg allow-extend))
-
-(defun mark-sexp-backward (&optional arg allow-extend)
-  (interactive "P\np")
-  (cond
-   ((null arg)
-    (setq arg -1))
-   ((numberp arg)
-    (setq arg (* -1 arg))))
-  (mark-sexp arg allow-extend))
-
-(defun mark-defun-backward (&optional arg interactive)
-  (interactive "p\nd")
-  (cond
-   ((null arg)
-    (setq arg -1))
-   ((numberp arg)
-    (setq arg (* -1 arg))))
-  (mark-defun arg interactive))
-
-(defun mark-paragraph-backward (&optional arg allow-extend)
-  (interactive "P\np")
-  (cond
-   ((null arg)
-    (setq arg -1))
-   ((numberp arg)
-    (setq arg (* -1 arg))))
-  (mark-paragraph arg allow-extend))
-
-(defconst my/ryo-digits '(("1" "C-1" :norepeat t)
-                          ("2" "C-2" :norepeat t)
-                          ("3" "C-3" :norepeat t)
-                          ("4" "C-4" :norepeat t)
-                          ("5" "C-5" :norepeat t)
-                          ("6" "C-6" :norepeat t)
-                          ("7" "C-7" :norepeat t)
-                          ("8" "C-8" :norepeat t)
-                          ("9" "C-9" :norepeat t)))
-
-(defconst my/ryo-moves '(("h" backward-char)
-                         ("j" next-line)
-                         ("k" previous-line)
-                         ("l" forward-char)
-
-                         ("e" forward-word)
-                         ("b" backward-word)
-                         ("E" forward-sexp)
-                         ("B" backward-sexp)
-
-                         ("0" "C-a")
-                         ("$" "C-e")
-
-                         ("[" beginning-of-defun)
-                         ("]" end-of-defun)
-                         ("{" backward-paragraph)
-                         ("}" forward-paragraph)
-                         ))
-
-(defconst my/ryo-marking-moves '(("h" backward-char :first (push-mark-command))
-                                 ("j" next-line :first (push-mark-command))
-                                 ("k" previous-line :first (push-mark-command))
-                                 ("l" forward-char :first (push-mark-command))
-
-                                 ("b" mark-word-backward)
-                                 ("e" mark-word)
-                                 ("B" mark-sexp-backward)
-                                 ("E" mark-sexp)
-
-                                 ("[" mark-defun-backward)
-                                 ("]" mark-defun)
-
-                                 ("0" mark-beginning-of-line)
-                                 ("$" mark-end-of-line)
-
-                                 ("{" mark-paragraph-backward)
-                                 ("}" mark-paragraph)
-                                 ))
-
-(defconst my/ryo-no-ops '(
-                          "<escape>"
-                          "`" "-" "+"
-                          "q" "w" "r" "t" "\\"
-                          "s" "f" ";" "'"
-                          "z" "n" "m" "," "."
-
-                          "~" "!" "@" "#" "%" "^" "&" "*" "(" ")" "_" "+"
-                          "Q" "W" "R" "T" "Y" "U" "|"
-                          "S" "D" "F" "H" "J" "K" "L" ":" "\""
-                          "Z" "X" "C" "V" "N" "M" "<" ">"
-                          ))
-
-
-
-(use-package ryo-modal
-  :demand t
-  :bind (:map my/keys-mode-map
-              ("C-c C-<space>" . ryo-modal-mode))
-  :config
-  (define-minor-mode my/temp-nonmodal-mode
-    "Minor mode for a temporary exit that should return to ryo-modal-mode."
-    :keymap (define-keymap
-              "<escape>"
-              'my/temp-nonmodal-mode)
-    :lighter " <NM>"
-    (ryo-modal-mode (if my/temp-nonmodal-mode -1 1)))
-
-  (let* ()
-    (eval
-     `(ryo-modal-keys
-       ,@my/ryo-moves
-       ,@my/ryo-digits
-       ,@(mapcar (lambda (key) (list key 'do-nothing)) my/ryo-no-ops)
-       ("g" (("g" beginning-of-buffer)))
-       ("G" end-of-buffer)
-
-       ("i" my/temp-nonmodal-mode)
-       ("I" back-to-indentation :then '(my/temp-nonmodal-mode))
-       ("a" forward-char-unless-eol :then '(my/temp-nonmodal-mode))
-       ("A" move-end-of-line :then '(my/temp-nonmodal-mode))
-       ("o" move-end-of-line :then '(newline-and-indent my/temp-nonmodal-mode))
-       ("O" move-beginning-of-line
-        :then '(open-line indent-according-to-mode my/temp-nonmodal-mode))
-
-       ("x" delete-char)
-       ("d" (("d" kill-whole-line)
-             ("m" kill-region)))
-       ("d" ,my/ryo-marking-moves :then '(kill-region))
-
-       ("c" (("c" kill-whole-line))
-        :then '(open-line my/temp-nonmodal-mode))
-       ("c" (("m" kill-region))
-        :then '(my/temp-nonmodal-mode))
-       ("C" kill-line :then '(my/temp-nonmodal-mode))
-       ("c" ,my/ryo-marking-moves :then '(kill-region my/temp-nonmodal-mode))
-
-       ("y" (("m" copy-region-as-kill)))
-       ("y" (("y" copy-region-as-kill))
-        :first '(push-mark move-beginning-of-line push-mark move-end-of-line forward-char)
-        :then '(pop-mark pop-to-mark-command))
-
-       ("P" paste-before-maybe-lines)
-       ("p" paste-after-maybe-lines)
-
-       ("/" isearch-forward-regexp)
-       ("?" isearch-backward-regexp)
-
-       ("u" undo)
-
-       ("SPC" set-mark-command)
-       ("v" set-mark-command)
-       )))
-  (setq ryo-modal-cursor-color "aquamarine")
-  (defun ryo-modal-unless-minibuffer ()
-    (unless (minibufferp)
-      (ryo-modal-mode 1)))
-  (add-hook 'after-change-major-mode-hook 'ryo-modal-unless-minibuffer))
diff --git a/emacs/site-lisp/single-header.el b/emacs/site-lisp/single-header.el
deleted file mode 100755
index dc65335..0000000
--- a/emacs/site-lisp/single-header.el
+++ /dev/null
@@ -1,257 +0,0 @@
-;; single-header --- Display a topline inside each frame with global info -*- lexical-binding: t; -*-
-
-;; Author: Thomas Ulmer
-;; Package-Requires: ((ednc) (battery) (s) (dash))
-;; Package-Version 1.0
-
-(require 'battery)
-(require 's)
-(require 'dash)
-
-(use-package ednc ; make emacs a dbus notify reciever
-  )
-
-;;; Commentary:
-;;;
-
-;;; Code:
-
-;; testing
-;; (require 'notifications)
-;; (notifications-notify :title "2st test" :body "hello, world" :app-name "EDNC"
-;; :actions '("default" "default"))
-
-(defgroup single-header
-  '((single-header-face custom-face)
-    (single-header-update-increment custom-variable))
-  "Custom variables for the single header package."
-  :prefix "single-header"
-  :group 'emacs)
-(defface single-header-face
-  '((default . (:background "#000000" :family "Source Code Pro")))
-  "Base face for the header line."
-  :group 'single-header)
-(defcustom single-header-update-increment
-  3
-  "Number of seconds before updating the header again."
-  :type 'natnum
-  :group 'single-header)
-(defvar single-header--active-notifs nil)
-(defvar single-header--timer nil)
-
-(defmacro single-header--time-lock (force frame name &rest body)
-  ""
-  (let* ((last-t-str (concat name "--last-time"))
-         (last-t (or (intern-soft last-t-str) (make-symbol last-t-str))))
-    ;; cache contains the symol of the cache variable
-    ;; last-t contains the symbol of the last time it was evaluated
-    `(if force
-         (progn
-           (set-frame-parameter ,frame (quote ,last-t) (time-convert (current-time) 'integer))
-           ,@body)
-       (let ((cur-time (time-convert (current-time) 'integer))
-             (next-time (time-add (or (frame-parameter ,frame (quote ,last-t)) 0)
-                                  single-header-update-increment)))
-         (when (time-less-p next-time cur-time)
-           (progn
-             (set-frame-parameter ,frame (quote ,last-t) cur-time)
-             ,@body))))))
-
-(defun single-header--with-face (str &rest face-plist)
-  "Convenience wrapper for `add-face-text-property'."
-  (add-face-text-property 0 (length str) face-plist t str)
-  str)
-
-(defun single-header--register-notif-change (old new)
-  "Function to hook `ednc-notification-presentation-functions'."
-  (when new
-    (push new single-header--active-notifs))
-  (when (and old
-             (member old single-header--active-notifs))
-    (setq single-header--active-notifs
-          (remove old single-header--active-notifs)))
-  (when (or new old)
-    (single-header-update t)))
-
-(defun single-header--make-notif-string ()
-  "Produce a string representation of the active notifications."
-  (mapconcat (lambda (e)
-               (format "[%s | %s | %s]  "
-                       (s-truncate 8 (ednc-notification-app-name e))
-                       (s-truncate 8 (ednc-notification-summary e))
-                       (s-truncate 20 (ednc-notification-body e)))
-               )
-             (ednc-notifications)
-             ""))
-
-(defun single-header-dismiss (num)
-  "Dismiss the most recent notification from the header line. With a prefix
-arg, dismiss all the notifications."
-  (interactive "p")
-  (cond ((and (natnump num) (>= num 4))
-         (mapc 'ednc-dismiss-notification (ednc-notifications)))
-        (t
-         (let ((notifs (ednc-notifications)))
-           (when notifs
-             (ednc-dismiss-notification (car notifs))))))
-  (single-header-update t))
-
-(defun single-header--make-header-info-string ()
-  "Generates the mode line string that contains all the info to the right."
-  (let ((str (concat
-              (single-header--with-face (battery-format "[%b%p%%]  " (and battery-status-function (funcall battery-status-function)))
-                                        :weight 'bold)
-              (single-header--with-face (let* ((mi (memory-info))
-                                               (tm (float (car mi)))
-                                               (fm (float (cadr mi)))
-                                               (ts (float (caddr mi)))
-                                               (fs (float (cadddr mi))))
-                                          (format "{%.2f %.2f}  " (- 1 (/ fm tm)) (- 1 (/ fs ts))))
-                                        :foreground "#00ced1")
-              (single-header--with-face (format "<%03.2f>  " (car (load-average 1)))
-                                        :foreground "#da70d6")
-              (format-time-string "%a, %b %+4Y-%0m-%0d  ")
-              (single-header--with-face (format-time-string "%R")
-                                        :weight 'bold)
-              )))
-    (single-header--with-face str 'single-header-face)))
-
-(defun single-header--init-buffer (buf)
-  (with-current-buffer buf
-    (insert "header test")
-    (jit-lock-mode nil)
-    (font-lock-mode -1)
-    (buffer-disable-undo)
-    (setq-local mode-line-format nil)
-    (setq-local header-line-format nil)
-    (setq-local cursor-type nil)
-    (setq-local cursor-in-non-selected-windows nil)
-    (setq-local overflow-newline-into-fringe nil)
-    (setq-local word-wrap nil)
-    (setq-local show-trailing-whitespace nil)))
-
-(defun single-header--init-window (win)
-  (with-selected-window win
-    (set-window-dedicated-p win t)
-    (set-window-parameter win 'no-other-window t)
-    (set-window-parameter win 'no-delete-other-windows t)
-    (set-window-margins win 0 0)
-    (set-window-fringes win 0 0)
-    (set-window-scroll-bars win 0 nil 0 nil)
-    (setq-local window-min-height 1)
-    (setq-local window-safe-min-height 1)
-    (let
-        (window-size-fixed)
-      (fit-window-to-buffer win 1))
-    (setq-local window-size-fixed t)
-    (when
-        (fboundp 'window-preserve-size)
-      (window-preserve-size win nil t))))
-
-(defun single-header--init-frame (&optional frame)
-  (setq frame (or frame (selected-frame)))
-  (with-selected-frame frame
-    (let* ((buf (generate-new-buffer "*header*"))
-           (win (display-buffer-in-side-window buf '((side . top)
-                                                     (slot . -100)))))
-      (single-header--init-buffer buf)
-      (single-header--init-window win)
-      (set-frame-parameter frame 'single-header-buf buf)
-      (set-frame-parameter frame 'single-header-win win))))
-
-(defun single-header-update (&optional force)
-  ""
-  (mapc (lambda (f) (single-header-update-frame f force))
-        (visible-frame-list)))
-
-(defun single-header-format (frame win buf)
-  "Evaluated in the header buffer when empty to fill the buffer."
-  (let* ((win-width (window-max-chars-per-line win 'single-header-face))
-         (info (single-header--make-header-info-string))
-         (info-width (string-width info))
-         (notifs (s-truncate (- win-width info-width 2)
-                             (single-header--make-notif-string)))
-         (notifs-width (string-width notifs))
-         (filled (min win-width (+ info-width notifs-width)))
-         (padding-width (- win-width filled))
-         (padding (make-string padding-width ? )))
-    (setq notifs (single-header--with-face notifs 'single-header-face))
-    (setq padding (single-header--with-face padding 'single-header-face))
-    (setq info (single-header--with-face info 'single-header-face))
-    (concat notifs padding info)))
-
-(defun single-header-update-frame (frame &optional force)
-  ""
-  (with-selected-frame frame
-    (let ((buf (frame-parameter frame 'single-header-buf))
-          (win (frame-parameter frame 'single-header-win)))
-      (when (and buf win)
-        (with-current-buffer buf
-          (single-header--time-lock
-           force frame "header-lock"
-           (let ((str (single-header-format frame win buf)))
-             (erase-buffer)
-             (insert str))))))))
-
-(defun single-header-make ()
-  "Create the header and show it."
-  (let ((registered
-         (or (equal 'single-header--register-notif-change
-                    ednc-notification-presentation-functions)
-             (and (listp ednc-notification-presentation-functions)
-                  (-contains? ednc-notification-presentation-functions
-                              'single-header--register-notif-change)))))
-    (unless registered
-      (if (listp ednc-notification-presentation-functions)
-          (push 'single-header--register-notif-change
-                ednc-notification-presentation-functions)
-        (list 'single-header--register-notif-change
-              ednc-notification-presentation-functions))))
-  (mapc (lambda (f)
-          (when (frame-live-p f)
-            (single-header--init-frame f)))
-        (frame-list))
-  ;; TODO frame creation hook
-  (add-hook 'after-make-frame-functions #'single-header--init-frame)
-  (when single-header--timer
-    (cancel-timer single-header--timer))
-  (setq single-header--timer
-        (run-with-timer 0 single-header-update-increment 'single-header-update)))
-
-(defun single-header-delete ()
-  "Remove an existing header buffer."
-  (let ((reg-list (and (listp ednc-notification-presentation-functions)
-                       (-contains? ednc-notification-presentation-functions
-                                   'single-header--register-notif-change)))
-        (reg-equal (or (equal 'single-header--register-notif-change
-                              ednc-notification-presentation-functions))))
-    (when reg-list
-      (delete 'single-header--register-notif-change
-              ednc-notification-presentation-functions))
-    (when reg-equal
-      (setq ednc-notification-presentation-functions
-            'ednc--update-log-buffer)))
-  (cancel-timer single-header--timer)
-  (setq single-header--timer nil)
-  (remove-hook 'after-make-frame-functions 'single-header--init-frame)
-  (mapc (lambda (f)
-          (delete-window (frame-parameter f 'single-header-win))
-          (kill-buffer (frame-parameter f 'single-header-buf))
-          (set-frame-parameter f 'single-header-buf nil)
-          (set-frame-parameter f 'single-header-win nil))
-        (frame-list)))
-
-(define-minor-mode single-header-mode
-  "Global minor mode to enable a single info line at the top of each frame."
-  :group 'single-header
-  :global t
-  :init-value nil
-  :keymap `((,(kbd "M-L d") . single-header-dismiss)
-            (,(kbd "M-L t") . single-header-mode))
-  :interactive t
-  (if (not single-header-mode)
-      (single-header-delete)
-    (single-header-make)))
-
-(provide 'single-header)
-;;; single-header.el ends here
diff --git a/emacs/site-lisp/tex-conf.el b/emacs/site-lisp/tex-conf.el
deleted file mode 100644
index 4592ce5..0000000
--- a/emacs/site-lisp/tex-conf.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;; latex stuff
-(require 'tex-mode)
-(define-key latex-mode-map (kbd "C-c m") (lambda () (interactive)
-                                           (push-mark)
-                                           (insert "\\[\n\n\\]")
-                                           (indent-region (mark) (point))
-                                           (pop-mark)
-                                           (previous-line)
-                                           (indent-for-tab-command)
-                                           ))
-
-;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; ;;;;;;;;;;;;;;;;        LaTeX         ;;;;;;;;;;;;;;;;;
-;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;; ##### Don't forget to configure
-;; ##### Okular to use emacs in
-;; ##### "Configuration/Configure Okular/Editor"
-;; ##### => Editor => Emacsclient. (you should see
-;; ##### emacsclient -a emacs --no-wait +%l %f
-;; ##### in the field "Command".
-
-(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
-(setq reftex-plug-into-AUCTeX t)
-
-;; ##### Always ask for the master file
-;; ##### when creating a new TeX file.
-(setq-default TeX-master nil)
-
-;; ##### Enable synctex correlation. From Okular just press
-;; ##### Shift + Left click to go to the good line.
-(setq TeX-source-correlate-mode t
-      TeX-source-correlate-start-server t)
-
-;; ### Set Okular as the default PDF viewer.
-(eval-after-load "tex"
-  '(setcar (cdr (assoc 'output-pdf TeX-view-program-selection)) "Okular"))
-
-(add-hook 'tex-mode-hook (lambda ()
-                           (setq spell-fu-faces-exclude
-                                 '(tex-math
-                                   font-lock-builtin-face
-                                   font-lock-keyword-face
-                                   font-lock-function-name-face
-                                   font-lock-variable-name-face
-                                   font-latex-sedate-face))
-                           (outline-minor-mode 1)))
diff --git a/emacs/site-lisp/tmu-custom-theme.el b/emacs/site-lisp/tmu-custom-theme.el
deleted file mode 100755
index 965d7c8..0000000
--- a/emacs/site-lisp/tmu-custom-theme.el
+++ /dev/null
@@ -1,67 +0,0 @@
-;; -*- lexical-binding: t; -*-
-(provide 'tmu-custom-theme)
-
-(deftheme tmu-custom
-  "Created 2023-01-06.")
-
-(custom-theme-set-faces
- 'tmu-custom
- '(cursor ((((background light)) (:background "black")) (((background dark)) (:background "white"))))
- '(fixed-pitch ((t (:family "Monospace"))))
- '(variable-pitch ((((type w32)) (:foundry "outline" :family "Arial")) (t (:family "Sans Serif"))))
- '(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
- '(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
- '(minibuffer-prompt ((t (:weight bold :box (:line-width (1 . -1) :color "red" :style released-button) :foreground "white smoke" :background "royal blue"))))
- '(highlight ((t (:background "gray30"))))
- '(region ((t (:extend t :background "SeaGreen4"))))
- '(shadow ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) (((class color) (min-colors 8) (background light)) (:foreground "green")) (((class color) (min-colors 8) (background dark)) (:foreground "yellow"))))
- '(secondary-selection ((t (:extend t :foreground "#f6f3e8" :background "#333366"))))
- '(trailing-whitespace ((((class color) (background light)) (:background "red1")) (((class color) (background dark)) (:background "red1")) (t (:inverse-video t))))
- '(font-lock-bracket-face ((t (:inherit (font-lock-punctuation-face)))))
- '(font-lock-builtin-face ((t (:foreground "chartreuse2"))))
- '(font-lock-comment-delimiter-face ((default (:inherit (font-lock-comment-face)))))
- '(font-lock-comment-face ((t (:foreground "orchid2"))))
- '(font-lock-constant-face ((t (:foreground "maroon1"))))
- '(font-lock-delimiter-face ((t (:inherit (font-lock-punctuation-face)))))
- '(font-lock-doc-face ((t (:foreground "indian red"))))
- '(font-lock-doc-markup-face ((t (:inherit (font-lock-constant-face)))))
- '(font-lock-escape-face ((t (:inherit (font-lock-regexp-grouping-backslash)))))
- '(font-lock-function-name-face ((t (:foreground "spring green"))))
- '(font-lock-keyword-face ((t (:weight bold :foreground "light sea green"))))
- '(font-lock-negation-char-face ((t nil)))
- '(font-lock-number-face ((t nil)))
- '(font-lock-misc-punctuation-face ((t (:inherit (font-lock-punctuation-face)))))
- '(font-lock-operator-face ((t nil)))
- '(font-lock-preprocessor-face ((t (:foreground "cornflower blue"))))
- '(font-lock-property-face ((t (:inherit (font-lock-variable-name-face)))))
- '(font-lock-punctuation-face ((t nil)))
- '(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
- '(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
- '(font-lock-string-face ((t (:foreground "Skyblue1"))))
- '(font-lock-type-face ((t (:foreground "medium purple"))))
- '(font-lock-variable-name-face ((t (:foreground "PaleGreen2"))))
- '(font-lock-warning-face ((t (:weight bold :foreground "hot pink"))))
- '(button ((t (:inherit (link)))))
- '(link ((((class color) (min-colors 88) (background light)) (:underline t)) (((class color) (background light)) (:underline t)) (((class color) (min-colors 88) (background dark)) (:underline t)) (((class color) (background dark)) (:underline t))))
- '(link-visited ((default (:inherit (link))) (((class color) (background light)) (:foreground "magenta4")) (((class color) (background dark)) (:foreground "violet"))))
- '(fringe ((((class color) (background light)) (:background "grey95")) (((class color) (background dark)) (:background "grey10")) (t (:background "gray"))))
- '(header-line ((t (:inherit mode-line))))
- '(tooltip ((((class color)) (:inherit (variable-pitch) :foreground "black" :background "lightyellow")) (t (:inherit (variable-pitch)))))
- '(mode-line ((t (:background "black" :family "DejaVu Sans"))))
- '(mode-line-buffer-id ((t (:weight bold))))
- '(mode-line-emphasis ((t (:weight bold))))
- '(mode-line-highlight ((((supports :box t) (class color) (min-colors 88)) (:box (:line-width (2 . 2) :color "grey40" :style released-button))) (t (:inherit (highlight)))))
- '(mode-line-inactive ((t (:inherit mode-line :foreground "dark gray"))))
- '(isearch ((((class color) (min-colors 88) (background light)) (:foreground "lightskyblue1" :background "magenta3")) (((class color) (min-colors 88) (background dark)) (:foreground "brown4" :background "palevioletred2")) (((class color) (min-colors 16)) (:foreground "cyan1" :background "magenta4")) (((class color) (min-colors 8)) (:foreground "cyan1" :background "magenta4")) (t (:inverse-video t))))
- '(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "grey")) (t (:inverse-video t))))
- '(lazy-highlight ((((class color) (min-colors 88) (background light)) (:distant-foreground "black" :background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:distant-foreground "white" :background "paleturquoise4")) (((class color) (min-colors 16)) (:distant-foreground "white" :background "turquoise3")) (((class color) (min-colors 8)) (:distant-foreground "white" :background "turquoise3")) (t (:underline t))))
- '(match ((((class color) (min-colors 88) (background light)) (:background "khaki1")) (((class color) (min-colors 88) (background dark)) (:background "RoyalBlue3")) (((class color) (min-colors 8) (background light)) (:foreground "black" :background "yellow")) (((class color) (min-colors 8) (background dark)) (:foreground "white" :background "blue")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "gray"))))
- '(next-error ((t (:inherit (region)))))
- '(query-replace ((t (:inherit (isearch)))))
- '(default ((t (:family "Source Code Pro" :foundry "ADBO" :width normal :height 98 :weight regular :slant normal :underline nil :overline nil :extend nil :strike-through nil :box nil :inverse-video nil :foreground "white smoke" :background "gray10" :stipple nil :inherit nil))))
- '(frog-menu-posframe-background-face ((t (:background "RoyalBlue4"))))
- '(minibuffer-prompt ((t (:background "gray10" :foreground "cyan" :box nil :weight bold))))
- '(pyim-page ((t (:inherit default :background "#333333" :foreground "#dcdccc"))))
- '(vterm-color-blue ((t (:inherit ansi-color-bright-green)))))
-
-(provide-theme 'tmu-custom)