Here we establish load path and default settings before we will use use-package.
;;; .emacs.el --- Emacs Init File -S*- lexical-binding: t -*-
;;; THIS FILE IS GENERATEDFollow Symlinks without prompting, so Git doesn’t have issues with my setup
(setq vc-follow-symlinks t)(setq user-emacs-directory "~/.emacs.d/")
(require 'server)
(unless (server-running-p)
(server-start))Set search to look for spaces literally
(setq isearch-lax-whitespace nil)
(defalias 'yes-or-no-p 'y-or-n-p) ; stop asking "yes" http://www.emacswiki.org/emacs/YesOrNoP(setq straight-cache-autoloads t
straight-check-for-modifications '(check-on-save find-when-checking)
straight-repository-branch "develop"
straight-use-package-by-default t
use-package-always-ensure nil)
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" 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)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
(straight-use-package 'use-package)These “put” commands don’t have versions within customize-variables
(setq browse-pdf-generic-program (executable-find "emacsclient"))
(put 'list-timers 'disabled nil)
(put 'scroll-left 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)Customizations not paired to a particular package
(use-package emacs
:straight (:type built-in)
:init
(defun crm-indicator (args)
(cons (concat "[CRM] " (car args)) (cdr args)))
(advice-add #'completing-read-multiple :filter-args #'crm-indicator)
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
:custom
(backup-directory-alist '((".*" . "~/emacs/.emacs.d/temporary_files")))
(blink-cursor-blinks 0)
(blink-cursor-mode t)
(byte-compile-warnings nil)
(case-fold-search t)
(create-lockfiles nil)
(cua-global-mark-cursor-color "#2aa198")
(cua-normal-cursor-color "#839496")
(cua-overwrite-cursor-color "#b58900")
(cua-read-only-cursor-color "#859900")
(custom-safe-themes t)
(current-language-environment "UTF-8")
(truncate-lines nil)
(debug-on-error nil)
(debug-on-quit nil)
(delete-old-versions t)
(display-time-24hr-format t)
(display-time-day-and-date t)
(display-time-default-load-average nil)
(display-time-format " %m.%d %H:%M ")
(display-time-interval 60)
(display-time-mail-directory nil)
(display-time-mail-file 'none)
(display-time-mode nil)
(display-time-use-mail-icon t)
(electric-pair-mode nil)
(enable-local-variables t)
(fill-column 9999)
(frame-background-mode 'dark)
(global-hl-line-mode t)
(global-linum-mode nil)
(grep-find-command '("find . -type f -exec grep -m1 --color -nH --null -e \\{\\} + | sort -r" . 53))
(help-at-pt-display-when-idle '(flymake-diagnostic) nil (help-at-pt))
(help-at-pt-timer-delay 1)
(history-delete-duplicates t)
(hl-bg-colors
'("#7B6000" "#8B2C02" "#990A1B" "#93115C" "#3F4D91" "#00629D" "#00736F" "#546E00"))
(hl-fg-colors
'("#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36" "#002b36"))
(hl-paren-colors '("#B9F" "#B8D" "#B7B" "#B69" "#B57" "#B45" "#B33" "#B11"))
(hl-sexp-background-color "#efebe9")
(hscroll-margin 30)
(hscroll-step 3)
(image-file-name-extensions '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg" "webp"))
(image-use-external-converter t)
(imagemagick-enabled-types nil)
(imagemagick-types-inhibit t)
(inhibit-startup-screen t)
(initial-scratch-message "")
(large-file-warning-threshold nil)
(line-number-mode t)
(mark-even-if-inactive t)
(max-lisp-eval-depth 9000)
(max-mini-window-height 1.0)
(max-specpdl-size 10000)
(minibuffer-prompt-properties '(read-only t cursor-intangible t face minibuffer-prompt))
(orys-signature "b05c058f69")
(orys-url "https://orys.us/yourls-api.php")
(password-cache-expiry 3600)
(pos-tip-background-color "#073642")
(pos-tip-foreground-color "#93a1a1")
(recentf-auto-cleanup 'mode)
(recentf-max-menu-items 100)
(recentf-max-saved-items 100)
(resize-mini-windows 'grow-only)
(save-interprogram-paste-before-kill t)
(scroll-bar-mode nil)
(scroll-step 2)
(temporary-file-directory "~/.emacs.d/temporary_files")
(truncate-partial-width-windows nil)
(view-read-only t)
(visible-bell t)
(window-divider-default-bottom-width 1 nil nil "Customized with use-package window-divider")
(window-divider-default-places t nil nil "Customized with use-package window-divider")
(window-divider-default-right-width 1 nil nil "Customized with use-package window-divider")
(window-divider-mode t)
(word-wrap t)
;;;;;;;;;;;;;;;;;;;;;;
:custom-face
(default ((t (:inherit nil :extend nil :stipple nil :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 150 :width normal :foundry "ADBO" :family "Source Code Pro"))))
(cursor ((t (:background "orange red"))))
(display-time-mail-face ((t (:background "red" :foreground "deep sky blue" :box (:line-width 2 :color "grey75" :style released-button)))))
; (helm-selection ((t (:inherit bold :extend t :background "#4169e1" :foreground "black"))))
(hl-line ((t (:extend t :background "#191970"))))
(mode-line-buffer-id ((t (:foreground "white smoke" :background "midnight blue"))))
(mode-line ((t (:background "gray4" :foreground "light sky blue"))))
(mode-line-inactive ((t (:background "#696969" :foreground "black" :box nil))))
(popup-scroll-bar-background-face ((t (:background "black"))))
(popup-scroll-bar-foreground-face ((t (:background "red"))))
(scroll-bar ((t (:background "DarkRed" :foreground "black"))))
(show-paren-match ((t (:background "#Ff4500" :foreground "black" :weight ultra-bold))))
(window-divider ((t (:inherit vertical-border :background "cyan" :foreground "cyan" :width normal))))
:config
(global-hl-line-mode t)
(global-auto-revert-mode t)
) ;; use-package emacsUsing the straight-use-package macro to provide use-package functionality
See-as-you-go query-replace. https://github.com/emacsorphanage/anzu Incremental query-replace.
(use-package anzu
:delight
:config (global-anzu-mode 1)
(setq anzu-minimum-input-length 4))https://github.com/killdash9/better-shell Ties in with Hydra binds for shell management
(use-package better-shell
:commands (tsa/hydra-shells shell better-shell-shell))Bookmark+ is one of those must-have packages.
(use-package bookmark+
:straight (bookmark+ :type git :host github :repo "emacsmirror/bookmark-plus")
:demand t
:custom
(bmkp-last-as-first-bookmark-file "/home/torysa/emacs/.emacs.d/bookmarks")
(bookmark-save-flag 0)
(bmkp-prompt-for-tags-flag nil)
(bookmark-version-control t)
(bmkp-default-handlers-for-file-types
'(("\\.pdf$" . find-file)
("\\.html$" . browse-url)
("^http" . browse-url)))
:custom-face
(bmkp-a-mark ((t (:background "cyan" :foreground "black"))))
(bmkp-file-handler ((t (:background "#FF8080" :foreground "black"))))
:config
(defadvice bookmark-jump (after bookmark-jump activate)
(let ((latest (bookmark-get-bookmark bookmark)))
(setq bookmark-alist (delq latest bookmark-alist))
(add-to-list 'bookmark-alist latest)))
)https://github.com/minad/vertico
(use-package vertico
:init
(vertico-mode)
;; Optionally enable cycling for `vertico-next', `vertico-previous',
;; `vertico-next-group' and `vertico-previous-group'.
;; (setq vertico-cycle t)
)https://www.emacswiki.org/emacs/SaveHist Recommended by Vertico. May work like prescient?
(use-package savehist
:straight (:type built-in)
:init
(savehist-mode))Recommended by Vertico
(use-package orderless
:init
(setq completion-styles '(orderless)
completion-category-defaults nil
completion-category-overrides '((file (styles . (partial-completion))))))https://github.com/minad/consult
(use-package consult
:straight (consult :type git :host github :repo "minad/consult")
:demand t
:bind (("C-c s" . consult-outline)
("C-x j j" . consult-bookmark)
("M-s l" . consult-line)
("C-h k" . tsa/consult-descbinds)
("M-y" . consult-yank-pop)
("<help> a" . consult-apropos))
:config
(consult-customize
consult-bookmark :preview-key nil
consult-buffer :preview-key (kbd "M-p"))
(fset 'multi-occur #'consult-multi-occur))(defun consult-line-from-isearch ()
(interactive)
(consult-line isearch-string))(defun tsa/consult-descbinds ()
(interactive)
(describe-bindings)
(other-window 1)
(call-interactively #'consult-focus-lines))
https://github.com/alphapapa/bufler.el I like this for the buffer-list, though not for switch-buffer.
Note that C-x C-b will show only buffers in the currently focused group; if you U it with C-u C-x C-b you will see all buffers.
For my Firefox buffler to display, I need global (case-fold-search t)
(use-package bufler
:delight '(:eval (if bufler-workspace-mode (concat "[buf:-" bufler-workspace-name "]") ""))
:bind (("C-x C-b" . bufler)
:map bufler-list-mode-map
("G" . tramp-cleanup-all-buffers))
:custom (bufler-columns '("Name" "Size" "Path"))
(bufler-column-name-max-length 30)
:custom-face
(bufler-buffer-special ((t (:inherit default :foreground "aqua" :slant italic))))
:config
;(bufler-mode t)
(setf bufler-groups
(bufler-defgroups
(group
;; Subgroup collecting all named workspaces.
(auto-workspace))
(group
;; Subgroup collecting all `help-mode' and `info-mode' buffers.
(group-or "*Help/Info*"
(mode-match "*Help*" (rx bos "help-"))
(mode-match "*Info*" (rx bos "info-"))))
(group
;; Subgroup collecting all special buffers (i.e. ones that are not
;; file-backed), except `magit-status-mode' buffers (which are allowed to fall
;; through to other groups, so they end up grouped with their project buffers).
(group-and "*Special*"
(lambda (buffer)
(unless (or (funcall (mode-match "Magit" (rx bos "magit-status"))
buffer)
(funcall (mode-match "Dired" (rx bos "dired"))
buffer)
(funcall (auto-file) buffer))
"*Special*")))
(group
;; Subgroup collecting these "special special" buffers
;; separately for convenience.
(name-match "**Special**"
(rx bos "*" (or "Messages" "Warnings" "scratch" "Backtrace") "*")))
(group
;; Subgroup collecting all other Magit buffers, grouped by directory.
(mode-match "*Magit* (non-status)" (rx bos (or "magit" "forge") "-"))
(auto-directory))
;; Remaining special buffers are grouped automatically by mode.
(auto-mode))
;; All buffers under "~/.emacs.d" (or wherever it is).
(group
;; Subgroup collecting buffers in a projectile project.
(auto-projectile))
(group
;; Subgroup collecting buffers in a version-control project,
;; grouping them by directory.
(auto-project))
;; Group remaining buffers by directory, then major mode.
(auto-directory)
(auto-mode))))https://github.com/minad/marginalia
(use-package marginalia
:straight (marginalia :type git :host github :repo "minad/marginalia")
:bind (:map minibuffer-local-map
("C-M-a" . marginalia-cycle)
;; When using the Embark package, you can bind `marginalia-cycle' as an Embark action!
;;:map embark-general-map
;; ("A" . marginalia-cycle)
)
:init
(marginalia-mode)
;; When using Selectrum, ensure that Selectrum is refreshed when cycling annotations.
;; (advice-add #'marginalia-cycle :after
;; (lambda () (when (bound-and-true-p selectrum-mode) (selectrum-exhibit))))
;(setq marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil))
)(use-package embark
:straight (embark :type git :host github :repo "oantolin/embark")
:bind
(("M-." . embark-dwim)
("C-h B" . embark-bindings)
("C-." . embark-act)) ; pick some comfortable binding
:config
(setq embark-action-indicator
(lambda (map _target)
(which-key--show-keymap "Embark" map nil nil 'no-paging)
#'which-key--hide-popup-ignore-command)
embark-become-indicator embark-action-indicator)
(add-to-list 'display-buffer-alist
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
nil
(window-parameters (mode-line-format . none)))))(use-package embark-consult
:after (embark consult)
:demand t ; only necessary if you have the hook below
;; if you want to have consult previews as you move around an
;; auto-updating embark collect buffer
:hook
(embark-collect-mode . consult-preview-at-point-mode))Clojure-power!
(use-package cider
:bind (:map cider-mode-map
("C-c M-;" . cider-pprint-eval-last-sexp-to-comment)
("C-c TAB" . clojure-align))
:custom
(cider-inject-dependencies-at-jack-in t)
:config
(setq cider-repl-use-clojure-font-lock t
cider-font-lock-dynamically '(macro core function var)
cider-default-cljs-repl nil ;; query, since some projects are figwheel-main and some are figwheel
cider-repl-display-help-banner nil
cider-repl-use-pretty-printing t)
(fset 'tsa/clojure-letvar-to-def
(lambda (&optional arg)
"with cursor at a let-var, def it so you can proceed with repl debugging."
(interactive "p") (kmacro-exec-ring-item (quote ([40 100 101 102 32 C-right C-right 134217734 134217734 134217734 24 5 67108911 67108911] 0 "%d")) arg)))
(define-key clojure-mode-map (kbd "M-L") 'tsa/clojure-letvar-to-def))(use-package flycheck-joker) (use-package clojure-mode
:after flycheck-joker
:hook ((clojure-mode . my-clojure-mode-hook)
(clojure-mode . flycheck-mode))
:custom
(nrepl-message-colors
'("#dc322f" "#cb4b16" "#b58900" "#546E00" "#B4C342" "#00629D" "#2aa198" "#d33682" "#6c71c4"))
:custom-face
(clj-todo-face ((t (:box (:line-width 2 :color "dim gray" :style released-button) :weight ultra-bold))))
:config
(cider-auto-test-mode t)
(defun my-clojure-mode-hook ()
(highlight-phrase "TODO" 'clj-todo-face)
(yas-minor-mode 1)
(cljr-add-keybindings-with-prefix "C-c C-m")
(and buffer-file-name
(string-match "/\\(?:style\\|css\\)/" buffer-file-name)
(rainbow-mode 1)))
(use-package flycheck-clj-kondo
:config
(dolist (checkers '((clj-kondo-clj . clojure-joker)
(clj-kondo-cljs . clojurescript-joker)
(clj-kondo-cljc . clojure-joker)))
(flycheck-add-next-checker (car checkers) (cons 'error (cdr checkers))))))Better display
(use-package clojure-mode-extra-font-locking
:requires clojure-mode)Sometimes leads to load errors with cider.
(use-package clj-refactor
:after cider)https://company-mode.github.io/
(use-package company
:delight company-mode
:custom
(company-quickhelp-color-background "#4F4F4F")
(company-quickhelp-color-foreground "#DCDCCC")
(company-idle-delay 0.3)
:defer t
:config
(global-company-mode)
(add-hook 'prog-mode-hook #'company-mode-on)
(setq company-idle-delay 0.3))
(use-package company-quickhelp
:demand t
:config
(company-quickhelp-mode 1)
(setq company-quickhelp-delay 0.5)
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)))Workhorse dir-navigation. Refer to dired hacks and dired+
(use-package dired
:straight (:type built-in)
:custom
(dired-dwim-target t)
(dired-guess-shell-alist-user '(("\\.*$" "xdg-open")))
(dired-listing-switches "-alh")
(diredp-image-preview-in-tooltip 300)
:config
(add-hook 'dired-mode-hook (lambda () (auto-revert-mode)))
)Inimitable Drew Adams.
(use-package dired+
:custom
(dired-listing-switches "-alh")
(delete-by-moving-to-trash t)
:bind (:map dired-mode-map
("C-c C-r" . dired-toggle-read-only))
:config
(add-hook 'dired-mode-hook
(lambda ()
(define-key dired-mode-map (kbd "<return>")
'dired-find-alternate-file) ; was dired-advertised-find-file
(define-key dired-mode-map (kbd "^")
(lambda () (interactive) (find-alternate-file "..")))
; was dired-up-directory
))
(setq dired-guess-shell-alist-user
(list (list "\\.*$" "xdg-open");; fixed rule
;; possibly more rules...
))
(put 'dired-find-alternate-file 'disabled nil))settings, advanced sorting.
(defun dired-sort-toggle ()
"This is a redefinition of the fn from dired.el. Normally,
dired sorts on either name or time, and you can swap between them
with the s key. This function one sets sorting on name, size,
time, and extension. Cycling works the same.
"
(setq dired-actual-switches
(let (case-fold-search)
(cond
((string-match " " dired-actual-switches) ;; contains a space
;; New toggle scheme: add/remove a trailing " -t" " -S",
;; or " -U"
;; -t = sort by time (date)
;; -S = sort by size
;; -X = sort by extension
(cond
((string-match " -t\\'" dired-actual-switches)
(concat
(substring dired-actual-switches 0 (match-beginning 0))
" -X"))
((string-match " -X\\'" dired-actual-switches)
(concat
(substring dired-actual-switches 0 (match-beginning 0))
" -S"))
((string-match " -S\\'" dired-actual-switches)
(substring dired-actual-switches 0 (match-beginning 0)))
(t
(concat dired-actual-switches " -t"))))
(t
;; old toggle scheme: look for a sorting switch, one of [tUXS]
;; and switch between them. Assume there is only ONE present.
(let* ((old-sorting-switch
(if (string-match (concat "[t" dired-ls-sorting-switches "]")
dired-actual-switches)
(substring dired-actual-switches (match-beginning 0)
(match-end 0))
""))
(new-sorting-switch
(cond
((string= old-sorting-switch "t") "X")
((string= old-sorting-switch "X") "S")
((string= old-sorting-switch "S") "")
(t "t"))))
(concat
"-l"
;; strip -l and any sorting switches
(dired-replace-in-string (concat "[-lt"
dired-ls-sorting-switches "]")
""
dired-actual-switches)
new-sorting-switch))))))
(dired-sort-set-modeline)
(revert-buffer))
(defun dired-sort-set-modeline ()
"This is a redefinition of the fn from `dired.el'. This one
properly provides the modeline in dired mode, supporting the new
search modes defined in the new `dired-sort-toggle'.
"
;; Set modeline display according to dired-actual-switches.
;; Modeline display of "by name" or "by date" guarantees the user a
;; match with the corresponding regexps. Non-matching switches are
;; shown literally.
(when (eq major-mode 'dired-mode)
(setq mode-name
(let (case-fold-search)
(cond ((string-match "^-[^t]*t[^t]*$" dired-actual-switches)
"Dired by time")
((string-match "^-[^X]*X[^X]*$" dired-actual-switches)
"Dired by ext")
((string-match "^-[^S]*S[^S]*$" dired-actual-switches)
"Dired by sz")
((string-match "^-[^SXUt]*$" dired-actual-switches)
"Dired by name")
(t
(concat "Dired " dired-actual-switches)))))
(force-mode-line-update)))Trying to ensure chmod coloring
(use-package diredfl
:demand t
:config
(add-hook 'dired-mode-hook 'diredfl-mode)
:custom-face
(diredfl-dir-name ((t (:foreground "#3679D8" :box (:line-width 2 :color "grey75" :style released-button)))))
(diredfl-dir-priv ((t (:foreground "#3679D8" :underline t))))
(diredfl-exec-priv ((t (:background "#79D836" :foreground "black"))))
(diredfl-read-priv ((t (:background "#D8B941" :foreground "black"))))
(diredfl-write-priv ((t (:background "#D83441" :foreground "black")))))(use-package dired-rainbow
:custom-face
(dired-rainbow-directory-face ((t (:foreground "#6cb2eb" :box (:line-width 2 :color "deep sky blue" :style released-button)))))
:config
(progn
(dired-rainbow-define-chmod directory "#6cb2eb" "d.*")
(dired-rainbow-define html "#eb5286" ("css" "less" "sass" "scss" "htm" "html" "jhtm" "mht" "eml" "mustache" "xhtml"))
(dired-rainbow-define xml "#f2d024" ("xml" "xsd" "xsl" "xslt" "wsdl" "bib" "json" "msg" "pgn" "rss" "yaml" "yml" "rdata"))
(dired-rainbow-define document "#9561e2" ("docm" "doc" "docx" "odb" "odt" "pdb" "pdf" "ps" "rtf" "djvu" "epub" "odp" "ppt" "pptx"))
(dired-rainbow-define markdown "#ffed4a" ("org" "etx" "info" "markdown" "md" "mkd" "nfo" "pod" "rst" "tex" "textfile" "txt"))
(dired-rainbow-define database "#6574cd" ("xlsx" "xls" "csv" "accdb" "db" "mdb" "sqlite" "nc"))
(dired-rainbow-define media "#de751f" ("mp3" "mp4" "MP3" "MP4" "avi" "mpeg" "mpg" "flv" "ogg" "mov" "mid" "midi" "wav" "aiff" "flac"))
(dired-rainbow-define image "#f66d9b" ("tiff" "tif" "cdr" "gif" "ico" "jpeg" "jpg" "png" "psd" "eps" "svg"))
(dired-rainbow-define log "#c17d11" ("log"))
(dired-rainbow-define shell "#f6993f" ("awk" "bash" "bat" "sed" "sh" "zsh" "vim"))
(dired-rainbow-define interpreted "#38c172" ("py" "ipynb" "rb" "pl" "t" "msql" "mysql" "pgsql" "sql" "r" "clj" "cljs" "scala" "js"))
(dired-rainbow-define compiled "#4dc0b5" ("asm" "cl" "lisp" "el" "c" "h" "c++" "h++" "hpp" "hxx" "m" "cc" "cs" "cp" "cpp" "go" "f" "for" "ftn" "f90" "f95" "f03" "f08" "s" "rs" "hi" "hs" "pyc" ".java"))
(dired-rainbow-define executable "#8cc4ff" ("exe" "msi"))
(dired-rainbow-define compressed "#51d88a" ("7z" "zip" "bz2" "tgz" "txz" "gz" "xz" "z" "Z" "jar" "war" "ear" "rar" "sar" "xpi" "apk" "xz" "tar"))
(dired-rainbow-define packaged "#faad63" ("deb" "rpm" "apk" "jad" "jar" "cab" "pak" "pk3" "vdf" "vpk" "bsp"))
(dired-rainbow-define encrypted "#ffed4a" ("gpg" "pgp" "asc" "bfe" "enc" "signature" "sig" "p12" "pem"))
(dired-rainbow-define fonts "#6cb2eb" ("afm" "fon" "fnt" "pfb" "pfm" "ttf" "otf"))
(dired-rainbow-define partition "#e3342f" ("dmg" "iso" "bin" "nrg" "qcow" "toast" "vcd" "vmdk" "bak"))
(dired-rainbow-define vc "#0074d9" ("git" "gitignore" "gitattributes" "gitmodules"))
(dired-rainbow-define-chmod executable-unix "#38c172" "-.*x.*")
))https://github.com/Fuco1/dired-hacks#dired-filter
;; Ibuffer-style filtering and saved filter groups (persistent, unlike narrow)
(use-package dired-filter)https://github.com/Fuco1/dired-hacks#dired-narrow Live filtering of dired
(use-package dired-narrow
:bind
(:map dired-mode-map
("C-c n" . dired-narrow)))https://github.com/leoliu/easy-kill
Kill things smartly without worrying about the region. Replaces M-w and supplements with smart options.
See also expand-region.
M-w w: save word at point M-w s: save sexp at point M-w l: save list at point (enclosing sexp) M-w d: save defun at point M-w D: save current defun name M-w f: save file at point M-w b: save buffer-file-name or default-directory. - changes the kill to the directory name, + to full name and 0 to basename.
The following keys modify the selection:
@: append selection to previous kill and exit. For example, M-w d @ will append current function to last kill. C-w: kill selection and exit +, - and 1..9: expand/shrink selection 0 shrink the selection to the initial size i.e. before any expansion SPC: cycle through things in easy-kill-alist C-SPC: turn selection into an active region C-g: abort ?: help
(use-package easy-kill
:config
(global-set-key [remap kill-ring-save] 'easy-kill)
(global-set-key [remap mark-sexp] 'easy-mark))Needed for magit diff comparisons, among other things.
(use-package ediff
:custom
(diff-command "wdiff")
(diff-switches "")
(ediff-window-setup-function 'ediff-setup-windows-plain)
) (use-package helpful)There are a lot of highlighting options out there
(use-package hl-line+
:custom
(global-hl-line-mode t)
(hl-line-flash-show-period 1.0)
(hl-line-inhibit-highlighting-for-modes '(dired-mode))
(hl-line-overlay-priority -100) ;; sadly, seems not observed by diredfl
)https://github.com/tarsius/hl-todo
(use-package hl-todo
:custom
(hl-todo-keyword-faces
'(("TODO" . "#dc752f")
("NEXT" . "#dc752f")
("THEM" . "#2aa198")
("PROG" . "#268bd2")
("OKAY" . "#268bd2")
("DONT" . "#d70000")
("FAIL" . "#d70000")
("DONE" . "#86dc2f")
("NOTE" . "#875f00")
("KLUDGE" . "#875f00")
("HACK" . "#875f00")
("TEMP" . "#875f00")
("FIXME" . "#dc752f")
("XXX" . "#dc752f")
("XXXX" . "#dc752f")
("???" . "#dc752f")))
:config
(global-hl-todo-mode t))https://github.com/abo-abo/hydra
;; GOLDEN PACKAGE
(use-package hydra
:bind ("<f2>" . tsa/hydra-window/body))Necessary for spell-check actions
(use-package ivy-hydra
:after ispell
:custom
(ivy-display-style nil)
(ivy-minibuffer-faces nil)
(ivy-switch-buffer-faces-alist nil))(use-package which-key
:delight
:config
(which-key-mode))Golden package.
;; GOLDEN PAKAGE
(use-package magit
:defer 3
:bind (:map magit-section-mode-map
:map magit-mode-map
:custom
(vc-annotate-background nil)
(vc-annotate-color-map
'((20 . "#cc6666")
(40 . "#de935f")
(60 . "#f0c674")
(80 . "#b5bd68")
(100 . "#8abeb7")
(120 . "#81a2be")
(140 . "#b294bb")
(160 . "#cc6666")
(180 . "#de935f")
(200 . "#f0c674")
(220 . "#b5bd68")
(240 . "#8abeb7")
(260 . "#81a2be")
(280 . "#b294bb")
(300 . "#cc6666")
(320 . "#de935f")
(340 . "#f0c674")
(360 . "#b5bd68")))
(vcannotate-very-old-color nil)
(vc-follow-symlinks t)
(vc-handled-backends nil) ;; disable built-in vc
;(vc-handled-backends '(Git))
:config
(add-hook 'ediff-prepare-buffer-hook #'show-all) ;; Expand orgmode files before ediffing them
; (global-magit-file-mode)
(global-set-key (kbd "C-x g") 'magit-status)
(setq magit-diff-use-overlays nil)))https://github.com/magnars/multiple-cursors.el Another package that suggests power not had in GUI editors
(use-package multiple-cursors
:bind (("C-M-n" . mc/mark-next-lines))
:custom
(mc/always-run-for-all t))https://github.com/Fuco1/smartparens The new parinfer for structural editing.
(use-package smartparens
:demand t
:bind (("C-<f5>" . smartparens-mode))
:custom-face
(sp-show-pair-enclosing ((t (:inherit highlight :background "orange red"))))
(sp-show-pair-match-face ((t (:background "#Ff4500" :foreground "black" :weight ultra-bold))))
:config
(show-smartparens-global-mode)
(sp-use-paredit-bindings)
(add-hook 'emacs-lisp-mode-hook 'turn-on-smartparens-strict-mode)
(add-hook 'clojure-mode-hook 'turn-on-smartparens-strict-mode)
(add-hook 'cider-repl-mode-hook #'turn-on-smartparens-strict-mode)
(add-hook 'message-mode-hook 'turn-off-smartparens-mode)
(add-hook 'org-mode-hook 'turn-off-smartparens-mode)
(bind-keys
:map smartparens-strict-mode-map
(";" . sp-comment)
("M-[" . sp-backward-barf-sexp)
("M-]" . sp-forward-slurp-sexp)
("M-f" . sp-forward-symbol)
("M-b" . sp-backward-symbol)
("M-a" . sp-beginning-of-sexp)
("M-e" . sp-end-of-sexp)))Setup that makes Clojure/Elisp not double ’
(use-package smartparens-config
:straight (:type built-in))Turn on paren showing
(use-package paren
:config
(show-paren-mode 1))[#A] Projectile
Must have for project navigation.
(use-package projectile
:delight '(:eval (concat " [P: " (projectile-project-name) "]"))
:custom
(projectile-completion-system 'default)
(projectile-switch-project-action 'projectile-find-file)
:config
(projectile-global-mode)
(define-key projectile-command-map (kbd "s g") 'consult-git-grep))Excellent paren highlighting for lisp modes (or others).
(use-package rainbow-delimiters
:config
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode))https://github.com/Fanael/rainbow-identifiers Highlight variables with a rainbow
(use-package rainbow-identifiers
:config
(add-hook 'prog-mode-hook 'rainbow-identifiers-mode))Display CSS colors. Where is the .el for this actually obtained?
(use-package rainbow-mode
:mode "\\.css")https://www.emacswiki.org/emacs/RecentFiles Recent files
(use-package recentf
:straight (:type built-in)
:bind (("C-x C-r" . consult-recent-file))
:config
(setq recentf-max-menu-items 100)
(recentf-mode 1))(use-package shell
:straight (:type built-in)
:custom
(shell-command-prompt-show-cwd t)
(comint-completion-addsuffix nil)
(ansi-color-faces-vector
'[default bold shadow italic underline bold bold-italic bold])
(ansi-term-color-vector
'[unspecified "#1F1611" "#660000" "#144212" "#EFC232" "#5798AE" "#BE73FD" "#93C1BC" "#E6E1DC"] t)
(async-shell-command-buffer 'new-buffer)
:config ;http://stackoverflow.com/questions/704616/something-wrong-with-emacs-shell
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
(add-to-list 'display-buffer-alist
'("^\\*shell\\*$" . (display-buffer-same-window)))) ;; don't open shell in a new windowsql and postgres setup and defaults
(use-package sql
:config
(setq sql-mysql-login-params (append sql-mysql-login-params '(port)))
(setq sql-port 3306) ;; default MySQL port
(setq sql-postgres-login-params
'((user :default "torysa")
(database :default "torysa")
(server :default "localhost")
(port :default 5432))))https://github.com/akicho8/string-inflection
underscore → UPCASE → CamelCase conversion of names. Very useful when necessary, but I don’t need this very often.
(use-package string-inflection
:bind (("C-c C-u" . string-inflection-all-cycle)))https://github.com/abo-abo/ace-link
(use-package ace-link
:bind (:map gnus-summary-mode-map
("M-o" . ace-link-gnus)
:map gnus-article-mode-map
("M-o" . ace-link-gnus)
:map org-mode-map
("M-o" . ace-link-org)
:map w3m-mode-map
("M-o" . ace-link-w3m)
)
:config
(ace-link-setup-default))[2020-08-29 Sat] Still necessary for swap-windows [2020-05-26 Tue] Using winum instead Multi-screen window-hopping made easy
(use-package ace-window
:bind (("s-<tab>" . ace-window)))For extendedace navigation.
Replace GUI popup menu in Emacs with something more efficient
(use-package ace-popup-menu
:config
(ace-popup-menu-mode 1))https://github.com/winterTTr/ace-jump-mode Rapid hopping around by line on screen. wrap-ins for work with ace-isearch.
(use-package ace-jump-mode
:bind (("C-c SPC" . ace-jump-mode))
:custom
(ace-isearch-function 'ace-jump-char-mode)
:config
(setq ace-jump-mode-case-fold nil)
(setq ace-jump-mode-submode-list '(ace-jump-line-mode ace-jump-char-mode ace-jump-word-mode)
ace-jump-mode-scope 'frame))(use-package avy
:demand t
:custom
(avy-all-windows 'all-frames)
(avy-background t)
(avy-case-fold-search nil)
(avy-highlight-first t)
:custom-face
(avy-lead-face ((t (:background "#F5f5f5" :foreground "#1E1C31" :weight bold))))
(avy-lead-face-0 ((t (:inherit avy-lead-face :background "#Ff0000"))))
(avy-lead-face-1 ((t (:inherit avy-lead-face :background "#32cd32"))))
(avy-lead-face-2 ((t (:inherit avy-lead-face :background "#1e90ff")))))The ivy isearch. https://github.com/abo-abo/swiper
(use-package swiper)https://github.com/tam17aki/ace-isearch
One-button hop-arounds. Char nav with avy-goto-char.
(use-package ace-isearch
:demand t
:delight
:bind (:map isearch-mode-map
("M-i" . consult-line-from-isearch) ;; doesn't quite work; doesn't know search string
;("M-i" . ace-isearch-swiper-from-isearch)
)
:custom
(ace-isearch-function 'avy-goto-char)
(ace-isearch-2-switch-function 'avy-goto-char-2)
;(ace-isearch-function-from-isearch 'ace-isearch-swiper-from-isearch)
(ace-isearch-input-idle-delay 0.2)
;(ace-isearch-input-length 9)
(ace-isearch-use-ace-jump (quote printing-char))
(ace-isearch-use-function-from-isearch nil) ;; don't make long searches into fancy stuff
(ace-isearch-use-jump (quote printing-char))
:config
(global-ace-isearch-mode t)
(add-hook 'isearch-mode-hook
(function
(lambda ()
(define-key isearch-mode-map "\C-h" 'isearch-mode-help)
(define-key isearch-mode-map "\C-t" 'isearch-toggle-regexp)
(define-key isearch-mode-map "\C-c" 'isearch-toggle-case-fold)
(define-key isearch-mode-map "\C-j" 'isearch-edit-string)))))
https://github.com/waymondo/ace-jump-zap Zapping is a very fast selective cut option.
(use-package ace-jump-zap
:bind (("M-z" . ace-jump-zap-to-char))
:config
(setq ajz/zap-function 'kill-region))https://www.emacswiki.org/emacs/WindMove Navigating windows.
(use-package windmove
:config
(setq windmove-default-keybindings t))http://elpa.gnu.org/packages/windresize.html
(use-package windresize
:defer t
:bind ("C-c w" . windresize))https://www.emacswiki.org/emacs/WinnerMode Undo screen settings.
Can factor in ignored buffers (or regexp) like (add-to-list 'winner-boring-buffers "*helm M-x*")
(use-package winner
:straight (:type built-in)
:config
(winner-mode 1))https://github.com/dbordak/telephone-line
(use-package telephone-line
:after winum
:custom
(telephone-line-mode t)
(default-tab-width 3 t)
(telephone-line-primary-left-separator 'telephone-line-cubed-left)
(telephone-line-secondary-left-separator 'telephone-line-cubed-hollow-left)
(telephone-line-primary-right-separator 'telephone-line-cubed-right)
(telephone-line-secondary-right-separator 'telephone-line-cubed-hollow-right)
(telephone-line-height 24)
(telephone-line-evil-use-short-tag t)
:config
(setq telephone-line-faces '((evil . telephone-line-modal-face)
(modal . telephone-line-modal-face)
(ryo . telephone-line-ryo-modal-face)
(accent telephone-line-accent-active . telephone-line-accent-inactive)
(nil mode-line . mode-line-inactive)
(winum . (winum-face . winum-face))))
(telephone-line-defsegment telephone-line-org-clock-segment ()
(when (telephone-line-selected-window-active)
(if (and (functionp 'org-clocking-p) (org-clocking-p))
(org-clock-get-clock-string))))
(telephone-line-defsegment telephone-line-pdf-segment ()
(when (eq major-mode 'pdf-view-mode)
(propertize (pdf-view-page-number)
'face '(:inherit)
'display '(raise 0.0)
'mouse-face '(:box 1))))
(telephone-line-defsegment telephone-line-winum-segment ()
(propertize (eval (cadr winum--mode-line-segment))
'face '(:box (:line-width 2 :color "cyan" :style released-button))
'display '(raise 0.0)
'mouse-face '(:box 1)))
(setq telephone-line-lhs '((winum . (telephone-line-winum-segment))
(accent . (telephone-line-pdf-segment
telephone-line-vc-segment
telephone-line-erc-modified-channels-segment
telephone-line-process-segment))
(nil . (telephone-line-projectile-segment
telephone-line-buffer-segment
telephone-line-org-clock-segment
))))
;(setq telephone-line-center-rhs '((evil . (telephone-line-battery-segment))))
(setq telephone-line-rhs '((nil . (telephone-line-flycheck-segment
))
(accent . (telephone-line-major-mode-segment))
(evil . (telephone-line-airline-position-segment))))
(telephone-line-mode t))https://protesilaos.com/modus-themes/ Highly customizable, avoids some of the problems Doom caused my buffer-completion.
(use-package modus-themes
:straight (modus-themes :type git :host gitlab :repo "protesilaos/modus-themes")
:custom
(modus-themes-headings
'((t . rainbow-line)))
(modus-themes-slanted-constructs t)
(modus-themes-bold-constructs nil)
(modus-theme-mode-line '3d)
(modus-themes-intense-hl-line t)
(modus-themes-completions 'opinionated)
(modus-themes-lang-checkers 'intense-foreground)
:init
;; Load the theme files before enabling a theme
(modus-themes-load-themes)
:bind (("C-c T" . modus-themes-toggle))
:config
;(modus-themes-load-operandi)
(modus-themes-load-vivendi)
)Alternative to Hydra? https://github.com/magit/transient https://www.reddit.com/r/emacs/comments/mujxm7/weekly_tipstricketc_thread/gv8jxz5?utm_source=share&utm_medium=web2x&context=3
(use-package transient
:after org
;; comes installed with Magit, no need to install
:straight nil
;; Anything not in a binding below needs to be called-out as a command
:commands (transient-define-prefix)
:init
(autoload 'org-store-link "org")
:bind*
;("C-M-o" . tsa/transient-window)
;("C-c o" . tsa/transient-global-org)
("C-z" . tsa/transient-shell)
;("C-;" . tsa/transient-multiplecursors)
("C-h" . tsa/transient-help) ;; risky over-writing help?
;("M-g" . tsa/transient-goto)
("M-s h" . tsa/transient-highlight)
("C-c b" . tsa/transient-bbdb)
("C-x M-e" . tsa/transient-w3m)
;("<f1>" . tsa/hydra-fkeys/body)
("<f12>" . tsa-transient-spelling))The Transient commands I use.
Ace-window but go back to the Transient
;;; Usage Functions
(defun transient-ace-cmd ()
(interactive)
(ace-window 1)
(add-hook 'ace-window-end-once-hook
'tsa/transient-window))(defun tsa/split-vertical ()
(interactive)
(split-window-right)
(windmove-right))
(defun tsa/split-horizontal ()
(interactive)
(split-window-below)
(windmove-down))
(defun tsa/screen-swap ()
(interactive)
(ace-window 4)
;; (add-hook 'ace-window-end-once-hook
;; 'transient-window)
)
(defun tsa/del-window ()
(interactive)
(ace-window 16)
(add-hook 'ace-window-end-once-hook
'transient-window))
(defun tsa/split-window-4 ()
"Split into 4 windows"
(interactive)
(when (= 1 (length (window-list)))
(split-window-vertically)
(split-window-horizontally)
(other-window 2)
(split-window-horizontally)))
(defun tsa/correct-all ()
(interactive)
(setq current-prefix-arg '(4))
(call-interactively 'flyspell-correct-wrapper))
C-u) choose projects.
(defun tsa/projectile (&optional choose-project)
"Open the scratch buffer. With c-u, in other window."
(interactive "P")
(let ((scratch "*scratch*"))
(if choose-project (projectile-switch-project)
(projectile-find-file)))) (defun tsa/open-scratch (&optional same-window)
"Open the scratch buffer. With c-u, in other window."
(interactive "P")
(let ((scratch "*scratch*"))
(if same-window (switch-to-buffer scratch)
(switch-to-buffer-other-window scratch))))instead of hydra
(transient-define-prefix tsa/transient-highlight ()
"Persistent Highlights"
:transient-non-suffix 'transient--do-quit-one
[["Highlight"
("r" "Highlight regexp" highlight-lines-matching-regexp)
;("c" "Column Highlight Mode" column-highlight-mode)
("X" "highlight changes (global)" global-highlight-changes-mode)
("x" "Highlight changes (local)" highlight-changes-mode)
;("e" "Global highlight edits" global-semantic-highlight-edits-mode)
("l" "Highlight lines" highlight-lines-matching-regexp)
("b" "Compare buffers" highlight-compare-buffers)
("f" "Compare file" highlight-compare-with-file)
("p" "Highlight Phrase" highlight-phrase)
("r" "Highlight regexp" highlight-regexp)
("." "Highlight symbol at point" highlight-symbol-at-point)
("u" "Unhighlight" unhighlight-regexp)
]]) (transient-define-prefix tsa/transient-multiplecursors ()
"MultiCursors"
:transient-non-suffix 'transient--do-quit-one
:transient-suffix 'transient--do-stay
[["Multiple Cursors"
("n" "next~" mc/mark-next-lines)
("N" "un next~" mc/unmark-next-like-this)
("p" "prev~" mc/mark-previous-like-this)
("P" "un prev~" mc/unmark-previous-like-this)
("a" "all~" mc/mark-all-like-this)
("r" "all-region" mc/mark-all-in-region)
("d" "all-dwim" mc/mark-all-dwim)
("." "mark-pop" mc/mark-pop)
("w" "words" mc/mark-all-words-like-this)
("#" "numbers" mc/insert-numbers)]])eww helpers
(transient-define-prefix tsa/transient-w3m ()
"W3M"
:transient-non-suffix 'transient--do-quit-one
["W3M"
("e" "🔍 search" w3m-search)
("n" "🏠 new" w3m)
("h" "history" w3m-db-history)
("b" "buffers" w3m-select-buffer)
])Spell check convenience.
(transient-define-prefix tsa-transient-spelling ()
"Spelling"
:transient-non-suffix 'transient--do-quit-one
["Spelling"
("<f12>" "spell buffer" flyspell-buffer :transient t)
("<f11>" "spell correct" tsa/correct-all)
("<f10>" "one correct" flyspell-correct-wrapper)]
)Having the variety of shell-types available at fingertip. better-shell is easily the most common, though.
(transient-define-prefix tsa/transient-shell
"Shell commands to be used"
:transient-non-suffix 'transient--do-quit-one
["Shell Commands"
[("z" "bettersh" better-shell-shell)
("r" "remote" better-shell-remote-open)
("e" "eshell" eshell)
("t" "vterm" vterm-toggle-cd)
]])https://www.reddit.com/r/emacs/comments/f3o0v8/anyone_have_good_examples_for_transient/
(transient-define-prefix tsa/transient-help ()
"Help commands that I use. A subset of C-h with others thrown in."
:transient-non-suffix 'transient--do-quit-one
["Help Commands"
["Mode & Bindings"
("m" "Mode" describe-mode)
("b" "Major Bindings" which-key-show-full-major-mode)
("B" "Minor Bindings" which-key-show-full-minor-mode-keymap)
("d" "Descbinds" tsa/consult-descbinds)
("D" "Descbinds" Helper-describe-bindings)
("t" "Top Bindings " which-key-show-top-level)]
["Describe"
("C" "Command" helpful-command)
("f" "Function" helpful-callable)
("v" "Variable" helpful-variable)
("k" "Key" helpful-key)
("c" "Key Briefly" describe-key-briefly)
]
["Info on"
("C-m" "Linux Manual" man)
("C-c" "Emacs Command" Info-goto-emacs-command-node)
("C-f" "Function" describe-function)
("C-v" "Variable" describe-variable)
("C-k" "Emacs Key" Info-goto-emacs-key-command-node)
]
["Goto Source"
("L" "Library" find-library-other-frame)
("F" "Function" find-function-other-frame)
("V" "Variable" find-variable-other-frame)
("K" "Key" find-function-on-key-other-frame)
]
]
[
["Internals"
("u" "Insert Unicode Char" insert-char)
("I" "Input Method" describe-input-method)
("G" "Language Env" describe-language-environment)
("S" "Syntax" describe-syntax)
("O" "Coding System" describe-coding-system)
("C-o" "Coding Brief" describe-current-coding-system-briefly)
("T" "Display Table" describe-current-display-table)
("e" "Echo Messages" view-echo-area-messages)
("l" "Lossage" view-lossage)
]
["Describe"
("s" "Symbol" helpful-symbol)
("." "At Point " helpful-at-point)
("C-f" "Face" describe-face)
("w" "Where Is" where-is)
("=" "Position" what-cursor-position)
]
["Info Manuals"
("C-i" "Info" info)
("C-4" "Other Window " info-other-window)
("C-e" "Emacs" info-emacs-manual)
("C-m" "Linux Man" man)
]
]
) (defun tsa/move-splitter-left (arg)
"Move window splitter left."
(interactive "p")
(if (let ((windmove-wrap-around))
(windmove-find-other-window 'right))
(shrink-window-horizontally arg)
(enlarge-window-horizontally arg))) (defun tsa/move-splitter-right (arg)
"Move window splitter right."
(interactive "p")
(if (let ((windmove-wrap-around))
(windmove-find-other-window 'left))
(enlarge-window-horizontally arg)
(shrink-window-horizontally arg))) (defun tsa/move-splitter-up (arg)
"Move window splitter up."
(interactive "p")
(if (let ((windmove-wrap-around))
(windmove-find-other-window 'up))
(enlarge-window arg)
(shrink-window arg))) (defun tsa/exwm-workspace-swap ()
"Swap workspaces, querying for which to swap if there are more than 2"
(interactive)
(if (= 2 (exwm-workspace--count))
(let ((w1 (first exwm-workspace--list))
(w2 (second exwm-workspace--list)))
(exwm-workspace-swap w1 w2))
(call-interactively 'exwm-workspace-swap))) (defun tsa/move-splitter-down (arg)
"Move window splitter down."
(interactive "p")
(if (let ((windmove-wrap-around))
(windmove-find-other-window 'up))
(shrink-window arg)
(enlarge-window arg)))in-buffer navigation shortcuts.
(transient-define-prefix tsa/transient-scroll ()
"WIP Navigate screen repeatably. but suffix or infix don't seem to do it"
:transient-non-suffix 'transient--do-quit-one
[["Navigate Viewport"
("," "scroll leftward" scroll-right)
("." "scroll rightward" scroll-left)
("[" "backward a page" backward-page)
("]" "forward a page" forward-page)]])
(transient-define-prefix tsa/transient-goto ()
"Buffer nav"
:transient-non-suffix 'transient--do-quit-one
[["Go To in Buffer"
("g" "line" goto-line)
("TAB" "column" move-to-column)
("l" "jump to visible line" ace-jump-line-mode)
("c" "char" goto-char)
("o" "ace" ace-link)
]
["Navigate Viewport"
("[" "Navigate Viewport" tsa/transient-scroll)
]
["Errors"
("n" "next err" next-error)
("p" "prev err" previous-error)]
["Replace"
("r" "query replace simple" anzu-query-replace)
("R" "query replace regexp" anzu-query-replace-regexp)
("t" "query replace thing at cursor" anzu-query-replace-at-cursor)
("T" "clobber-replace thing at cursor" anzu-query-replace-at-cursor-thing)
]]) (defun tsa/toggle-ace-mode ()
"Toggle whether to search by word or char"
:transient-non-suffix 'transient--do-quit-one
(interactive)
(if (function-equal ace-isearch-function 'ace-jump-char-mode)
(progn
(setq ace-isearch-function 'ace-jump-word-mode)
(message "Jump-Word Mode"))
(progn
(setq ace-isearch-function 'ace-jump-char-mode)
(message "Jump-Char Mode"))))
quick-org or downloading mail)
(transient-define-prefix tsa/transient-fkeys
"Transient for the <f#> keys"
:transient-non-suffix 'transient--do-quit-one
["F-Keys"
("<f1>" "hide modeline" tsa/hide-mode-line)
("<C-f1>" "show filename" tsa/show-file-name)
("<f2>" "prev msg" tsa/insert-previous-message)
("<f3>" "Toggle search word//char" tsa/toggle-ace-mode)
("<f4>" "shorturl" tsa/yourls-shorten-at-point)
("<f5>" "truncate lines" toggle-truncate-lines)
("<f6>" "hl-line mode" global-hl-line-mode)
("<S-f6>" "hicol" column-highlight-mode )
("<f7>" "line num mode" display-line-numbers-mode)
("<C-f7" "scrollbar" toggle-scroll-bar)
("r" "revert buffer" revert-buffer)])(defun tsa/hide-mode-line (arg)
"Hide or global hide-modeline for a transient. Doesn't work, though."
(interactive "p")
(message (format "Arg is: %d" arg))
(cond
((equal arg 1)
((lambda () (interactive) (hide-mode-line-mode))))
((equal arg 4)
((lambda () (interactive) (global-hide-mode-line-mode))))))How to compensate for transient colors? And “cancel” button?
(transient-define-prefix tsa/transient-window ()
"Window navigation transient"
:transient-non-suffix 'transient--do-quit-one
:transient-suffix 'transient--do-stay
[["Movement"
("h" "focus ←" windmove-left)
("j" "focus ↓" windmove-down)
("k" "focus ↑" windmove-up)
("l" "focus →" windmove-right)]
["Resize"
("q" "X←" tsa/move-splitter-left)
("w" "X↓" tsa/move-splitter-down)
("e" "X↑" tsa/move-splitter-up)
("r" "X→" tsa/move-splitter-right)]
["Switch"
("b" "buffer" switch-to-buffer)
("f" "find-file" find-file)
("g" "git-grep" consult-git-grep)
("p" "projectile" tsa/projectile)
("F" "follow" follow-mode)
("a" "ace 1" transient-ace-cmd)]
["Split"
("v" "vertical" tsa/split-vertical)
("x" "horizontal" tsa/split-horizontal)
("`" "exwm swap" tsa/exwm-workspace-swap)
("s" "swap" tsa/screen-swap)
("S" "split" toggle-window-split)
("d" "delete window" delete-window)
("D" "delete other" tsa/del-window)
("o" "delete other2" delete-other-windows)
;; ("z" (lambda ()
;; (winner-undo)
;; (setq this-command 'winner-undo)))
("Z" "winner redo" winner-redo)
;("SPC" "" nil)
]
["Scroll"
("." "left" scroll-left)
("," "right" scroll-right)
("4" "quad view" tsa/split-window-4)
("=" "Scratch" tsa/open-scratch)
; (";TODO: " "" projectile-toggle-between-implementation-and-test "test<>imp")
]]
)https://www.emacswiki.org/emacs/UndoTree Nice visual, sometimes great for when undo history gets messed up
(use-package undo-tree
:delight undo-tree-mode
:bind (("C-x /" . undo-tree-visualize))
:config
(global-undo-tree-mode t))https://github.com/mhayashi1120/Emacs-wgrep
Writable grep, for refactoring.
(use-package wgrep
:bind (:map grep-mode-map
("r" . wgrep-change-to-wgrep-mode)))[2020-05-26 Tue] Window numbering; I’m comparing it with Ace-Window. https://github.com/deb0ch/emacs-winum
(use-package winum
:demand t
;:bind (("s-<tab>" . tsa/winum-or-switch))
:custom-face
(winum-face ((t (:background "cyan" :foreground "black" :weight ultra-bold :width extra-condensed))))
:custom
(winum-auto-setup-mode-line nil)
:config
(winum-set-keymap-prefix (kbd "s-`"))
(winum-mode t)
(add-hook 'window-state-change-hook 'winum--update) ;; this hook is too early
(defun tsa/winum-or-switch (&optional p)
(interactive "p")
(if (= 2 winum--window-count)
(other-frame p)
(call-interactively 'winum-select-window-by-number))))https://github.com/joaotavora/yasnippet Snippets anywhere.
(use-package yasnippet
:delight yas-minor-mode
:custom
(yas-indent-line 'fixed)
:custom-face
(yas-field-highlight-face ((t (:inherit secondary-selection))))
:config
(add-to-list 'yas-snippet-dirs "~/emacs/Snippets")
(add-to-list 'yas-snippet-dirs "~/emacs/.emacs.d/snippets/yasnippet-snippets/snippets")
(use-package clojure-snippets )
(yas-global-mode))I utilize a personal key-map for my keys.
Numpad keys without numlock: 0 <kp-insert> 1 <kp-end> 2 <kp-down> 3 <kp-next> 4 <kp-left> 5 <kp-begin> 6 <kp-right> 7 <kp-home> 8 <kp-up> 9 <kp-prior>
(defvar tsa-keys-map
(let ((map (make-sparse-keymap)))
(define-key map [remap just-one-space] 'cycle-spacing)
;(define-key map (kbd "C-S-f7") 'column-highlight-mode)
(define-key map (kbd "<C-f8>") 'calendar)
(define-key map (kbd "<f11>") 'org-capture)
(define-key map (kbd "<C-f11>") 'calculator)
(define-key map (kbd "C-x C-d") 'dired) ;; so dired is both C-x C-d and C-x d
(define-key map (kbd "C-x C-q") 'view-mode) ;; view mode
(define-key map (kbd "M-C-;") 'comment-box)
; (define-key map (kbd "C-;") 'hydra-multiplecursors)
(define-key map (kbd "C-c SPC") 'ace-jump-mode)
(define-key map (kbd "M-c") 'capitalize-dwim)
(define-key map (kbd "M-l") 'downcase-dwim)
(define-key map (kbd "M-u") 'upcase-dwim)
(define-key map (kbd "C-c h m") 'man)
(define-key map (kbd "C-h c") 'counsel-colors-web)
(define-key map (kbd "C-h u") 'insert-char)
(define-key map (kbd "C-h l") 'find-library)
(define-key map (kbd "C-h v") 'describe-variable)
(define-key map (kbd "C-h f") 'describe-function)
(define-key map (kbd "C-h t") 'list-timers)
(define-key map (kbd "C-h i") 'info-lookup-symbol)
map)
"my-keys-minor-mode keymap.")
(define-minor-mode tsa-keys
"A minor mode so that my key settings override annoying major modes."
:init-value t
:lighter " ")
(global-set-key (kbd "<C-f3>") 'tsa-keys)
(tsa-keys 1)And now giving priority, re https://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs
(add-hook 'after-load-functions 'my-keys-have-priority)
(defun my-keys-have-priority (_file)
"Try to ensure that my keybindings retain priority over other minor modes.
Called via the `after-load-functions' special hook."
(unless (eq (caar minor-mode-map-alist) 'tsa-keys)
(let ((mykeys (assq 'tsa-keys minor-mode-map-alist)))
(assq-delete-all 'tsa-keys minor-mode-map-alist)
(add-to-list 'minor-mode-map-alist mykeys))))Files under emacs/lisp representing customizations and functions I’ve written
The Hydra commands I use.
;; THIS FILE IS GENERATED
;; Miscellaneous functions
;; Tory S. Anderson (concat "mail" "@" "toryanderson" ".com")Ace-window but go back to the Hydra
;;; Usage Functions
(defun tsa/hydra-ace-cmd ()
(interactive)
(ace-window 1)
(add-hook 'ace-window-end-once-hook
'tsa/transient-window))Split window vertically and move to the split
(defun hydra-split-vertical ()
(interactive)
(split-window-right)
(windmove-right))Split window horizontally and move to the split
(defun hydra-split-horizontal ()
(interactive)
(split-window-below)
(windmove-down))Swap two screens (windows) with eachother, then back to hydra.
(defun tsa/hydra-screen-swap ()
(interactive)
(ace-window 4)
(add-hook 'ace-window-end-once-hook
'tsa/hydra-window))Kill a window
(defun hydra-del-window ()
(interactive)
(ace-window 16)
(add-hook 'ace-window-end-once-hook
'tsa/transient-window))For large screens (like my TV), make the screen into a quad. Do nothing if we already have any splits.
(defun tsa/split-window-4 ()
"Split into 4 windows"
(interactive)
(if (= 1 (length (window-list)))
(progn (split-window-vertically)
(split-window-horizontally)
(other-window 2)
(split-window-horizontally))))(defun tsa/correct-all ()
(interactive)
(setq current-prefix-arg '(4))
(call-interactively 'flyspell-correct-wrapper))Choose files from this project or (C-u) choose projects.
(defun tsa/projectile (&optional choose-project)
"Open the scratch buffer. With c-u, in other window."
(interactive "P")
(let ((scratch "*scratch*"))
(if choose-project (projectile-switch-project)
(projectile-find-file))))open or switch to scratch buffer.
(defun tsa/open-scratch (&optional same-window)
"Open the scratch buffer. With c-u, in other window."
(interactive "P")
(let ((scratch "*scratch*"))
(if same-window (switch-to-buffer scratch)
(switch-to-buffer-other-window scratch))))This is where the difference between key-bindings and hydra function calls really comes into play.
Some of these break because they are a hydra. E.g. the dwim.
(defhydra tsa/hydra-multiplecursors (global-map "C-;"
:color red)
"MultiCursors"
("n" mc/mark-next-lines "next~")
("N" mc/unmark-next-lines "un next~")
("p" mc/mark-previous-lines "prev~")
("P" mc/unmark-previous-lines "un prev~")
("a" mc/mark-all-like-this "all~")
("r" mc/mark-all-in-region "all-region")
("d" mc/mark-all-dwim "all-dwim")
("." mc/mark-pop "mark-pop")
("w" mc/mark-all-words-like-this "words")
("#" mc/insert-numbers "numbers")
("SPC" nil) )Having the variety of shell-types available at fingertip. better-shell is easily the most common, though.
(global-set-key
(kbd "C-z")
(defhydra tsa/hydra-shells (:color blue)
"Shell"
("z" better-shell-shell "bettersh")
("C-z" better-shell-shell "bettersh")
("Z" better-shell-remote-open "better-remote")
("e" eshell "eshell")
("t" term "term")))The giant org hydra, intended to be used everwhere, including in exwm windows.
(global-set-key
(kbd "C-c o")
(defhydra tsa/hydra-global-org (:color blue
:hint nil
:body-pre (setq exwm-input-line-mode-passthrough ''t)
:post (setq exwm-input-line-mode-passthrough nil))
("C-t" org-timer-start "⏰ start")
("C-s" org-timer-stop "⏰ stop")
("C-S" org-timer-stop)
;; Need to be at timer
("r" org-timer-set-timer "⏰ set")
("C-r" org-timer-set-timer)
;; Print timer value to buffer0:00:00
("p" org-timer "⏲ stat")
("C-p" org-timer)
("w" (org-mru-clock-in ;org-clock-in '(4)
) "🕑 clock-in")
("C-w" (org-clock-in '(4)))
("o" org-clock-out "🕕 out")
("C-o" org-clock-out)
;; Visit the clocked task from any buffer
("j" org-clock-goto "⮏")
("C-j" org-clock-goto)
("l" org-capture-goto-last-stored "⮰")
("C-l" org-capture-goto-last-stored)
("," org-priority "orgp⤴")
("C-," org-priority)
("h" hugo "✍ hugo")
("u" hugo-publish-up "✍ pub")
("t" hugo-total "✍ total")
("g" org-gfm-export-as-markdown "as🅫")
("\\" org-toggle-pretty-entities "λ")
("W" org-clock-in-last "Clock in the last task")
("J" (lambda () (interactive) (org-clock-goto '(4))) "Go to a clock"))) (require 'windmove) ; also already added in my emacs-el (defun tsa/hydra-move-splitter-left (arg)
"Move window splitter left."
(interactive "p")
(if (let ((windmove-wrap-around))
(windmove-find-other-window 'right))
(shrink-window-horizontally arg)
(enlarge-window-horizontally arg))) (defun tsa/hydra-move-splitter-left (arg)
"Move window splitter right."
(interactive "p")
(if (let ((windmove-wrap-around))
(windmove-find-other-window 'right))
(enlarge-window-horizontally arg)
(shrink-window-horizontally arg))) (defun tsa/hydra-move-splitter-up (arg)
"Move window splitter up."
(interactive "p")
(if (let ((windmove-wrap-around))
(windmove-find-other-window 'up))
(enlarge-window arg)
(shrink-window arg))) (defun tsa/exwm-workspace-swap ()
"Swap workspaces, querying for which to swap if there are more than 2"
(interactive)
(if (= 2 (exwm-workspace--count))
(let ((w1 (first exwm-workspace--list))
(w2 (second exwm-workspace--list)))
(exwm-workspace-swap w1 w2))
(call-interactively 'exwm-workspace-swap))) (defun tsa/hydra-move-splitter-down (arg)
"Move window splitter down."
(interactive "p")
(if (let ((windmove-wrap-around))
(windmove-find-other-window 'up))
(shrink-window arg)
(enlarge-window arg))) (global-set-key [C-up] 'enlarge-window)
(global-set-key [C-down] (lambda () (interactive)
(enlarge-window -1)))(bind-key* "C-M-o"
(defhydra tsa/hydra-window (:body-pre (setq exwm-input-line-mode-passthrough ''t)
:post (setq exwm-input-line-mode-passthrough nil))
"
Movement^^ ^Split^ ^Switch^ ^Resize^
----------------------------------------------------------------
_h_ ← _v_ertical _b_uffer _q_ X←
_j_ ↓ _x_ horizontal _f_ind files _w_ X↓
_k_ ↑ _z_ undo _a_ce 1 _e_ X↑
_l_ → _Z_ redo _s_wap _r_ X→
_F_ollow _S_witch _D_lt Other max_i_mize
_SPC_ cancel _o_nly this _d_elete
_,_ Scroll← _p_roject
_._ Scroll→ _g_rep
"
("h" windmove-left )
("C-h" windmove-left )
("j" windmove-down )
("C-j" windmove-down )
("k" windmove-up )
("C-k" windmove-up )
("l" windmove-right )
("C-l" windmove-right )
("q" tsa/hydra-move-splitter-left)
("C-q" tsa/hydra-move-splitter-left)
("w" tsa/hydra-move-splitter-down)
("C-w" tsa/hydra-move-splitter-down)
("e" tsa/hydra-move-splitter-up)
("C-e" tsa/hydra-move-splitter-up)
("r" tsa/hydra-move-splitter-right)
("C-r" tsa/hydra-move-splitter-right)
("b" switch-to-buffer)
("C-b" switch-to-buffer)
("f" find-file)
("C-f" find-file)
("g" consult-git-grep :color blue)
("p" tsa/projectile)
("C-p" tsa/projectile)
("F" follow-mode)
("C-F" follow-mode)
("a" tsa/hydra-ace-cmd)
("C-a" tsa/hydra-ace-cmd)
("v" tsa/split-vertical)
("C-v" tsa/split-vertical)
("x" tsa/split-horizontal)
("C-x" tsa/split-horizontal)
("s" tsa/screen-swap)
("C-s" tsa/screen-swap)
("S" toggle-window-split)
("C-S" toggle-window-split)
("d" delete-window)
("C-d" delete-window)
("D" tsa/del-window)
("C-D" tsa/del-window)
("o" delete-other-windows)
("C-o" delete-other-windows)
("i" ace-maximize-window)
("C-i" ace-maximize-window)
("z" (progn
(winner-undo)
(setq this-command 'winner-undo)))
("C-z" (progn
(winner-undo)
(setq this-command 'winner-undo)))
("Z" winner-redo)
("C-Z" winner-redo)
("SPC" nil)
("C-SPC" nil)
("." scroll-left)
("," scroll-right)
("4" tsa/split-window-4)
("=" tsa/open-scratch "Scratch")
("t" projectile-toggle-between-implementation-and-test "test<>imp")
("`" tsa/exwm-workspace-swap "exwm swap")))in-buffer navigation shortcuts.
(global-set-key
(kbd "M-g")
(defhydra tsa/hydra-goto ()
"Go To"
("g" goto-line "line") ; reserve for normal M-g g function (may be different in some modes)
("M-g" goto-line "line")
("TAB" move-to-column "col")
("l" ace-jump-line-mode "ace line" :color blue)
("c" goto-char "char")
("n" next-error "next err")
("o" ace-link "ace" :color blue)
("p" previous-error "prev err")
("r" anzu-query-replace "qrep")
("R" anzu-query-replace-regexp "rep regex")
("t" anzu-query-replace-at-cursor "rep cursor")
("T" anzu-query-replace-at-cursor-thing "rep cursor thing")
("," scroll-right "scroll leftward")
("." scroll-left "scroll rightward")
("[" backward-page "back page")
("]" forward-page "forward page")
("SPC" nil "cancel")))Determine whether to ace-search by char or word.
(defun tsa/toggle-ace-mode ()
"Toggle whether to search by word or char"
(interactive)
(if (function-equal ace-isearch-function 'ace-jump-char-mode)
(progn
(setq ace-isearch-function 'ace-jump-word-mode)
(message "Jump-Word Mode"))
(progn
(setq ace-isearch-function 'ace-jump-char-mode)
(message "Jump-Char Mode"))))(defun tsa/hide-mode-line (arg)
"Hide or global hide-modeline for a hydra. Doesn't work, though."
(interactive "p")
(message (format "Arg is: %d" arg))
(cond
((equal arg 1)
((lambda () (interactive) (hide-mode-line-mode))))
((equal arg 4)
((lambda () (interactive) (global-hide-mode-line-mode))))))Extends the f-keys to be documented and to concerve space. f-kays that aren’t used super-frequently go here (ie. not quick-org or downloading mail)
(defhydra tsa/hydra-fkeys
(:color red)
"F Keys"
("<f1>" tsa/hide-mode-line "modeline" :color blue)
("<C-f1" tsa/show-file-name "filename" :color blue)
("<f2>" tsa/insert-previous-message "prev msg")
("<f3>" tsa/toggle-ace-mode "Search w//c")
("<f4>" tsa/yourls-shorten-at-point "shorturl")
("<f5>" toggle-truncate-lines "truncate" :color blue)
("<f6>" global-hl-line-mode "hlline")
("<S-f6>" column-highlight-mode "hicol")
("<f7>" display-line-numbers-mode "lnum")
("<C-f7" toggle-scroll-bar "scrollbar")
("r" revert-buffer "revert")
("SPC" nil "cancel" :color blue))Miscellaneous Personal Functions
(require 'seq)(defun toggle-window-split ()
"Toggle whether windows are split vertically or horizontally"
(interactive)
(if (= (count-windows) 2)
(let* ((this-win-buffer (window-buffer))
(next-win-buffer (window-buffer (next-window)))
(this-win-edges (window-edges (selected-window)))
(next-win-edges (window-edges (next-window)))
(this-win-2nd (not (and (<= (car this-win-edges)
(car next-win-edges))
(<= (cadr this-win-edges)
(cadr next-win-edges)))))
(splitter
(if (= (car this-win-edges)
(car (window-edges (next-window))))
'split-window-horizontally
'split-window-vertically)))
(delete-other-windows)
(let ((first-win (selected-window)))
(funcall splitter)
(if this-win-2nd (other-window 1))
(set-window-buffer (selected-window) this-win-buffer)
(set-window-buffer (next-window) next-win-buffer)
(select-window first-win)
(if this-win-2nd (other-window 1)))))) (defun tsa/rename-file-and-buffer ()
"Rename the current buffer and file it is visiting."
(interactive)
(let ((filename (buffer-file-name)))
(if (not (and filename (file-exists-p filename)))
(message "Buffer is not visiting a file!")
(let ((new-name (read-file-name "New name: " filename)))
(cond
((vc-backend filename) (vc-rename-file filename new-name))
(t
(rename-file filename new-name t)
(set-visited-file-name new-name t t)))))))