diff options
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/inits/NO-00-exwm.el | 170 | ||||
| -rw-r--r-- | emacs/inits/NO-06-dashboard.el | 35 | ||||
| -rw-r--r-- | emacs/inits/NO-06-god.el | 23 | ||||
| -rw-r--r-- | emacs/inits/NO-07-tinymenu.el | 48 | ||||
| -rw-r--r-- | emacs/inits/NO-30-irc.el | 62 |
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)))) |