Rewrite .. again

2 files changed, 452 insertions, 499 deletions

@@ -1,65 +1,59 @@
 ;;; early-init.el ~ acdw
 
-;;; different platforms
-(setq my/is-windows-p (eq system-type 'windows-nt)
-      my/is-linux-p (eq system-type 'gnu/linux)
-      ;; TODO my/is-larry-p, my/is-bax-p (hostname)
-      )
+;;; this needs to happen first -- speed up init
+(setq gc-cons-threshold most-positive-fixnum)
+(defvar file-name-handler-alist-old file-name-handler-alist)
+(setq file-name-handler-alist nil)
+(setq message-log-max 16384)
+(setq byte-compile-warnings
+  '(not free-vars unresolved noruntime lexical make-local))
 
-(when my/is-windows-p
-  (setenv "PATH" (concat "path/to/git" ";" (getenv "PATH"))))
+(add-hook 'after-init-hook
+          (lambda ()
+            (setq file-name-handler-alist file-name-handler-alist-old)
+            (setq gc-cons-threshold (* 32 1024 1024)))
+          t)
 
+;;(setq debug-on-error t)
 
-;;; gui
-(push '(tool-bar-lines . 0) default-frame-alist)
-(push '(menu-bar-lines . 0) default-frame-alist)
+;;; different platforms
+(setq acdw/at-work (eq system-type 'windows-nt))
+(setq acdw/at-larry (string= (system-name) "larry"))
+(setq acdw/at-bax (string= (system-name) "bax"))
+
+;; this needs to be before bootstrapping straight.el
+(when acdw/at-work
+  (add-to-list 'exec-path "~/bin")
+  (add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin"))
 
-(unless (display-graphic-p)
-  (tool-bar-mode -1)
-  (menu-bar-mode -1))
-(scroll-bar-mode -1)
-(fringe-mode '(7 . 1))
+;;; gui
+(add-to-list 'default-frame-alist '(tool-bar-lines . 0))
+(add-to-list 'default-frame-alist '(menu-bar-lines . 0))
 
 (setq inhibit-startup-buffer-menu t)
 (setq inhibit-startup-screen t)
-(setq inhibit-startup-echo-area-message "acdw")
 (setq initial-buffer-choice t)
 (setq initial-scratch-message nil)
 
 ;;; straight.el ~ github.com/raxod502/straight.el
 
-;; use use-package
-(setq straight-use-package-by-default t)
+(setq straight-use-package-by-default t) ; use use-package
+(setq use-package-hook-name-suffix nil) ; don't assume -hook
 
-;; boostrap straight.el
+;; bootstrap
 (defvar bootstrap-version)
 (let ((bootstrap-file
        (expand-file-name "straight/repos/straight.el/bootstrap.el"
-                         user-emacs-directory))
+                         user-emacs-directory))
       (bootstrap-version 5))
   (unless (file-exists-p bootstrap-file)
     (with-current-buffer
-        (url-retrieve-synchronously
-         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
-         'silent 'inhibit-cookies)
+      (url-retrieve-synchronously
+        "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
+        'silent 'inhibit-cookies)
       (goto-char (point-max))
       (eval-print-last-sexp)))
   (load bootstrap-file nil 'nomessage))
 
 ;; install use-package with straight
 (straight-use-package 'use-package)
-
-;;; other init stuff
-
-(setq gc-cons-threshold (* 256 1024 1024))
-(defvar file-name-handler-alist-old file-name-handler-alist)
-(setq file-name-handler-alist nil)
-(setq message-log-max 16384)
-(setq byte-compile-warnings '(not free-vars unresolved noruntime lexical make-local))
-
-;; post-init
-(add-hook 'after-init-hook
-          (lambda ()
-            (setq file-name-handler-alist file-name-handler-alist-old)
-            (setq gc-cons-threshold (* 32 1024 1024)))
-          t)
@@ -1,461 +1,420 @@
-;; init.el ~ acdw -*- lexical-binding: t -*-
-
-(server-start)
-
-(setq confirm-kill-processes nil)
-
-(setq user-full-name "Case Duckworth")
-(setq user-mail-address "acdw@acdw.net")
-(setq calendar-location-name "Baton Rouge, LA")
-(setq calendar-latitude 30.39)
-(setq calendar-longitude -91.83)
-
-(setq show-paren-style 'mixed)
-(show-paren-mode 1)
-
-(setq backup-directory-alist
-      `((".*" . ,(concat user-emacs-directory "saves/"))))
-(setq delete-old-versions t)
-(setq kept-new-versions 6)
-(setq kept-old-versions 4)
-(setq version-control t)
-
-(setq auto-save-file-name-transforms
-      `((".*" ,(concat user-emacs-directory "saves/") t)))
-(auto-save-mode 1)
-
-(defun full-auto-save ()
-  (interactive)
-  (save-excursion
-    (dolist (buf (buffer-list))
-      (set-buffer buf)
-      (if (and (buffer-file-name) (buffer-modified-p))
-          (basic-save-buffer)))))
-(add-hook 'auto-save-hook 'full-auto-save)
-(add-hook 'focus-out-hook 'full-auto-save) ;; this might be resource intensive?
-
-(setq save-place-file (expand-file-name "places" user-emacs-directory))
-(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
-
-(blink-cursor-mode 0)
-
-(prefer-coding-system 'utf-8)
-(set-default-coding-systems 'utf-8)
-(set-terminal-coding-system 'utf-8)
-(set-keyboard-coding-system 'utf-8)
-(fset 'yes-or-no-p 'y-or-n-p)
-(global-prettify-symbols-mode t)
-
-(save-place-mode 1)
-
-(global-visual-line-mode 1)
-
-(display-time-mode 1)
-(setq display-time-format "%R")
-
-(add-hook 'before-save-hook #'delete-trailing-whitespace)
-(add-hook 'prog-mode-hook
-          (if (and (fboundp 'display-line-numbers-mode)
-                                     (display-graphic-p))
-                                #'display-line-numbers-mode
-                              #'linum-mode))
-
-(setq uniquify-buffer-name-style 'forward)
-
-(set-face-attribute 'default nil :font "GoMono Nerd Font-11")
-
-(mouse-avoidance-mode 'jump)
-
-;;; Packages
-
-(use-package aggressive-indent
-  :hook
-  (prog-mode . aggressive-indent-mode))
-
-(use-package async
-  :init (dired-async-mode 1))
-
-;; exwm
-(use-package exwm
-  :demand
-  :custom
-  (exwm-layout-show-all-buffers t)
-  ;;(mouse-autoselect-window t)
-  (exwm-workspace-number 4)
-  (exwm-input-global-keys
-        `(
-          ([?\s-r] . exwm-reset)
-          ([?\s-w] . exwm-workspace-switch)
-          ([?\s-&] . (lambda (command)
-                       (interactive (list (read-shell-command "$ ")))
-                       (start-process-shell-command command nil command)))
-          ,@(mapcar (lambda (i)
-                      `(,(kbd (format "s-%d" i)) .
-                        (lambda ()
-                          (interactive)
-                          (exwm-workspace-switch-create ,i))))
-                    (number-sequence 0 9))))
-  (exwm-input-simulation-keys
-   '(([?\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])
-     ([?\C-d] . [delete])
-     ([?\C-k] . [S-end delete])
-     ([?\C-s] . [?\C-f])
-     ([?\C-w] . [?\C-x])
-     ([?\M-w] . [?\C-c])
-     ([?\C-y] . [?\C-v])))
-  :hook
-  ((exwm-update-class .
-                      (lambda () "Rename buffer to window's class name"
-                        (exwm-workspace-rename-buffer exwm-class-name)))
-   (exwm-update-title .
-                      (lambda () "Update workspace name to window title"
-                        (when (not exwm-instance-name)
-                          (exwm-workspace-rename-buffer exwm-title))))
-   (exwm-init . window-divider-mode)
-   (exwm-init .
-              (lambda () "Autostart"
-                (start-process-shell-command "cmst" nil "cmst -m -w 5")
-                (start-process-shell-command "keepassxc" nil "keepassxc")
-                (start-process-shell-command
-                 "pa-applet" nil
-                 "pa-applet --disable-key-grabbing --disable-notifications")
-                (start-process-shell-command "cbatticon" nil "cbatticon"))))
-  :config
-  (require 'exwm)
-  (exwm-enable)
-  (require 'exwm-systemtray)
-  (exwm-systemtray-enable))
-
-(use-package exwm-firefox-core
-   :after exwm
-   :straight (exwm-firefox-core
-             :type git
-             :host github
-             :repo "walseb/exwm-firefox-core"))
-
- (use-package exwm-firefox
-   :after exwm-firefox-core
-   :straight (exwm-firefox
-             :type git
-             :host github
-             :repo "ieure/exwm-firefox")
-   :config
-   (exwm-firefox-mode))
-
-(setq browse-url-browser-function 'browse-url-generic
-      browse-url-generic-program "firefox")
-
-(use-package exwm-mff
-  :after exwm
-  :hook
-  (exwm-init . exwm-mff-mode))
-
-(use-package desktop-environment
-  :hook (exwm-init . desktop-environment-mode)
-  :custom
-  (desktop-environment-update-exwm-global-keys :global)
-  (desktop-environment-brightness-get-command "light")
-  (desktop-environment-brightness-set-command "light %s")
-  (desktop-environment-brightness-get-regexp "^\\([0-9]+\\)")
-  (desktop-environment-brightness-normal-increment "-A 10")
-  (desktop-environment-brightness-normal-decrement "-U 10")
-  (desktop-environment-brightness-small-increment "-A 5")
-  (desktop-environment-brightness-small-decrement "-U 5")
-  (desktop-environment-volume-get-command "pavolume get")
-  (desktop-environment-volume-set-command "pavolume %s")
-  (desktop-environment-volume-toggle-command "pavolume mute toggle")
-  (desktop-environment-volume-get-regexp "^\\([0-9]+\\)")
-  (desktop-environment-volume-normal-increment "inc 10")
-  (desktop-environment-volume-normal-decrement "dec 10")
-  (desktop-environment-volume-small-increment "inc 5")
-  (desktop-environment-volume-small-decrement "dec 5"))
-
-(use-package trashed
-  :custom
-  (delete-by-moving-to-trash t))
-
-(use-package switch-window
-  :custom
-   (switch-window-shortcut-style 'qwerty)
-  :bind
-  ([remap other-window] . switch-window)
-  ("s-o" . switch-window))
-
-(defun split-and-follow-below ()
-  (interactive)
-  (split-window-below)
-  (balance-windows)
-  (other-window 1))
-(global-set-key [remap split-window-below] 'split-and-follow-below)
-
-(defun split-and-follow-right ()
-  (interactive)
-  (split-window-right)
-  (balance-windows)
-  (other-window 1))
-(global-set-key [remap split-window-right] 'split-and-follow-right)
-
-;; modeline
-(use-package doom-modeline
-   :custom
-   (doom-modeline-height 16)
-   (doom-modeline-icon nil)
-   (doom-modeline-enable-word-count t)
-   (doom-modeline-mu4e t)
-   (doom-modeline-gnus nil)
-   (doom-modeline-irc t)
-   :custom-face
-   (doom-modeline-vspc-face ((t (:inherit nil))))
-   :config
-   (doom-modeline-mode t))
-
-(use-package zoom
-  :custom
-  (zoom-size '(0.618 . 0.618)))
-
-;; themes
-(defun my/sunrise ()
-  (enable-theme 'modus-operandi)
-  (start-process-shell-command "light" nil "light -S 60"))
-
-(use-package modus-operandi-theme
-  :if window-system
-  :custom
-  (modus-operandi-theme-slanted-constructs t)
-  (modus-operandi-theme-bold-constructs t)
-  (modus-operandi-theme-3d-modeline t)
-  :config
-  (load-theme 'modus-operandi t t)
-  (run-at-time (nth 1 (split-string (sunrise-sunset)))
-               (* 60 60 24) #'my/sunrise))
-
-(defun my/sunset ()
-  (enable-theme 'modus-vivendi)
-  (start-process-shell-command "light" nil "light -S 35"))
-
-(use-package modus-vivendi-theme
-  :if window-system
-  :custom
-  (modus-vivendi-theme-slanted-constructs t)
-  (modus-vivendi-theme-bold-constructs t)
-  (modus-vivendi-theme-3d-modeline t)
-  :config
-  (load-theme 'modus-vivendi t t)
-  (run-at-time (nth 4 (split-string (sunrise-sunset)))
-               (* 60 60 24) #'my/sunset)
-  (run-at-time "12am" (* 60 60 24) #'my/sunset))
-
-;; sudo
-(use-package su
-  :config
-  (su-mode 1))
-
-;; minibuffer completion
-(use-package ivy
-  :custom
-  (ivy-use-virtual-buffers t)
-  (ivy-wrap t)
-  (ivy-count-format "(%d/%d) ")
-  (enable-recursive-minibuffers t)
-  :config
-  (ivy-mode 1))
-
-(use-package swiper
-  :bind ("C-s" . swiper-isearch))
-
-(use-package counsel
-  :config
-  (counsel-mode 1))
-
-(use-package ivy-rich
-  :after (ivy)
-  :config
-  (ivy-rich-mode 1)
-  (setcdr (assq t ivy-format-functions-alist) #'ivy-format-function-line))
-
-(use-package ivy-avy)
-
-(use-package savehist
-  :config
-  (savehist-mode 1))
-
-(use-package magit
-  :bind
-  ("C-x g" . magit))
-
-;; mu4e
-(progn
-  (require 'mu4e)
-  (require 'mu4e-contrib)
-  (require 'smtpmail-async)
-  (setq mu4e-headers-skip-duplicates t)
-  (setq mu4e-view-show-images t)
-  (setq mu4e-view-show-addresses t)
-  (setq mu4e-compose-format-flowed t)
-  (setq mu4e-date-format "%Y-%m-%d")
-  (setq mu4e-headers-date-format "%Y-%m-%d")
-  (setq mu4e-change-filenames-when-moving t)
-  (setq mu4e-attachments-dir "~/Downloads")
-  (setq message-kill-buffer-on-exit t)
-  (setq mu4e-update-interval (* 60 60))
-  (setq mu4e-maildir "~/Mail/fastmail")
-  (setq mu4e-refile-folder "/Archive")
-  (setq mu4e-sent-folder "/Sent")
-  (setq mu4e-drafts-folder "/Drafts")
-  (setq mu4e-trash-folder "/Trash")
-  (setq message-send-mail-function 'async-smtpmail-send-it)
-  (setq smtpmail-default-smtp-server "smtp.fastmail.com")
-  (setq smtpmail-smtp-server "smtp.fastmail.com")
-  (setq smtpmail-smtp-service 465)
-  (setq smtpmail-stream-type 'ssl)
-  (fset 'my-move-to-trash "mTrash")
-  (define-key mu4e-headers-mode-map (kbd "d") 'my-move-to-trash)
-  (define-key mu4e-view-mode-map (kbd "d") 'my-move-to-trash))
-
-;; tramp
-(setq tramp-terminal-type "tramp")
-
-;; try packages out
-;(use-package try)
-
-;; vterm babeee
-;(use-package vterm)
-
-(use-package which-key
-  :custom
-  (which-key-mode 1))
-
-(use-package company
-  :commands company-mode
-  :custom
-  (company-idle-delay 0.1)
-  :hook
-  (prog-mode . company-mode)
-  :bind (:map company-active-map
-              ("C-n" . 'company-select-next)
-              ("C-p" . 'company-select-previous))
-  :config
-  (use-package company-quickhelp
-    :hook
-    (company-mode . (lambda ()
-                      (company-quickhelp-local-mode)))))
-
-;;; gemini/gopher
-(use-package elpher
-  :straight (elpher
-             :repo "git://thelambdalab.xyz/elpher.git")
-  :bind (:map elpher-mode-map
-              ("n" . 'elpher-next-link)
-              ("p" . 'elpher-prev-link)))
-
-  (use-package gemini-mode
-    :straight (gemini-mode
-               :repo "https://git.carcosa.net/jmcbray/gemini.el.git"))
-
-(use-package gemini-write
-  :straight (gemini-write
-             :repo "https://alexschroeder.ch/cgit/gemini-write"))
-
-;;; better help messages
-(use-package helpful
-  :bind
-  ("C-h f" . helpful-callable)
-  ("C-h v" . helpful-variable)
-  ("C-h k" . helpful-key)
-  ("C-c C-d" . helpful-at-point)
-  ("C-h F" . helpful-function)
-  ("C-h C" . helpful-command)
-  :custom
-  (counsel-describe-function-function #'helpful-callable)
-  (counsel-describe-variable-function #'helpful-variable))
-
-;;; eshell
-;; ~ much from http://www.howardism.org/Technical/Emacs/eshell-fun.html
-;;; TODO
-
-(use-package avy
-  :bind
-  ("M-s" . avy-goto-char))
-
-(use-package rainbow-mode
-  :hook
-  (prog-mode . rainbow-mode))
-
-(defun my/fetch-password (&rest params)
-  "Fetch a password from auth-sources"
-  (require 'auth-source)
-  (let ((match (car (apply 'auth-source-search params))))
-    (if match
-        (let ((secret (plist-get match :secret)))
-          (if (functionp secret)
-              (funcall secret)
-            secret))
-      (error "Password not found for %S" params))))
-
-(defun my/sasl-password (nick server)
-  "Fetch a password for $server and $nick"
-  (my/fetch-password :user nick :host server))
-
-(use-package circe
-  :init
-  (require 'lui-autopaste)
-  (defun my/circe-prompt ()
-    (lui-set-prompt
-     (concat (propertize (concat (buffer-name) ">")
-                         'face 'circe-prompt-face)
-             " ")))
-  (defun my/lui-setup ()
-    (setq right-margin-width 5
-          fringes-outside-margins t
-          word-wrap t
-          wrap-prefix "    ")
-    (setf (cdr (assoc 'continuation fringe-indicator-alist)) nil))
-  :hook
-  (circe-channel-mode . enable-lui-autopaste)
-  (circe-chat-mode-hook . my/circe-prompt)
-  (lui-mode-hook . my/circe-set-margin)
-  :custom
-  (circe-reduce-lurker-spam t)
-  (circe-format-say "{nick:-16s} {body}")
-  (lui-time-stamp-position 'right-margin)
-  (lui-fill-type nil)
-  (lui-time-stamp-format "%H:%M")
-  (lui-track-bar-behavior 'before-switch-to-buffer)
-  (circe-network-options
-   `(("Freenode"
-      :tls t
-      :port 6697
-      :nick "acdw"
-      :sasl-username "acdw"
-      :sasl-password ,(my/sasl-password "acdw" "irc.freenode.net")
-      :channels ("#emacs" "#daydreams"))
-     ("Tilde.chat"
-      :tls t
-      :port 6697
-      :nick "acdw"
-      :sasl-username "acdw"
-      :sasl-password ,(my/sasl-password "acdw" "irc.tilde.chat")
-      :channels ("#gemini" "#meta"))))
-  :custom-face
-  (circe-my-message-face ((t (:foreground "dark violet"))))
-  :config
-  (enable-lui-track-bar))
-
-;; elfeed
-(use-package elfeed
-  :custom
-  (elfeed-feeds
-   '("https://planet.emacslife.com/atom.xml")))
-
-(use-package smartparens
-  :config
-  (smartparens-global-mode))
+;;; init.el ~ acdw -*- lexical-binding: t -*-

+

+;;; emacs configuration - general

+

+(use-package emacs

+  :init

+  (setq calendar-location-name "Baton Rouge, LA")

+  (setq calendar-latitude 30.39)

+  (setq calendar-longitude -91.83)

+

+  (setq browse-url-browser-function 'browse-url-generic)

+  (setq  browse-url-generic-program "firefox"))

+

+(use-package auth-source

+  :init

+  (setq auth-sources '("~/.authinfo")) ;; TODO: gpg

+  (setq user-full-name "Case Duckworth")

+  (setq user-mail-address "acdw@acdw.net"))

+

+(use-package better-defaults

+  :config ; add other "better defaults" of my own

+  (when acdw/at-larry

+    (setq visible-bell nil))

+

+  (setq version-control t)

+  (setq delete-old-versions t)

+  (setq kept-new-versions 6)

+  (setq kept-old-versions 4)

+  (setq create-lockfiles nil)

+  (setq auto-save-file-name-transforms

+        `((".*" ,(concat user-emacs-directory "backups/") t)))

+  (auto-save-mode)

+

+  (defun full-auto-save ()

+    (interactive)

+    (save-excursion

+      (dolist (buf (buffer-list))

+        (set-buffer buf)

+        (if (and (buffer-file-name) (buffer-modified-p))

+            (basic-save-buffer)))))

+  (add-hook 'auto-save-hook 'full-auto-save)

+  (add-hook 'focus-out-hook 'full-auto-save) ; might be resource-intensive

+

+  ;; follow the split!

+  (defun split-and-follow-below ()

+    (interactive)

+    (split-window-below)

+    (balance-windows)

+    (other-window 1))

+

+  (defun split-and-follow-right ()

+    (interactive)

+    (split-window-right)

+    (balance-windows)

+    (other-window 1))

+

+  (setq save-place-file

+        (expand-file-name "places" user-emacs-directory))

+  (save-place-mode)

+

+  (set-language-environment "UTF-8")

+  (prefer-coding-system 'utf-8)

+  (set-default-coding-systems 'utf-8)

+  (set-terminal-coding-system 'utf-8)

+  (set-keyboard-coding-system 'utf-8)

+  (setq default-buffer-file-coding-system 'utf-8)

+

+  (fset 'yes-or-no-p 'y-or-n-p)

+

+  (global-visual-line-mode)

+  (mouse-avoidance-mode 'jump)

+  (setq show-paren-style 'mixed)

+

+  ;; TODO figure out how to add this to the :hook block

+  (add-hook 'prog-mode-hook (if (and (fboundp 'display-line-numbers-mode)

+                                     (display-graphic-p))

+                                #'display-line-numbers-mode

+                              #'linum-mode))

+

+  (setq completion-ignore-case t)

+  (setq read-buffer-completion-ignore-case t)

+  (setq read-file-name-completion-ignore-case t)

+

+  ;; don't confirm death

+  (setq confirm-kill-processes nil)

+  (setq confirm-kill-emacs nil)

+

+  ;; cursor betterment

+  (blink-cursor-mode 0)

+  (setq cursor-type 'bar)

+

+  :bind

+  ([remap split-window-below] . split-and-follow-below)

+  ([remap split-window-right] . split-and-follow-right)

+

+  :hook

+  (auto-save-hook . full-auto-save)

+  (focus-out-hook . full-auto-save)

+  (before-save-hook . delete-trailing-whitespace))

+

+(use-package auto-compile

+  :config

+  (auto-compile-on-load-mode)

+  (setq load-prefer-newer t))

+

+;; start the server when at home

+

+(if (not acdw/at-work)

+    (server-start))

+

+;;; quality-of-life improvements

+

+(use-package diminish)

+

+(use-package which-key

+  :diminish which-key-mode

+  :config

+  (which-key-mode))

+

+(use-package recentf

+  :init

+  (setq recentf-max-menu-items 100)

+  (setq recentf-max-saved-items 100)

+  :config

+  (recentf-mode))

+

+(use-package savehist

+  :config

+  (savehist-mode))

+

+(use-package restart-emacs)

+

+(use-package ivy

+  :init

+  (setq ivy-use-virtual-buffers t)

+  (setq ivy-wrap t)

+  (setq ivy-count-format "(%d/%d) ")

+  (setq enable-recursive-minibuffers t)

+  (setq ivy-re-builders-alist

+        '((read-file-name-internal . ivy--regex-fuzzy)

+          (t . ivy--regex-plus)))

+  :bind

+  ("C-x b" . ivy-switch-buffer)

+  ("C-c v" . ivy-push-view)

+  ("C-c V" . ivy-pop-view)

+  ("C-c C-r" . ivy-resume)

+  :config

+  (ivy-mode))

+

+(use-package swiper

+  :bind

+  ("C-s" . swiper-isearch))

+

+(use-package counsel ; includes ivy, counsel, swiper

+  :bind

+  ("M-x" . counsel-M-x)

+  ("C-x C-f" . counsel-find-file)

+  ("M-y" . counsel-yank-pop)

+  ("<f1> f" . counsel-describe-function)

+  ("<f1> v" . counsel-describe-variable)

+  ("<f1> l" . counsel-find-library)

+  ("<f2> i" . counsel-info-lookup-symbol)

+  ("<f2> u" . counsel-unicode-char)

+  ("<f2> j" . counsel-set-variable)

+  ("C-c c" . counsel-compile)

+  ("C-c g" . counsel-git)

+  ("C-c j" . counsel-git-grep)

+  ("C-c L" . counsel-git-log)

+  ("C-c k" . counsel-rg)

+  ("C-c m" . counsel-linux-app)

+  ("C-c n" . counsel-fzf)

+  ("C-x l" . counsel-locate)

+  ("C-c J" . counsel-file-jump)

+  ("C-S-o" . counsel-rhythmbox)

+  ("C-c w" . counsel-wmctrl)

+  ("C-c b" . counsel-bookmark)

+  ("C-c d" . counsel-descbinds)

+  ("C-c g" . counsel-git)

+  ("C-c o" . counsel-outline)

+  ("C-c t" . counsel-load-theme)

+  ("C-c F" . counsel-org-file))

+

+(use-package ivy-rich

+  :after ivy

+  :config

+  (ivy-rich-mode)

+  (setcdr (assq t ivy-format-functions-alist)

+          #'ivy-format-function-line))

+

+(use-package avy

+  :bind

+  ("M-s" . avy-goto-char-timer)

+  :config

+  (use-package ivy-avy))

+

+;;; programming

+

+(use-package aggressive-indent

+  :diminish aggressive-indent-mode

+  :hook

+  (prog-mode-hook . aggressive-indent-mode))

+

+(use-package magit

+  :if (not acdw/at-work)

+  :bind

+  ("C-x g" . magit))

+

+(use-package forge

+  :if (not acdw/at-work)

+  :after magit

+  :custom

+  (forge-owned-accounts '(("duckwork"))))

+

+(use-package company

+  :commands company-mode

+  :init

+  (setq company-idle-delay 0.1)

+  :hook

+  (prog-mode-hook . company-mode)

+  :bind (:map company-active-map

+              ("C-n" . company-select-next)

+              ("C-p" . company-select-previous))

+  :config

+  (use-package company-quickhelp

+    :hook

+    (company-mode . (lambda ()

+                      (company-quickhelp-local-mode)))))

+

+(use-package helpful

+  :bind

+  ("C-h f" . helpful-callable)

+  ("C-h v" . helpful-variable)

+  ("C-h k" . helpful-key)

+  ("C-c C-d" . helpful-at-point)

+  ("C-h F" . helpful-function)

+  ("C-h C" . helpful-command)

+  :custom

+  (counsel-describe-function-function #'helpful-callable)

+  (counsel-describe-variable-function #'helpful-variable))

+

+(unless acdw/at-work

+  (use-package su

+    :config

+    (su-mode))

+

+  (use-package trashed

+    :init

+    (setq delete-by-moving-to-trash t)))

+

+;;; writing

+

+(use-package visual-fill-column

+  :init

+  (setq split-window-preferred-function 'visual-fill-column-split-window-sensibly)

+  (setq visual-fill-column-center-text t)

+  :config

+  (advice-add 'text-scale-adjust

+              :after #'visual-fill-column-adjust))

+

+;;; window management

+

+(use-package switch-window

+  :init

+  (setq switch-window-shortcut-style 'qwerty)

+  :bind

+  ([remap other-window] . switch-window)

+  ("s-o" . switch-window))

+

+;;; theming and looks

+

+(use-package doom-modeline

+  :init

+  (setq doom-modeline-icon nil)

+  (setq doom-modeline-enable-word-count t)

+  (when acdw/at-larry

+    (setq display-time-format "%R")

+    (display-time-mode))

+  :config

+  (doom-modeline-mode))

+

+(when acdw/at-larry

+  (use-package statusbar

+    :straight (statusbar

+               :host github

+               :repo "dakra/statusbar.el")

+    :hook

+    (exwm-init-hook . statusbar-mode)))

+

+;; modus themes

+

+(use-package modus-operandi-theme

+  :if window-system

+  :config

+  (load-theme 'modus-operandi t t)

+

+  (defun acdw/sunrise ()

+    (enable-theme 'modus-operandi)

+    (start-process-shell-command "light" nil "light -S 60"))

+

+  (if acdw/at-work

+      (enable-theme 'modus-operandi)

+    (run-at-time (nth 1 (split-string (sunrise-sunset)))

+                 (* 60 60 24) #'acdw/sunrise)))

+

+(unless acdw/at-work

+  (use-package modus-vivendi-theme

+    :if window-system

+    :config

+    (load-theme 'modus-vivendi t t)

+

+    (defun acdw/sunset ()

+      (enable-theme 'modus-vivendi)

+      (start-process-shell-command "light" nil "light -S 35"))

+

+    (run-at-time (nth 4 (split-string (sunrise-sunset)))

+                 (* 60 60 24) #'acdw/sunset)

+    (run-at-time "12am" (* 60 60 24) #'acdw/sunset)))

+

+;;; gemini/gopher

+(use-package elpher

+  :straight (elpher

+             :repo "git://thelambdalab.xyz/elpher.git")

+  :bind (:map elpher-mode-map

+              ("n" . 'elpher-next-link)

+              ("p" . 'elpher-prev-link)))

+

+(use-package gemini-mode

+  :straight (gemini-mode

+             :repo "https://git.carcosa.net/jmcbray/gemini.el.git"))

+

+(use-package gemini-write

+  :straight (gemini-write

+             :repo "https://alexschroeder.ch/cgit/gemini-write"))

+

+;;; exwm ~ Emacs X Window Manager

+(when acdw/at-larry

+  (use-package exwm

+    :if window-system

+    :demand

+    :custom

+    (exwm-layout-show-all-buffers t)

+    (exwm-workspace-warp-cursor t)

+    ;;(mouse-autoselect-window t)

+    (exwm-workspace-number 4)

+    (exwm-input-global-keys

+     `(

+       ([?\s-r] . exwm-reset)

+       ([?\s-w] . exwm-workspace-switch)

+       ([?\s-&] . (lambda (command)

+                    (interactive (list (read-shell-command "$ ")))

+                    (start-process-shell-command command nil command)))

+       ,@(mapcar (lambda (i)

+                   `(,(kbd (format "s-%d" i)) .

+                     (lambda ()

+                       (interactive)

+                       (exwm-workspace-switch-create ,i))))

+                 (number-sequence 0 9))))

+    (exwm-input-simulation-keys

+     '(([?\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])

+       ([?\C-d] . [delete])

+       ([?\C-k] . [S-end delete])

+       ([?\C-s] . [?\C-f])

+       ([?\C-w] . [?\C-x])

+       ([?\M-w] . [?\C-c])

+       ([?\C-y] . [?\C-v])))

+    :hook

+    ((exwm-update-class-hook .

+                             (lambda () "Rename buffer to window's class name"

+                               (exwm-workspace-rename-buffer exwm-class-name)))

+     (exwm-update-title-hook .

+                             (lambda () "Update workspace name to window title"

+                               (when (not exwm-instance-name)

+                                 (exwm-workspace-rename-buffer exwm-title))))

+     (exwm-init-hook . window-divider-mode)

+     (exwm-init-hook .

+                     (lambda () "Autostart"

+                       (start-process-shell-command "cmst" nil "cmst -m -w 5")

+                       (start-process-shell-command "keepassxc" nil "keepassxc")

+                       (start-process-shell-command

+                        "pa-applet" nil

+                        "pa-applet --disable-key-grabbing --disable-notifications")

+                       (start-process-shell-command

+                        "cbatticon" nil "cbatticon"))))

+    :config

+    (require 'exwm)

+    (exwm-enable)

+    (require 'exwm-systemtray)

+    (exwm-systemtray-enable))

+

+  (use-package exwm-firefox-core

+    :after exwm

+    :straight (exwm-firefox-core

+               :type git

+               :host github

+               :repo "walseb/exwm-firefox-core"))

+

+  (use-package exwm-firefox

+    :after exwm-firefox-core

+    :straight (exwm-firefox

+               :type git

+               :host github

+               :repo "ieure/exwm-firefox")

+    :config

+    (exwm-firefox-mode))

+

+  (use-package exwm-mff

+    :straight (:repo "duckwork/exwm-mff")

+    :after exwm

+    :hook

+    (exwm-init-hook . exwm-mff-mode))

+  ) ;; end of acdw/at-larry block