Rewrite .. again
This commit is contained in:
Case Duckworth
parent
6d6b38d71a
commit
a37d086a20
|
|
@ -1,65 +1,59 @@
|
|||
;;; early-init.el ~ acdw
|
||||
|
||||
;;; 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))
|
||||
|
||||
(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)
|
||||
|
||||
;;; 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)
|
||||
)
|
||||
|
||||
(when my/is-windows-p
|
||||
(setenv "PATH" (concat "path/to/git" ";" (getenv "PATH"))))
|
||||
(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"))
|
||||
|
||||
;;; gui
|
||||
(push '(tool-bar-lines . 0) default-frame-alist)
|
||||
(push '(menu-bar-lines . 0) default-frame-alist)
|
||||
|
||||
(unless (display-graphic-p)
|
||||
(tool-bar-mode -1)
|
||||
(menu-bar-mode -1))
|
||||
(scroll-bar-mode -1)
|
||||
(fringe-mode '(7 . 1))
|
||||
(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)
|
||||
|
|
|
|||
881
init.el
881
init.el
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue