[emacs] remove legacy configuration files

5 files changed, 0 insertions, 338 deletions

diff --git a/emacs/inits/NO-00-exwm.el b/emacs/inits/NO-00-exwm.el
deleted file mode 100644
index 647c5c1..0000000
--- a/emacs/inits/NO-00-exwm.el
+++ /dev/null
@@ -1,170 +0,0 @@
-;; Time-stamp: <2020-05-05 20:25:35 (tslil@bison)>
-
-(defun banish-rat ()
-  (interactive)
-  (shell-command "xdotool mousemove 1280 800")
-  (message "Rat banished."))
-
-(use-package exwm
-  :if (window-system)
-  :ensure t
-  :demand
-  :config
-
-  (setq exwm-workspace-number 1
-        exwm-workspace-switch-create-limit 5
-        exwm-workspace-show-all-buffers nil)
-
-  (add-hook 'exwm-update-class-hook
-            (lambda ()
-              (exwm-workspace-rename-buffer exwm-class-name)))
-
-  ;; -------------------------------------------------------------------
-  ;; Global key binds
-
-  (setq exwm-input-simulation-keys
-        '(([?\C-b] . [left])
-          ([?\C-f] . [right])
-          ([?\C-p] . [up])
-          ([?\C-n] . [down])
-          ([?\C-a] . [home])
-          ([?\C-e] . [end])
-          ([?\M-v] . [prior])
-          ([?\C-v] . [next])
-          ([?\C-s] . [C-f])
-          ;;([?\C-d] . [delete])
-          ;;([?\C-k] . [S-end delete])
-          ))
-
-  ;; IME
-  (defvar exwm-workman-intl t)
-  (defun exwm-toggle-intl-ime ()
-    (interactive)
-    (let ((result (call-process-shell-command
-                   (concat "setxkbmap -layout us -variant workman"
-                           (if exwm-workman-intl "-intl" "")
-                           " -option terminate:ctrl_alt_bksp -option ctrl:nocaps"))))
-      (if (not (= 0 result))
-          (message "Unable to switch keyboard layouts.")
-        (message (concat (if exwm-workman-intl "INTERNATIONAL" "STANDARD") " layout selected."))
-        (setq exwm-workman-intl (not exwm-workman-intl)))))
-
-  (exwm-input-set-key (kbd "s-i") 'exwm-toggle-intl-ime)
-
-
-  ;; reset
-  (exwm-input-set-key (kbd "s-r") 'exwm-reset)
-
-  ;; workspaces
-  (exwm-input-set-key (kbd "s-e") 'exwm-workspace-switch)
-
-  (dotimes (i 10)
-    (exwm-input-set-key (kbd (format "s-%d" i))
-                        `(lambda ()
-                           (interactive)
-                           (exwm-workspace-switch-create ,i))))
-
-  ;; buffer and window management
-  (exwm-input-set-key (kbd "s-SPC") 'switch-to-buffer)
-
-  (defvar exwm-workspace-last-idx 0)
-  (defvar exwm-workspace-current-idx 0)
-
-  (defvar exwm-workspace-lighter "")
-
-  (defun exwm-update-workspace-lighter ()
-    (setq exwm-workspace-lighter (format (concat "@%d"
-                                                 (when (/= exwm-workspace-current-idx exwm-workspace-last-idx)
-                                                   " (*%d)"))
-                                         exwm-workspace-current-idx exwm-workspace-last-idx)))
-
-  (defun exwm-workspace-track-changes (frame-or-index &optional ignored)
-    (when (/= exwm-workspace-current-index exwm-workspace-current-idx)
-      (setq exwm-workspace-last-idx exwm-workspace-current-idx
-            exwm-workspace-current-idx exwm-workspace-current-index)
-      (exwm-update-workspace-lighter)))
-
-  (exwm-update-workspace-lighter)
-
-  (advice-add 'exwm-workspace-switch :after #'exwm-workspace-track-changes)
-  (advice-add 'exwm-workspace-switch-create :after #'exwm-workspace-track-changes)
-
-  (defun exwm-sanitise-workspace-last-index ()
-    (when (and (< 0 (exwm-workspace--count))
-               (> (1+ exwm-workspace-last-idx) (exwm-workspace--count)))
-      (setq exwm-workspace-last-idx exwm-workspace-current-idx)
-      (exwm-update-workspace-lighter)))
-
-  (push #'exwm-sanitise-workspace-last-index exwm-workspace-list-change-hook)
-
-  (defun exwm-last-workspace ()
-    (interactive)
-    (exwm-workspace-switch exwm-workspace-last-idx))
-
-  (defun exwm-last-buffer ()
-    (interactive)
-    (switch-to-buffer (other-buffer (current-buffer) 1)))
-
-  (exwm-input-set-key (kbd "s-o") 'exwm-last-buffer)
-  (exwm-input-set-key (kbd "s-<tab>") 'exwm-last-workspace)
-
-  (exwm-input-set-key (kbd "s-b") 'banish-rat)
-
-  ;; run command
-  (exwm-input-set-key (kbd "s-c") (lambda ()
-                                    (interactive)
-                                    (start-process "" nil "st")))
-  (exwm-input-set-key (kbd "s-q") (lambda ()
-                                    (interactive)
-                                    (start-process "" nil "iceweasel")))
-  (exwm-input-set-key (kbd "s-<f2>") (lambda ()
-                                       (interactive)
-                                       (start-process "" nil "lock")))
-  (exwm-input-set-key (kbd "s-p") (lambda (command)
-                                    (interactive (list (read-shell-command "$ ")))
-                                    (start-process-shell-command command nil command)))
-
-  ;; -------------------------------------------------------------------
-  ;; Tray
-
-  (require 'exwm-systemtray)
-  (exwm-systemtray-enable)
-  (setq exwm-systemtray-height 24)
-
-  ;; -------------------------------------------------------------------
-  ;; RandR
-
-  (require 'exwm-randr)
-  (exwm-randr-enable)
-
-  (setq exwm-randr-workspace-monitor-plist
-        '(1 "LVDS1" 0 "VGA1"))
-
-  (exwm-enable))
-
-;; -----------------------------------------------------------------------------
-;; EXWM-edit
-
-(use-package exwm-edit
-  :ensure t
-  :if (and exwm-state (window-system))
-  :config
-  (add-hook 'exwm-edit-compose-hook (lambda ()
-                                      (text-mode))))
-
-;; -----------------------------------------------------------------------------
-;; Statusbar.el
-
-(use-package posframe
-  :defer 1 ;; HACK: why can't i just run this immediately after EXWM?
-  :if (and (window-system) (fboundp 'exwm-systemtray-enable))
-  :ensure t)
-
-(use-package statusbar
-  :if (and (window-system) (fboundp 'exwm-systemtray-enable))
-  :after posframe
-  :load-path "~/.emacs.d/scripts/statusbar.el/"
-  :config
-  (advice-add 'exwm-update-workspace-lighter :after #'statusbar-refresh)
-  (setq statusbar-modeline-variables '(exwm-workspace-lighter display-time-string))
-  (statusbar-mode +1))
diff --git a/emacs/inits/NO-06-dashboard.el b/emacs/inits/NO-06-dashboard.el
deleted file mode 100644
index 2db87ac..0000000
--- a/emacs/inits/NO-06-dashboard.el
+++ /dev/null
@@ -1,35 +0,0 @@
-;; Time-stamp: <2020-02-08 13:07:24 (tslil@bison)>
-
-(use-package fortune
-  :config
-  (setq fortune-dir "/usr/share/fortune/"
-        fortune-program "fortune"
-        fortune-file "/usr/share/fortune/cookie"
-        fortune-program-options '("-s" "tao" "wisdom"))
-  (defun dashboard-fortune (n)
-    (insert
-     (if (evenp (random 2))
-         (with-temp-buffer
-           (let ((fortune-buffer-name (current-buffer)))
-             (fortune-in-buffer t)
-             (buffer-string)))
-       (shell-command-to-string "shuf -n 1 ~/store/quotes")))))
-
-
-
-(use-package dashboard
-  :ensure t
-  :config
-  (add-to-list 'dashboard-item-generators '(fortune . dashboard-fortune))
-
-  (setq dashboard-center-content t
-        dashboard-set-init-info t
-        dashboard-set-footer nil
-        dashboard-banners-directory (expand-file-name "~/.emacs.d/banners/")
-        dashboard-startup-banner 5
-        dashboard-items '((recents . 5)
-                          (projects . 5)
-                          (fortune . 0))
-        dashboard-init-info (format "Welcome ~%s!" (user-login-name)))
-
-  (dashboard-setup-startup-hook))
diff --git a/emacs/inits/NO-06-god.el b/emacs/inits/NO-06-god.el
deleted file mode 100644
index a17a5a4..0000000
--- a/emacs/inits/NO-06-god.el
+++ /dev/null
@@ -1,23 +0,0 @@
-;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)>
-
-(use-package god-mode
-  :ensure t
-  :init
-  (defvar my-god-cursor-colour (frame-parameter (selected-frame) 'cursor-color))
-  :bind (("<escape>" . god-local-mode)
-	 ;; ("<tab>" . god-mode) ;; this is just too much trouble
-	 ;; useful
-	 ("C-x C-1" . delete-other-windows)
-	 ("C-x C-2" . split-window-below)
-	 ("C-x C-3" . split-window-right)
-	 ("C-x C-0" . delete-window))
-  :config
-  (push 'term-mode god-exempt-major-modes)
-
-  (defun my-god-update-cursor ()
-    (interactive)
-    (if (bound-and-true-p god-local-mode)
-	(set-cursor-color "red")
-      (set-cursor-color my-god-cursor-colour)))
-  (add-hook 'god-mode-enabled-hook #'my-god-update-cursor)
-  (add-hook 'god-mode-disabled-hook #'my-god-update-cursor))
diff --git a/emacs/inits/NO-07-tinymenu.el b/emacs/inits/NO-07-tinymenu.el
deleted file mode 100644
index 1e734ab..0000000
--- a/emacs/inits/NO-07-tinymenu.el
+++ /dev/null
@@ -1,48 +0,0 @@
-;; Time-stamp: <2020-08-12 22:15:01 (user@hobbies)>
-
-(use-package tiny-menu
-  :ensure t)
-
-;; (eval-after-load "tiny-menu"
-;;   (progn
-;;     (defun hexl-input-smart ()
-;;       (hexl-insert-char (0xc-string-to-number (read-string "Input: ")) 1))
-
-;;     (setq tiny-menu-forever t
-;;           tiny-menu-items '(("hexl-menu"
-;;                              ("hexl"
-;;                               ((?i "Insert" hexl-input-smart)
-;;                                (?b "Byte" hexl-forward-char)
-;;                                (?e "bytE" hexl-backward-char)
-;;                                (?s "Short" hexl-forward-short)
-;;                                (?t "shorT" hexl-backward-short))))
-;;                             ))))
-
-;; (add-hook 'hexl-mode-hook
-;;           (lambda ()
-;;             (require '0xc)
-;;             (require 'tiny-menu)
-;;             (define-key hexl-mode-map (kbd "M-l")
-;;               (lambda () (interactive) (tiny-menu "hexl-menu")))))
-
-
-(use-package pulseaudio-control
-  :ensure t
-  :bind ("C-x /" . (lambda () (interactive) (tiny-menu "pulseaudio-control-menu")))
-  :config
-  (defun pulseaudio-control-tinymenu-header ()
-    (let ((words (split-string (pulseaudio-control--get-current-volume)))
-          (mute (if (string-equal "yes" (cadr (split-string (pulseaudio-control--get-current-mute))))
-                    "[mute]" "")))
-      (concat "PulseAudio " mute "(" (nth 4 words) " / "  (nth 11 words) ")")))
-  (add-to-list 'tiny-menu-items
-               '("pulseaudio-control-menu"
-                 (pulseaudio-control-tinymenu-header
-                  ((?+ "Vol+" pulseaudio-control-increase-volume "pulseaudio-control-menu")
-                   (?- "Vol-" pulseaudio-control-decrease-volume "pulseaudio-control-menu")
-                   (?? "Vol?" pulseaudio-control-display-volume)
-                   (?m "Mute" pulseaudio-control-toggle-current-sink-mute)
-                   (?e "Mute sink" pulseaudio-control-toggle-sink-mute-by-name)
-                   (?d "Use @DEF" pulseaudio-control-toggle-use-of-default-sink "pulseaudio-control-menu")
-                   (?n "Sink" pulseaudio-control-select-sink-by-name "pulseaudio-control-menu")
-                   (?p "Vol%" pulseaudio-control-set-volume))))))
diff --git a/emacs/inits/NO-30-irc.el b/emacs/inits/NO-30-irc.el
deleted file mode 100644
index 7e20970..0000000
--- a/emacs/inits/NO-30-irc.el
+++ /dev/null
@@ -1,62 +0,0 @@
-;; Time-stamp: <2021-09-27 08h48 EDT (hobbies)>
-
-(use-package rcirc
-  :ensure t
-  :defer
-  :hook (rcirc-mode . (lambda ()
-			(rcirc-track-minor-mode 1)
-			(rcirc-omit-mode 1)
-			(spell-fu-mode 1)
-			(visual-line-mode)
-			(set (make-local-variable 'scroll-conservatively) 8192)))
-  :config
-  (use-package rcirc-color
-    :ensure t
-    :if (window-system))
-  (use-package rcirc-styles
-    :ensure t
-    :if (window-system))
-
-  (require 'auth-source)
-  (defadvice rcirc (before rcirc-read-from-authinfo activate)
-    (unless arg
-      (custom-set-variables
-       '(epg-gpg-program "/usr/bin/qubes-gpg-client-wrapper"))
-      (setq rcirc-server-alist (copy-tree rcirc-server-alist-template))
-      (dolist (server rcirc-server-alist)
-	(let* ((pl (cdr server))
-	       (host (plist-get pl :host))
-	       (user (plist-get pl :user))
-	       (port (plist-get pl :port))
-	       (pass (plist-get pl :password)))
-	  (when (string-equal "%LOOKUP%" pass)
-	    (plist-put (cdr server) :password
-		       (concat user ":"
-			       (let ((match (car (auth-source-search :host host))))
-				 (if match
-				     (let ((secret (plist-get match :secret)))
-				       (if (functionp secret) (funcall secret) secret))
-				   (error "Password not found for %s" host)))))
-	    (message "Found authorisation information for %s." host))))))
-
-  (defadvice rcirc (after rcirc-clean-passwords activate)
-    (setq rcirc-server-alist nil)
-    (custom-set-variables
-     '(epg-gpg-program "gpg2")))
-
-  (setq rcirc-default-full-name "tslil"
-	rcirc-default-nick "op_4"
-	rcirc-default-user-name "op_4"
-	rcirc-default-part-reason "leaving"
-	rcirc-time-format "%Y-%m-%d %H:%M "
-	rcirc-log-directory "~/logs/irc/"
-	rcirc-fill-column 80
-	rcirc-log-flag t
-	rcirc-ignore-list '("esowiki")
-	rcirc-server-alist-template '(("l-3.space"
-				       :server-alias "libera.chat"
-				       :host "l-3.space"
-				       :port 6697
-				       :user "tslil/liberachat"
-				       :password "%LOOKUP%"
-				       :encryption tls))))