fix linebreaks

author: Case Duckworth 2020-09-08 21:07:36 -0500
committer: Case Duckworth 2020-09-08 21:07:36 -0500
commit: 296f3d2334d20b4a7af87c43c0d624a02dda848f (patch)
tree: 7002a197eba429d08b5909d8413b0f6d8f59bd49 /init.el
parent: Rewrite .. again (diff)
download: emacs-296f3d2334d20b4a7af87c43c0d624a02dda848f.tar.gz
emacs-296f3d2334d20b4a7af87c43c0d624a02dda848f.zip
1 files changed, 424 insertions, 420 deletions
diff --git a/init.el b/init.el
index eae172a..0d90141 100644
--- a/init.el
+++ b/init.el

@@ -1,420 +1,424 @@
-;;; init.el ~ acdw -*- lexical-binding: t -*-
+;;; init.el ~ acdw -*- lexical-binding: t -*-
-;;; emacs configuration - general
+;;; emacs configuration - general
-(use-package emacs
+(use-package emacs
-  :init
+  :demand
-  (setq calendar-location-name "Baton Rouge, LA")
+  :init
-  (setq calendar-latitude 30.39)
+  (setq calendar-location-name "Baton Rouge, LA")
-  (setq calendar-longitude -91.83)
+  (setq calendar-latitude 30.39)
+  (setq calendar-longitude -91.83)
-  (setq browse-url-browser-function 'browse-url-generic)
-  (setq  browse-url-generic-program "firefox"))
+  (setq browse-url-browser-function 'browse-url-generic)
+  (setq  browse-url-generic-program "firefox"))
-(use-package auth-source
-  :init
+(use-package auth-source
-  (setq auth-sources '("~/.authinfo")) ;; TODO: gpg
+  :init
-  (setq user-full-name "Case Duckworth")
+  (setq auth-sources '("~/.authinfo")) ;; TODO: gpg
-  (setq user-mail-address "acdw@acdw.net"))
+  (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
+(use-package better-defaults
-  (when acdw/at-larry
+  :demand
-    (setq visible-bell nil))
+  :config ; add other "better defaults" of my own
+  (when acdw/at-larry
-  (setq version-control t)
+    (setq visible-bell nil))
-  (setq delete-old-versions t)
-  (setq kept-new-versions 6)
+  (setq version-control t)
-  (setq kept-old-versions 4)
+  (setq delete-old-versions t)
-  (setq create-lockfiles nil)
+  (setq kept-new-versions 6)
-  (setq auto-save-file-name-transforms
+  (setq kept-old-versions 4)
-        `((".*" ,(concat user-emacs-directory "backups/") t)))
+  (setq create-lockfiles nil)
-  (auto-save-mode)
+  (setq auto-save-file-name-transforms
+        `((".*" ,(concat user-emacs-directory "backups/") t)))
-  (defun full-auto-save ()
+  (auto-save-mode)
-    (interactive)
-    (save-excursion
+  (defun full-auto-save ()
-      (dolist (buf (buffer-list))
+    (interactive)
-        (set-buffer buf)
+    (save-excursion
-        (if (and (buffer-file-name) (buffer-modified-p))
+      (dolist (buf (buffer-list))
-            (basic-save-buffer)))))
+        (set-buffer buf)
-  (add-hook 'auto-save-hook 'full-auto-save)
+        (if (and (buffer-file-name) (buffer-modified-p))
-  (add-hook 'focus-out-hook 'full-auto-save) ; might be resource-intensive
+            (basic-save-buffer)))))
+  (add-hook 'auto-save-hook 'full-auto-save)
-  ;; follow the split!
+  (add-hook 'focus-out-hook 'full-auto-save) ; might be resource-intensive
-  (defun split-and-follow-below ()
-    (interactive)
+  ;; follow the split!
-    (split-window-below)
+  (defun split-and-follow-below ()
-    (balance-windows)
+    (interactive)
-    (other-window 1))
+    (split-window-below)
+    (balance-windows)
-  (defun split-and-follow-right ()
+    (other-window 1))
-    (interactive)
-    (split-window-right)
+  (defun split-and-follow-right ()
-    (balance-windows)
+    (interactive)
-    (other-window 1))
+    (split-window-right)
+    (balance-windows)
-  (setq save-place-file
+    (other-window 1))
-        (expand-file-name "places" user-emacs-directory))
-  (save-place-mode)
+  (setq save-place-file
+        (expand-file-name "places" user-emacs-directory))
-  (set-language-environment "UTF-8")
+  (save-place-mode)
-  (prefer-coding-system 'utf-8)
-  (set-default-coding-systems 'utf-8)
+  (set-language-environment "UTF-8")
-  (set-terminal-coding-system 'utf-8)
+  (prefer-coding-system 'utf-8)
-  (set-keyboard-coding-system 'utf-8)
+  (set-default-coding-systems 'utf-8)
-  (setq default-buffer-file-coding-system 'utf-8)
+  (set-terminal-coding-system 'utf-8)
+  (set-keyboard-coding-system 'utf-8)
-  (fset 'yes-or-no-p 'y-or-n-p)
+  (setq default-buffer-file-coding-system 'utf-8)
-  (global-visual-line-mode)
+  (fset 'yes-or-no-p 'y-or-n-p)
-  (mouse-avoidance-mode 'jump)
-  (setq show-paren-style 'mixed)
+  (global-visual-line-mode)
+  (mouse-avoidance-mode 'jump)
-  ;; TODO figure out how to add this to the :hook block
+  (setq show-paren-style 'mixed)
-  (add-hook 'prog-mode-hook (if (and (fboundp 'display-line-numbers-mode)
-                                     (display-graphic-p))
+  ;; TODO figure out how to add this to the :hook block
-                                #'display-line-numbers-mode
+  (add-hook 'prog-mode-hook (if (and (fboundp 'display-line-numbers-mode)
-                              #'linum-mode))
+                                     (display-graphic-p))
+                                #'display-line-numbers-mode
-  (setq completion-ignore-case t)
+                              #'linum-mode))
-  (setq read-buffer-completion-ignore-case t)
-  (setq read-file-name-completion-ignore-case t)
+  (setq completion-ignore-case t)
+  (setq read-buffer-completion-ignore-case t)
-  ;; don't confirm death
+  (setq read-file-name-completion-ignore-case t)
-  (setq confirm-kill-processes nil)
-  (setq confirm-kill-emacs nil)
+  ;; don't confirm death
+  (setq confirm-kill-processes nil)
-  ;; cursor betterment
+  (setq confirm-kill-emacs nil)
-  (blink-cursor-mode 0)
-  (setq cursor-type 'bar)
+  ;; cursor betterment
+  (blink-cursor-mode 0)
-  :bind
+  (setq cursor-type 'bar)
-  ([remap split-window-below] . split-and-follow-below)
-  ([remap split-window-right] . split-and-follow-right)
+  :bind
+  ([remap split-window-below] . split-and-follow-below)
-  :hook
+  ([remap split-window-right] . split-and-follow-right)
-  (auto-save-hook . full-auto-save)
-  (focus-out-hook . full-auto-save)
+  :hook
-  (before-save-hook . delete-trailing-whitespace))
+  (auto-save-hook . full-auto-save)
+  (focus-out-hook . full-auto-save)
-(use-package auto-compile
+  (before-save-hook . delete-trailing-whitespace))
-  :config
-  (auto-compile-on-load-mode)
+(use-package auto-compile
-  (setq load-prefer-newer t))
+  :config
+  (auto-compile-on-load-mode)
-;; start the server when at home
+  (setq load-prefer-newer t))
-(if (not acdw/at-work)
+;; start the server when at home
-    (server-start))
+(if (not acdw/at-work)
-;;; quality-of-life improvements
+    (server-start))
-(use-package diminish)
+;;; quality-of-life improvements
-(use-package which-key
+(use-package diminish)
-  :diminish which-key-mode
-  :config
+(use-package which-key
-  (which-key-mode))
+  :diminish which-key-mode
+  :config
-(use-package recentf
+  (which-key-mode))
-  :init
-  (setq recentf-max-menu-items 100)
+(use-package recentf
-  (setq recentf-max-saved-items 100)
+  :init
-  :config
+  (setq recentf-max-menu-items 100)
-  (recentf-mode))
+  (setq recentf-max-saved-items 100)
+  :config
-(use-package savehist
+  (recentf-mode))
-  :config
-  (savehist-mode))
+(use-package savehist
+  :config
-(use-package restart-emacs)
+  (savehist-mode))
-(use-package ivy
+(use-package restart-emacs)
-  :init
-  (setq ivy-use-virtual-buffers t)
+(use-package ivy
-  (setq ivy-wrap t)
+  :init
-  (setq ivy-count-format "(%d/%d) ")
+  (setq ivy-use-virtual-buffers t)
-  (setq enable-recursive-minibuffers t)
+  (setq ivy-wrap t)
-  (setq ivy-re-builders-alist
+  (setq ivy-count-format "(%d/%d) ")
-        '((read-file-name-internal . ivy--regex-fuzzy)
+  (setq enable-recursive-minibuffers t)
-          (t . ivy--regex-plus)))
+  (setq ivy-re-builders-alist
-  :bind
+        '((read-file-name-internal . ivy--regex-fuzzy)
-  ("C-x b" . ivy-switch-buffer)
+          (t . ivy--regex-plus)))
-  ("C-c v" . ivy-push-view)
+  :bind
-  ("C-c V" . ivy-pop-view)
+  ("C-x b" . ivy-switch-buffer)
-  ("C-c C-r" . ivy-resume)
+  ("C-c v" . ivy-push-view)
-  :config
+  ("C-c V" . ivy-pop-view)
-  (ivy-mode))
+  ("C-c C-r" . ivy-resume)
+  :config
-(use-package swiper
+  (ivy-mode))
-  :bind
-  ("C-s" . swiper-isearch))
+(use-package swiper
+  :bind
-(use-package counsel ; includes ivy, counsel, swiper
+  ("C-s" . swiper-isearch))
-  :bind
-  ("M-x" . counsel-M-x)
+(use-package counsel ; includes ivy, counsel, swiper
-  ("C-x C-f" . counsel-find-file)
+  :bind
-  ("M-y" . counsel-yank-pop)
+  ("M-x" . counsel-M-x)
-  ("<f1> f" . counsel-describe-function)
+  ("C-x C-f" . counsel-find-file)
-  ("<f1> v" . counsel-describe-variable)
+  ("M-y" . counsel-yank-pop)
-  ("<f1> l" . counsel-find-library)
+  ("<f1> f" . counsel-describe-function)
-  ("<f2> i" . counsel-info-lookup-symbol)
+  ("<f1> v" . counsel-describe-variable)
-  ("<f2> u" . counsel-unicode-char)
+  ("<f1> l" . counsel-find-library)
-  ("<f2> j" . counsel-set-variable)
+  ("<f2> i" . counsel-info-lookup-symbol)
-  ("C-c c" . counsel-compile)
+  ("<f2> u" . counsel-unicode-char)
-  ("C-c g" . counsel-git)
+  ("<f2> j" . counsel-set-variable)
-  ("C-c j" . counsel-git-grep)
+  ("C-c c" . counsel-compile)
-  ("C-c L" . counsel-git-log)
+  ("C-c g" . counsel-git)
-  ("C-c k" . counsel-rg)
+  ("C-c j" . counsel-git-grep)
-  ("C-c m" . counsel-linux-app)
+  ("C-c L" . counsel-git-log)
-  ("C-c n" . counsel-fzf)
+  ("C-c k" . counsel-rg)
-  ("C-x l" . counsel-locate)
+  ("C-c m" . counsel-linux-app)
-  ("C-c J" . counsel-file-jump)
+  ("C-c n" . counsel-fzf)
-  ("C-S-o" . counsel-rhythmbox)
+  ("C-x l" . counsel-locate)
-  ("C-c w" . counsel-wmctrl)
+  ("C-c J" . counsel-file-jump)
-  ("C-c b" . counsel-bookmark)
+  ("C-S-o" . counsel-rhythmbox)
-  ("C-c d" . counsel-descbinds)
+  ("C-c w" . counsel-wmctrl)
-  ("C-c g" . counsel-git)
+  ("C-c b" . counsel-bookmark)
-  ("C-c o" . counsel-outline)
+  ("C-c d" . counsel-descbinds)
-  ("C-c t" . counsel-load-theme)
+  ("C-c g" . counsel-git)
-  ("C-c F" . counsel-org-file))
+  ("C-c o" . counsel-outline)
+  ("C-c t" . counsel-load-theme)
-(use-package ivy-rich
+  ("C-c F" . counsel-org-file))
-  :after ivy
-  :config
+(use-package ivy-rich
-  (ivy-rich-mode)
+  :after ivy
-  (setcdr (assq t ivy-format-functions-alist)
+  :config
-          #'ivy-format-function-line))
+  (ivy-rich-mode)
+  (setcdr (assq t ivy-format-functions-alist)
-(use-package avy
+          #'ivy-format-function-line))
-  :bind
-  ("M-s" . avy-goto-char-timer)
+(use-package avy
-  :config
+  :bind
-  (use-package ivy-avy))
+  ("M-s" . avy-goto-char-timer)
+  :config
-;;; programming
+  (use-package ivy-avy))
-(use-package aggressive-indent
+;;; programming
-  :diminish aggressive-indent-mode
-  :hook
+(use-package aggressive-indent
-  (prog-mode-hook . aggressive-indent-mode))
+  :diminish aggressive-indent-mode
+  :hook
-(use-package magit
+  (prog-mode-hook . aggressive-indent-mode))
-  :if (not acdw/at-work)
-  :bind
+(use-package magit
-  ("C-x g" . magit))
+  :if (not acdw/at-work)
+  :bind
-(use-package forge
+  ("C-x g" . magit))
-  :if (not acdw/at-work)
-  :after magit
+(use-package forge
-  :custom
+  :if (not acdw/at-work)
-  (forge-owned-accounts '(("duckwork"))))
+  :after magit
+  :custom
-(use-package company
+  (forge-owned-accounts '(("duckwork"))))
-  :commands company-mode
-  :init
+(use-package company
-  (setq company-idle-delay 0.1)
+  :commands company-mode
-  :hook
+  :init
-  (prog-mode-hook . company-mode)
+  (setq company-idle-delay 0.1)
-  :bind (:map company-active-map
+  :hook
-              ("C-n" . company-select-next)
+  (prog-mode-hook . company-mode)
-              ("C-p" . company-select-previous))
+  :bind (:map company-active-map
-  :config
+              ("C-n" . company-select-next)
-  (use-package company-quickhelp
+              ("C-p" . company-select-previous))
-    :hook
+  :config
-    (company-mode . (lambda ()
+  (use-package company-quickhelp
-                      (company-quickhelp-local-mode)))))
+    :hook
+    (company-mode . (lambda ()
-(use-package helpful
+                      (company-quickhelp-local-mode)))))
-  :bind
-  ("C-h f" . helpful-callable)
+(use-package helpful
-  ("C-h v" . helpful-variable)
+  :bind
-  ("C-h k" . helpful-key)
+  ("C-h f" . helpful-callable)
-  ("C-c C-d" . helpful-at-point)
+  ("C-h v" . helpful-variable)
-  ("C-h F" . helpful-function)
+  ("C-h k" . helpful-key)
-  ("C-h C" . helpful-command)
+  ("C-c C-d" . helpful-at-point)
-  :custom
+  ("C-h F" . helpful-function)
-  (counsel-describe-function-function #'helpful-callable)
+  ("C-h C" . helpful-command)
-  (counsel-describe-variable-function #'helpful-variable))
+  :custom
+  (counsel-describe-function-function #'helpful-callable)
-(unless acdw/at-work
+  (counsel-describe-variable-function #'helpful-variable))
-  (use-package su
-    :config
+(unless acdw/at-work
-    (su-mode))
+  (use-package su
+    :config
-  (use-package trashed
+    (su-mode))
-    :init
-    (setq delete-by-moving-to-trash t)))
+  (use-package trashed
+    :init
-;;; writing
+    (setq delete-by-moving-to-trash t)))
-(use-package visual-fill-column
+;;; writing
-  :init
-  (setq split-window-preferred-function 'visual-fill-column-split-window-sensibly)
+(use-package visual-fill-column
-  (setq visual-fill-column-center-text t)
+  :init
-  :config
+  (setq split-window-preferred-function 'visual-fill-column-split-window-sensibly)
-  (advice-add 'text-scale-adjust
+  (setq visual-fill-column-center-text t)
-              :after #'visual-fill-column-adjust))
+  :config
+  (advice-add 'text-scale-adjust
-;;; window management
+              :after #'visual-fill-column-adjust))
-(use-package switch-window
+;;; window management
-  :init
-  (setq switch-window-shortcut-style 'qwerty)
+(use-package switch-window
-  :bind
+  :init
-  ([remap other-window] . switch-window)
+  (setq switch-window-shortcut-style 'qwerty)
-  ("s-o" . switch-window))
+  :bind
+  ([remap other-window] . switch-window)
-;;; theming and looks
+  ("s-o" . switch-window))
-(use-package doom-modeline
+;;; theming and looks
-  :init
-  (setq doom-modeline-icon nil)
+(use-package doom-modeline
-  (setq doom-modeline-enable-word-count t)
+  :init
-  (when acdw/at-larry
+  (setq doom-modeline-icon nil)
-    (setq display-time-format "%R")
+  (setq doom-modeline-enable-word-count t)
-    (display-time-mode))
+  (when acdw/at-larry
-  :config
+    (setq display-time-format "%R")
-  (doom-modeline-mode))
+    (display-time-mode))
+  :config
-(when acdw/at-larry
+  (doom-modeline-mode))
-  (use-package statusbar
-    :straight (statusbar
+(when acdw/at-larry
-               :host github
+  (use-package statusbar
-               :repo "dakra/statusbar.el")
+    :straight (statusbar
-    :hook
+               :host github
-    (exwm-init-hook . statusbar-mode)))
+               :repo "dakra/statusbar.el")
+    :hook
-;; modus themes
+    (exwm-init-hook . statusbar-mode)))
-(use-package modus-operandi-theme
+;; modus themes
-  :if window-system
-  :config
+(use-package modus-operandi-theme
-  (load-theme 'modus-operandi t t)
+  :if window-system
+  :config
-  (defun acdw/sunrise ()
+  (load-theme 'modus-operandi t t)
-    (enable-theme 'modus-operandi)
-    (start-process-shell-command "light" nil "light -S 60"))
+  (defun acdw/sunrise ()
+    (enable-theme 'modus-operandi)
-  (if acdw/at-work
+    (start-process-shell-command "light" nil "light -S 60"))
-      (enable-theme 'modus-operandi)
-    (run-at-time (nth 1 (split-string (sunrise-sunset)))
+  (if acdw/at-work
-                 (* 60 60 24) #'acdw/sunrise)))
+      (enable-theme 'modus-operandi)
+    (run-at-time (nth 1 (split-string (sunrise-sunset)))
-(unless acdw/at-work
+                 (* 60 60 24) #'acdw/sunrise)))
-  (use-package modus-vivendi-theme
-    :if window-system
+(unless acdw/at-work
-    :config
+  (use-package modus-vivendi-theme
-    (load-theme 'modus-vivendi t t)
+    :if window-system
+    :config
-    (defun acdw/sunset ()
+    (load-theme 'modus-vivendi t t)
-      (enable-theme 'modus-vivendi)
-      (start-process-shell-command "light" nil "light -S 35"))
+    (defun acdw/sunset ()
+      (enable-theme 'modus-vivendi)
-    (run-at-time (nth 4 (split-string (sunrise-sunset)))
+      (start-process-shell-command "light" nil "light -S 35"))
-                 (* 60 60 24) #'acdw/sunset)
-    (run-at-time "12am" (* 60 60 24) #'acdw/sunset)))
+    (run-at-time (nth 4 (split-string (sunrise-sunset)))
+                 (* 60 60 24) #'acdw/sunset)
-;;; gemini/gopher
+    (run-at-time "12am" (* 60 60 24) #'acdw/sunset)))
-(use-package elpher
-  :straight (elpher
+;;; gemini/gopher
-             :repo "git://thelambdalab.xyz/elpher.git")
+(use-package elpher
-  :bind (:map elpher-mode-map
+  :straight (elpher
-              ("n" . 'elpher-next-link)
+             :repo "git://thelambdalab.xyz/elpher.git")
-              ("p" . 'elpher-prev-link)))
+  :bind (:map elpher-mode-map
+              ("n" . 'elpher-next-link)
-(use-package gemini-mode
+              ("p" . 'elpher-prev-link)))
-  :straight (gemini-mode
-             :repo "https://git.carcosa.net/jmcbray/gemini.el.git"))
+(use-package gemini-mode
+  :straight (gemini-mode
-(use-package gemini-write
+             :repo "https://git.carcosa.net/jmcbray/gemini.el.git"))
-  :straight (gemini-write
-             :repo "https://alexschroeder.ch/cgit/gemini-write"))
+(use-package gemini-write
+  :straight (gemini-write
-;;; exwm ~ Emacs X Window Manager
+             :repo "https://alexschroeder.ch/cgit/gemini-write"))
-(when acdw/at-larry
-  (use-package exwm
+;;; exwm ~ Emacs X Window Manager
-    :if window-system
+(when acdw/at-larry
-    :demand
+  (use-package exwm
-    :custom
+    :if window-system
-    (exwm-layout-show-all-buffers t)
+    :demand
-    (exwm-workspace-warp-cursor t)
+    :custom
-    ;;(mouse-autoselect-window t)
+    (exwm-layout-show-all-buffers t)
-    (exwm-workspace-number 4)
+    (exwm-workspace-warp-cursor t)
-    (exwm-input-global-keys
+    ;;(mouse-autoselect-window t)
-     `(
+    (exwm-workspace-number 4)
-       ([?\s-r] . exwm-reset)
+    (exwm-input-global-keys
-       ([?\s-w] . exwm-workspace-switch)
+     `(
-       ([?\s-&] . (lambda (command)
+       ([?\s-r] . exwm-reset)
-                    (interactive (list (read-shell-command "$ ")))
+       ([?\s-w] . exwm-workspace-switch)
-                    (start-process-shell-command command nil command)))
+       ([?\s-&] . (lambda (command)
-       ,@(mapcar (lambda (i)
+                    (interactive (list (read-shell-command "$ ")))
-                   `(,(kbd (format "s-%d" i)) .
+                    (start-process-shell-command command nil command)))
-                     (lambda ()
+       ,@(mapcar (lambda (i)
-                       (interactive)
+                   `(,(kbd (format "s-%d" i)) .
-                       (exwm-workspace-switch-create ,i))))
+                     (lambda ()
-                 (number-sequence 0 9))))
+                       (interactive)
-    (exwm-input-simulation-keys
+                       (exwm-workspace-switch-create ,i))))
-     '(([?\C-b] . [left])
+                 (number-sequence 0 9))))
-       ([?\M-b] . [C-left])
+    (exwm-input-simulation-keys
-       ([?\C-f] . [right])
+     '(([?\C-b] . [left])
-       ([?\M-f] . [C-right])
+       ([?\M-b] . [C-left])
-       ([?\C-p] . [up])
+       ([?\C-f] . [right])
-       ([?\C-n] . [down])
+       ([?\M-f] . [C-right])
-       ([?\C-a] . [home])
+       ([?\C-p] . [up])
-       ([?\C-e] . [end])
+       ([?\C-n] . [down])
-       ([?\M-v] . [prior])
+       ([?\C-a] . [home])
-       ([?\C-v] . [next])
+       ([?\C-e] . [end])
-       ([?\C-d] . [delete])
+       ([?\M-v] . [prior])
-       ([?\C-k] . [S-end delete])
+       ([?\C-v] . [next])
-       ([?\C-s] . [?\C-f])
+       ([?\C-d] . [delete])
-       ([?\C-w] . [?\C-x])
+       ([?\C-k] . [S-end delete])
-       ([?\M-w] . [?\C-c])
+       ([?\C-s] . [?\C-f])
-       ([?\C-y] . [?\C-v])))
+       ([?\C-w] . [?\C-x])
-    :hook
+       ([?\M-w] . [?\C-c])
-    ((exwm-update-class-hook .
+       ([?\C-y] . [?\C-v])))
-                             (lambda () "Rename buffer to window's class name"
+    :hook
-                               (exwm-workspace-rename-buffer exwm-class-name)))
+    ((exwm-update-class-hook .
-     (exwm-update-title-hook .
+                             (lambda () "Rename buffer to window's class name"
-                             (lambda () "Update workspace name to window title"
+                               (exwm-workspace-rename-buffer exwm-class-name)))
-                               (when (not exwm-instance-name)
+     (exwm-update-title-hook .
-                                 (exwm-workspace-rename-buffer exwm-title))))
+                             (lambda () "Update workspace name to window title"
-     (exwm-init-hook . window-divider-mode)
+                               (when (not exwm-instance-name)
-     (exwm-init-hook .
+                                 (exwm-workspace-rename-buffer exwm-title))))
-                     (lambda () "Autostart"
+     (exwm-init-hook . window-divider-mode)
-                       (start-process-shell-command "cmst" nil "cmst -m -w 5")
+     (exwm-init-hook .
-                       (start-process-shell-command "keepassxc" nil "keepassxc")
+                     (lambda () "Autostart"
-                       (start-process-shell-command
+                       (start-process-shell-command "cmst" nil "cmst -m -w 5")
-                        "pa-applet" nil
+                       (start-process-shell-command "keepassxc" nil "keepassxc")
-                        "pa-applet --disable-key-grabbing --disable-notifications")
+                       (start-process-shell-command
-                       (start-process-shell-command
+                        "pa-applet" nil
-                        "cbatticon" nil "cbatticon"))))
+                        "pa-applet --disable-key-grabbing --disable-notifications")
-    :config
+                       (start-process-shell-command
-    (require 'exwm)
+                        "cbatticon" nil "cbatticon"))))
-    (exwm-enable)
+    :config
-    (require 'exwm-systemtray)
+    (require 'exwm)
-    (exwm-systemtray-enable))
+    (exwm-enable)
+    (require 'exwm-systemtray)
-  (use-package exwm-firefox-core
+    (exwm-systemtray-enable))
-    :after exwm
-    :straight (exwm-firefox-core
+  (use-package exwm-firefox-core
-               :type git
+    :after exwm
-               :host github
+    :straight (exwm-firefox-core
-               :repo "walseb/exwm-firefox-core"))
+               :type git
+               :host github
-  (use-package exwm-firefox
+               :repo "walseb/exwm-firefox-core"))
-    :after exwm-firefox-core
-    :straight (exwm-firefox
+  (use-package exwm-firefox
-               :type git
+    :after exwm-firefox-core
-               :host github
+    :straight (exwm-firefox
-               :repo "ieure/exwm-firefox")
+               :type git
-    :config
+               :host github
-    (exwm-firefox-mode))
+               :repo "ieure/exwm-firefox")
+    :config
-  (use-package exwm-mff
+    (exwm-firefox-mode))
-    :straight (:repo "duckwork/exwm-mff")
-    :after exwm
+  (use-package exwm-mff
-    :hook
+    :straight (exwm-mff
-    (exwm-init-hook . exwm-mff-mode))
+               :host github
-  ) ;; end of acdw/at-larry block
+               :repo "duckwork/exwm-mff")
+    :after exwm
+    :hook
+    (exwm-init-hook . exwm-mff-mode))
+  ) ;; end of acdw/at-larry block
author	Case Duckworth	2020-09-08 21:07:36 -0500
committer	Case Duckworth	2020-09-08 21:07:36 -0500
commit	296f3d2334d20b4a7af87c43c0d624a02dda848f (patch)
tree	7002a197eba429d08b5909d8413b0f6d8f59bd49 /init.el
parent	Rewrite .. again (diff)
download	emacs-296f3d2334d20b4a7af87c43c0d624a02dda848f.tar.gz emacs-296f3d2334d20b4a7af87c43c0d624a02dda848f.zip