750 lines
25 KiB
EmacsLisp
750 lines
25 KiB
EmacsLisp
;;; init.el -- EMACS -*- lexical-binding: t -*-
|
|
;;;
|
|
;;; Author: James Dixon <notjamesdixon@gmail.com>
|
|
;;; Maintainer: James Dixon <notjamesdixon@gmail.com>
|
|
;;;
|
|
;;; Commentary:
|
|
;;; My Literate Emacs Config
|
|
;;;
|
|
;;; Code:
|
|
|
|
(setq user-full-name "James Dixon")
|
|
(setq user-mail-address "notjamesdixon@gmail.com")
|
|
|
|
;; Set default language encoding to UTF-8
|
|
(set-language-environment "UTF-8")
|
|
|
|
(setq use-short-answers t) ; Allow for shorter responses: "y" for yes and "n" for no.
|
|
|
|
;; Do not do these things
|
|
(setq inhibit-startup-screen t) ; Don't show the splash screen
|
|
(setq kill-do-not-save-duplicates t) ; No duplicates in kill ring
|
|
|
|
;; UI cleanup
|
|
(tool-bar-mode -1) ; Disable tool bar
|
|
(scroll-bar-mode -1) ; Disable scroll bar
|
|
(menu-bar-mode -1) ; Disable menu bar
|
|
|
|
;; Enable visual bells and disable whistles
|
|
(setq visible-bell 1) ; Flash when the bell rings (no sound)
|
|
(setq frame-resize-pixelwise t) ; Yes, I would like to be able to **resize** emacs frame, thanks!
|
|
(setq window-resize-pixelwise nil) ; Not for windows inside emacs though
|
|
(winner-mode 1) ; Record the changes in window configuration (undo/redo window changes)
|
|
|
|
;; Show lines and columns
|
|
(global-display-line-numbers-mode 1) ; Display line numbers
|
|
(column-number-mode 1) ; Toggle column number display in the mode line.
|
|
|
|
;; Mark and go-to modes
|
|
(transient-mark-mode 1) ; Easier starting of marks/regions
|
|
(delete-selection-mode 1) ; Easier deleting of marks/regions
|
|
(global-goto-address-mode 1) ; Make links and addresses go-to able
|
|
|
|
;; Show paren differently
|
|
(setq show-paren-delay 0.1
|
|
show-paren-highlight-openparen t
|
|
show-paren-when-point-inside-paren t
|
|
show-paren-when-point-in-periphery t)
|
|
|
|
;;; Comment Settings
|
|
(setq comment-multi-line t)
|
|
(setq comment-empty-lines t)
|
|
(setq-default fill-column 80)
|
|
|
|
;;; Memory Limits and Performance
|
|
;; Undo/Redo
|
|
(setq undo-limit (* 13 160000)
|
|
undo-strong-limit (* 13 240000)
|
|
undo-outer-limit (* 13 24000000))
|
|
|
|
;; Garbage Collection
|
|
(setq gc-cons-threshold-original gc-cons-threshold)
|
|
(setq gc-cons-threshold (* 1024 1024 100))
|
|
|
|
;; Perf: Reduce command completion overhead.
|
|
(setq read-extended-command-predicate #'command-completion-default-include-p)
|
|
|
|
;;; Theme (Default)
|
|
(cond
|
|
((find-font (font-spec :name "Maple Mono"))
|
|
(set-frame-font "Maple Mono 12" nil t)))
|
|
(load-theme 'modus-vivendi t)
|
|
;; (load-theme 'modus-operandi t)
|
|
|
|
;;; File History, Saving and Reverting
|
|
|
|
;; Place backups in a separate folder.
|
|
(setq backup-directory-alist `(("." . "~/.config/emacs/saves")))
|
|
(setq auto-save-file-name-transforms `((".*" "~/.config/emacs/saves/" t)))
|
|
|
|
;; `recentf' is an that maintains a list of recently accessed files.
|
|
(setq recentf-max-saved-items 300) ; default is 20
|
|
(setq recentf-max-menu-items 15)
|
|
(setq recentf-auto-cleanup (if (daemonp) 300 'never))
|
|
(add-hook 'after-init-hook #'(lambda() (let ((inhibit-message t)) (recentf-mode 1))))
|
|
|
|
;; `savehist-mode' is an Emacs feature that preserves the minibuffer history
|
|
;; between sessions.
|
|
(setq history-length 300)
|
|
(setq savehist-save-minibuffer-history t) ;; Default
|
|
(setq savehist-additional-variables
|
|
'(kill-ring ; clipboard
|
|
register-alist ; macros
|
|
mark-ring global-mark-ring ; marks
|
|
search-ring regexp-search-ring)) ; searches
|
|
;; savehist is an Emacs feature that preserves the minibuffer history between sessions
|
|
(add-hook 'after-init-hook #'savehist-mode)
|
|
;; save-place-mode enables Emacs to remember the last location within a file
|
|
(add-hook 'after-init-hook #'save-place-mode)
|
|
;; Auto-revert in Emacs is a feature that automatically updates buffer to reflect changes on disk
|
|
(add-hook 'after-init-hook #'global-auto-revert-mode)
|
|
|
|
;; Enable `auto-save-mode' to prevent data loss. Use `recover-file' or
|
|
;; `recover-session' to restore unsaved changes.
|
|
(setq auto-save-default t)
|
|
(setq auto-save-interval 300)
|
|
(setq auto-save-timeout 30)
|
|
(setq auto-save-visited-interval 10)
|
|
(auto-save-visited-mode 1)
|
|
|
|
;; Auto-refresh buffers when files on disk change.
|
|
(global-auto-revert-mode t)
|
|
|
|
(define-minor-mode clean-trailing-whitespace-mode
|
|
"Tidy up trailing whitespace with `delete-trailing-whitespace' before saving."
|
|
:lighter " ctsv"
|
|
(if clean-trailing-whitespace-mode
|
|
(add-hook 'before-save-hook #'delete-trailing-whitespace nil t)
|
|
(remove-hook 'before-save-hook #'delete-trailing-whitespace t)))
|
|
|
|
(define-minor-mode clean-all-whitespace-mode
|
|
"Tidy up *all* whitespace with `whitespace-cleanup' before saving."
|
|
:lighter " casv"
|
|
(if clean-trailing-whitespace-mode
|
|
(add-hook 'before-save-hook #'whitespace-cleanup nil t)
|
|
(remove-hook 'before-save-hook #'whitespace-cleanup t)))
|
|
|
|
(define-minor-mode check-parens-save-mode
|
|
"Check the balance of parens with `check-parens' before saving."
|
|
:lighter " cpns"
|
|
(if check-parens-save-mode
|
|
(add-hook 'before-save-mode #'check-parens nil t)
|
|
(remove-hook 'before-save-mode #'check-parens t)))
|
|
|
|
;;; Minor Mode Hooks
|
|
(add-hook 'prog-mode #'clean-all-whitespace-mode)
|
|
(add-hook 'emacs-lisp-mode #'check-parens-save-mode)
|
|
(add-hook 'emacs-lisp-mode #'outline-minor-mode)
|
|
|
|
;;; Custom Tab Settings
|
|
;; https://dougie.io/emacs/indentation/
|
|
;; Create a variable for our preferred tab width
|
|
(setq custom-tab-width 2)
|
|
(setq default-tab-width 4)
|
|
(setq standard-indent 4)
|
|
|
|
;; Two callable functions for enabling/disabling tabs in Emacs
|
|
(defun disable-tabs ()
|
|
"Disable tabs for indenting."
|
|
(setq indent-tabs-mode nil))
|
|
|
|
(defun enable-tabs ()
|
|
"Enable tabs for indenting."
|
|
(local-set-key (kbd "TAB") 'tab-to-tab-stop)
|
|
(setq indent-tabs-mode t)
|
|
(setq tab-width custom-tab-width))
|
|
|
|
;; For the vim-like motions of ">>" and "<<".
|
|
(setq-default evil-shift-width custom-tab-width)
|
|
|
|
;; Hooks to Enable Tabs
|
|
;; (add-hook 'prog-mode-hook 'enable-tabs)
|
|
;; Hooks to Disable Tabs
|
|
(add-hook 'lisp-mode-hook 'disable-tabs)
|
|
(add-hook 'emacs-lisp-mode-hook 'disable-tabs)
|
|
(add-hook 'sh-mode-hook 'disable-tabs)
|
|
(add-hook 'python-mode-hook 'disable-tabs)
|
|
|
|
;; Language-Specific Tab Tweaks
|
|
(setq-default python-indent-offset custom-tab-width) ;; Python
|
|
(setq-default js-indent-level custom-tab-width) ;; Javascript
|
|
(setq-default sh-indent-level custom-tab-width) ;; Shell
|
|
(setq-default sh-basic-offset custom-tab-width) ;; Shell
|
|
|
|
;; Making electric-indent behave sanely
|
|
(setq-default electric-indent-inhibit t)
|
|
|
|
;; Make the backspace properly erase the tab instead of removing 1 space at a time.
|
|
(setq backward-delete-char-untabify-method 'hungry)
|
|
|
|
;; https://stackoverflow.com/questions/6286579/emacs-shell-mode-how-to-send-region-to-shell/7053298#7053298
|
|
(defun shell-region (start end)
|
|
"Execute region START to END in an inferior shell."
|
|
(interactive "r")
|
|
(shell-command (buffer-substring-no-properties start end)))
|
|
|
|
;; Builtin `rgrep' asks too many (4) questions. Just run grep -r in cwd.
|
|
;; Inspired by: https://emacs.stackexchange.com/a/26349
|
|
(defun recursive-grep ()
|
|
"Recursively grep file contents. `i` case insensitive; `n` print line number;
|
|
`I` ignore binary files; `E` extended regular expressions; `r` recursive"
|
|
(interactive)
|
|
(let* ((grep-flags "-inrEI --color=always -C3")
|
|
(search-term (read-string (format "Recursive regex search with grep %s: " grep-flags)))
|
|
(search-path (directory-file-name (expand-file-name (read-directory-name "directory: "))))
|
|
(default-directory (file-name-as-directory search-path))
|
|
(grep-command (concat grep-program " " grep-flags " " search-term " " search-path)))
|
|
(compilation-start grep-command 'grep-mode (lambda (mode) "*grep*") nil)))
|
|
|
|
;; Open External Terminal Emulator
|
|
(defun ext-terminal-in-workdir ()
|
|
"Open an external terminal emulator in working directory."
|
|
(interactive)
|
|
(cond
|
|
((eq system-type 'windows-nt)
|
|
(call-process-shell-command (concat "wt -d " default-directory) nil 0))
|
|
((eq system-type 'darwin)
|
|
(shell-command (concat "open -a iTerm " (shell-quote-argument (expand-file-name default-directory)))))
|
|
((eq system-type 'gnu/linux)
|
|
(let ((process-connection-type nil)) (start-process "" nil "x-terminal-emulator" (concat "--working-directory=" default-directory))))))
|
|
|
|
;; TODO: Look at using the EAT package for terminal things
|
|
;; https://codeberg.org/akib/emacs-eat
|
|
|
|
;; Open External File Browser
|
|
(defun ext-file-browser-in-workdir ()
|
|
"Open the current file's directory however the OS would."
|
|
(interactive)
|
|
(cond
|
|
((eq system-type 'windows-nt)
|
|
(shell-command (concat "start " (expand-file-name default-directory))))
|
|
((eq system-type 'darwin)
|
|
(shell-command (concat "open " (expand-file-name default-directory))))
|
|
((eq system-type 'gnu/linux)
|
|
(shell-command (concat "xdg-open " (expand-file-name default-directory))))))
|
|
|
|
(defun insert-current-time ()
|
|
"Insert the current time H:M:S." (insert (format-time-string "%H:%M:%S")))
|
|
(defun insert-current-iso-date ()
|
|
"Insert the current ISO 8601 date." (insert (format-time-string "%Y-%m-%d")))
|
|
(defun insert-current-iso-date-time()
|
|
"Insert the current ISO 8601 date (with time res of seconds)."
|
|
(insert (format-time-string "%Y-%m-%d %H:%M:%S")))
|
|
|
|
;;; Make backwards kill with C-w work
|
|
(defadvice kill-region (before unix-werase activate compile)
|
|
"When called interactively with no active region, delete a single word backwards instead."
|
|
(interactive
|
|
(if mark-active (list (region-beginning) (region-end))
|
|
(list (save-excursion (backward-word 1) (point)) (point)))))
|
|
|
|
;;; Basic way to do pulse for evil yank text (like goggles.el package)
|
|
;;; https://blog.meain.io/2020/emacs-highlight-yanked/
|
|
(defun hl-yank-advice (yank-fn beg end &rest args)
|
|
"Give advice to YANK-FN BEG END ARGS for temp highlighting of region."
|
|
(pulse-momentary-highlight-region beg end)
|
|
(apply yank-fn beg end args))
|
|
(advice-add 'evil-yank :around 'hl-yank-advice)
|
|
|
|
;; https://github.com/radian-software/straight.el
|
|
;; bootstrap straight.el package manager
|
|
(defvar bootstrap-version)
|
|
(let ((bootstrap-file
|
|
(expand-file-name
|
|
"straight/repos/straight.el/bootstrap.el"
|
|
(or (bound-and-true-p straight-base-dir)
|
|
user-emacs-directory)))
|
|
(bootstrap-version 7))
|
|
(unless (file-exists-p bootstrap-file)
|
|
(with-current-buffer
|
|
(url-retrieve-synchronously
|
|
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
|
|
'silent 'inhibit-cookies)
|
|
(goto-char (point-max))
|
|
(eval-print-last-sexp)))
|
|
(load bootstrap-file nil 'nomessage))
|
|
|
|
;;; Set Emacs path == shell path (exec-path-from-shell)
|
|
;; add paths from shell by default
|
|
(unless (package-installed-p 'exec-path-from-shell)
|
|
(package-install 'exec-path-from-shell))
|
|
|
|
(when (memq window-system '(mac ns x))
|
|
(exec-path-from-shell-initialize))
|
|
|
|
;;; EVIL Config :: Vi/Vim Emulation++ (evil-mode)
|
|
;;; Evil Package
|
|
;; https://github.com/emacs-evil/evil
|
|
(use-package evil
|
|
:straight t
|
|
:init
|
|
(setq evil-undo-system 'undo-fu)
|
|
(setq evil-want-C-u-scroll t)
|
|
(setq evil-want-C-i-jump nil)
|
|
(setq evil-symbol-word-search t)
|
|
(setq evil-ex-search-vim-style-regexp t)
|
|
(setq evil-ex-visual-char-range t)
|
|
(setq evil-disable-insert-state-bindings t)
|
|
(setq evil-insert-state-cursor '(box "violet")
|
|
evil-normal-state-cursor '(box "yellow")
|
|
evil-visual-state-cursor '(hollow "#1aa5db"))
|
|
(setq evil-want-keybinding nil)
|
|
(setq evil-want-integration t)
|
|
:config
|
|
(evil-mode 1))
|
|
|
|
;;; Undo Nicities
|
|
;; https://github.com/emacsmirror/undo-fu
|
|
(use-package undo-fu
|
|
:straight t)
|
|
;;; TODO: Look into https://codeberg.org/ideasman42/emacs-undo-fu-session
|
|
|
|
;;; Make Evil work in more modes than by default
|
|
;; https://github.com/emacs-evil/evil-collection
|
|
(use-package evil-collection
|
|
:straight t
|
|
:after evil
|
|
:defer t
|
|
:init
|
|
(evil-collection-init))
|
|
|
|
;;; Bindings and functionality to comment out code and other text objects
|
|
;; https://github.com/linktohack/evil-commentary
|
|
(use-package evil-commentary
|
|
:straight t
|
|
:after evil
|
|
:init
|
|
(evil-commentary-mode))
|
|
|
|
;;; Bindings to surround text objects.
|
|
;; https://github.com/emacs-evil/evil-surround
|
|
(use-package evil-surround
|
|
:straight t
|
|
:after evil
|
|
:config
|
|
(global-evil-surround-mode 1))
|
|
|
|
;;; Vim like increment and decrement of numbers
|
|
;; https://github.com/cofi/evil-numbers
|
|
(use-package evil-numbers
|
|
:straight t
|
|
:after evil
|
|
:config
|
|
(evil-define-key '(normal visual) 'global (kbd "C-a +") 'evil-numbers/inc-at-pt)
|
|
(evil-define-key '(normal visual) 'global (kbd "C-a -") 'evil-numbers/dec-at-pt)
|
|
(evil-define-key '(normal visual) 'global (kbd "C-a C-+") 'evil-numbers/inc-at-pt-incremental)
|
|
(evil-define-key '(normal visual) 'global (kbd "C-a C--") 'evil-numbers/dec-at-pt-incremental))
|
|
|
|
;; Custom Evil Keybinds
|
|
;; Evil Guide: https://github.com/noctuid/evil-guide?tab=readme-ov-file#keybindings-and-states
|
|
;; General keybind definition helper
|
|
;; https://github.com/noctuid/general.el
|
|
(use-package general
|
|
:straight t
|
|
:config (general-evil-setup))
|
|
|
|
;; Global Normal Mode :: General Keymaps
|
|
(general-nmap
|
|
:prefix "SPC"
|
|
;; Eval Keybinds
|
|
":" 'eval-expression
|
|
"p" 'execute-extended-command
|
|
"x" 'eval-defun
|
|
"e" 'eval-last-sexp
|
|
"E" 'eval-print-last-sexp
|
|
"b" 'eval-buffer
|
|
"." 'repeat-complex-command
|
|
"Q" 'evil-quit-all
|
|
;; Buffer Management
|
|
"w" 'save-buffer
|
|
"l" 'ibuffer
|
|
"q" 'evil-delete-buffer
|
|
;; Search and replace (interactive)
|
|
"o" 'occur
|
|
"r" 'replace-regexp
|
|
"y" 'yank-from-kill-ring
|
|
;; Running external stuff
|
|
"c" 'compile
|
|
"!" 'shell-command
|
|
"&" 'async-shell-command
|
|
;; Jumping places
|
|
"f" 'ffap
|
|
"-" 'dired-jump
|
|
"B" 'bookmark-jump
|
|
;; External Apps
|
|
"O" 'ext-file-browser-in-workdir
|
|
"T" 'ext-terminal-in-workdir
|
|
;; Extra packages
|
|
"s" 'yas-insert-snippet
|
|
"F" 'format-all-region-or-buffer)
|
|
|
|
;; Global Normal Mode :: Toggle Keymaps
|
|
(general-nmap
|
|
:prefix "SPC t"
|
|
;; Toggle Modes
|
|
"a" 'abbrev-mode
|
|
"w" 'whitespace-mode
|
|
"t" 'indent-tabs-mode
|
|
"c" 'display-fill-column-indicator-mode)
|
|
|
|
;; Global Normal Mode :: Git Keymaps
|
|
(general-nmap
|
|
:prefix "SPC g"
|
|
;; Magit Commands
|
|
"s" 'magit-status
|
|
"l" 'magit-log
|
|
"d" 'magit-diff-dwim
|
|
"b" 'magit-branch
|
|
"i" 'magit-init
|
|
"a" 'magit-stage-files
|
|
"t" 'magit-stage-files
|
|
"u" 'magit-unstage-files
|
|
"c" 'magit-commit-create
|
|
"p" 'magit-push-to-remote
|
|
"f" 'magit-fetch-from-upstream
|
|
"F" 'magit-pull-from-upstream)
|
|
|
|
;; Global Visual Mode Keymaps
|
|
(general-vmap
|
|
:prefix "SPC"
|
|
"e" 'eval-region)
|
|
|
|
;; Custom Ex commands
|
|
(evil-ex-define-cmd "Format" 'format-all-region-or-buffer) ;; format-all-code
|
|
;; end evil
|
|
|
|
;;; Regular Keybinds
|
|
(global-set-key (kbd "C-c i") (lambda () (interactive) (find-file user-init-file)))
|
|
(global-set-key (kbd "C-c d") (lambda () (interactive) (find-file (getenv "DOTFILES"))))
|
|
(global-set-key (kbd "C-c g") (lambda () (interactive) (find-file (concat (getenv "DOTFILES") "/config/emacs/.config/emacs/init.el"))))
|
|
|
|
;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Dired.html
|
|
(use-package dired
|
|
:straight nil
|
|
:commands (dired dired-jump)
|
|
:config
|
|
(setq dired-dwim-target t))
|
|
|
|
;; Org mode (organization outline framework)
|
|
;; https://orgmode.org/
|
|
(use-package org
|
|
:straight nil
|
|
:config
|
|
'(org-export-backends '(ascii html icalendar latex man md odt org))
|
|
(global-set-key (kbd "C-c a") #'org-agenda)
|
|
(global-set-key (kbd "C-c c") #'org-capture)
|
|
(global-set-key (kbd "C-c l") #'org-store-link)
|
|
(setq org-clock-persist 'history)
|
|
(setq org-agenda-files (list "~/Documents/notes/org/life.org"))
|
|
(org-clock-persistence-insinuate)
|
|
(setq org-todo-keywords '((sequence "TODO(!)" "IN PROGRESS" "DONE")))
|
|
(setq org-treat-insert-todo-heading-as-state-change t)
|
|
(setq org-log-done t)
|
|
(evil-define-key 'normal org-mode-map
|
|
(kbd "SPC TAB") 'org-todo
|
|
">" 'org-shiftmetaright
|
|
"<" 'org-shiftmetaleft))
|
|
|
|
;;; Markdown support for emacs
|
|
;; https://github.com/jrblevin/markdown-mode
|
|
(use-package markdown-mode
|
|
:straight t
|
|
:mode ("README\\.md\\'" . gfm-mode)
|
|
:init (setq markdown-command "multimarkdown")
|
|
(setq markdown-fontify-code-blocks-natively t) ; Make code block syntax highlighted
|
|
:bind(:map markdown-mode-map
|
|
("C-c C-e" . markdown-do)))
|
|
|
|
;; Magit (intuitive git interface)
|
|
;; https://magit.vc/
|
|
(use-package magit
|
|
:straight t)
|
|
|
|
;; https://github.com/doomemacs/themes
|
|
(use-package doom-themes
|
|
:straight t
|
|
:config)
|
|
;; (load-theme 'doom-badger t))
|
|
;; (load-theme 'doom-ir-black t))
|
|
|
|
;; Doom Modeline - much easier on the eyes
|
|
;; https://github.com/seagle0128/doom-modeline
|
|
(use-package doom-modeline
|
|
:straight t
|
|
:hook (after-init . doom-modeline-mode))
|
|
|
|
;; Highlights TODOs and other configured keywords in buffer
|
|
;; https://github.com/tarsius/hl-todo
|
|
(use-package hl-todo
|
|
:straight t
|
|
:hook (prog-mode . hl-todo-mode)
|
|
:config
|
|
(setq hl-todo-highlight-punctuation ":"
|
|
hl-todo-keyword-faces
|
|
`(("TODO" warning bold)
|
|
("FIXME" error bold)
|
|
("HACK" font-lock-constant-face bold)
|
|
("REVIEW" font-lock-keyword-face bold)
|
|
("NOTE" success bold)
|
|
("DEPRECATED" font-lock-doc-face bold))))
|
|
; TODO: look into todo integrations
|
|
|
|
;; Colorize color names in buffers
|
|
;; https://github.com/emacsmirror/rainbow-mode
|
|
(use-package rainbow-mode
|
|
:straight t)
|
|
|
|
;; Rainbow Delimiters - who doesn't love colors
|
|
;; https://github.com/Fanael/rainbow-delimiters
|
|
(use-package rainbow-delimiters
|
|
:straight t
|
|
:init (add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
|
|
|
|
;; Git Gutter -- sidebar / fringe indicators of changes
|
|
;; https://github.com/emacsorphanage/git-gutter
|
|
(use-package git-gutter
|
|
:hook (prog-mode . git-gutter-mode)
|
|
:straight t
|
|
:config
|
|
(setq git-gutter:update-interval 0.2))
|
|
|
|
;;; Mini-buffer improvements (fido, orderless, marginalia)
|
|
;; Let's try [icomplete / fido / ido] mode for a while.
|
|
(icomplete-vertical-mode)
|
|
|
|
;; Ordering regex for completion
|
|
;; https://github.com/oantolin/orderless
|
|
(use-package orderless
|
|
:straight t
|
|
:custom
|
|
(completion-styles '(orderless basic))
|
|
(completion-category-defaults nil)
|
|
(completion-category-overrides '((file (styles partial-completion)))))
|
|
|
|
;; Show docstrings and other useful info in minibuffer
|
|
;; https://github.com/minad/marginalia
|
|
(use-package marginalia
|
|
:straight t
|
|
:defer t
|
|
:commands (marginalia-mode marginalia-cycle)
|
|
:hook (after-init . marginalia-mode))
|
|
|
|
;;; Better discoverability for key mappings (which-key)
|
|
;; https://github.com/justbur/emacs-which-key
|
|
;; builtin to emacs > 30.1
|
|
(use-package which-key
|
|
:straight t
|
|
:init (which-key-mode 1))
|
|
|
|
;;; Better help menus (helpful)
|
|
;; https://github.com/Wilfred/helpful
|
|
(use-package helpful
|
|
:straight t
|
|
:bind
|
|
(("C-c C-d" . helpful-at-point) ; Lookup the symbol at point
|
|
("C-h f" . helpful-callable) ; Describe a function
|
|
("C-h v" . helpful-variable) ; Describe a variable
|
|
("C-h k" . helpful-key) ; Describe a key binding
|
|
("C-h x" . helpful-command))) ; Describe a command
|
|
|
|
;; Syntax checking
|
|
;; https://www.flycheck.org/en/latest/languages.html
|
|
;; https://github.com/flycheck/flycheck
|
|
(use-package flycheck
|
|
:straight t
|
|
:init (add-hook 'after-init-hook #'global-flycheck-mode))
|
|
|
|
;;; External code formatting tool integration (format-all)
|
|
;; https://github.com/lassik/emacs-format-all-the-code
|
|
(use-package format-all
|
|
:straight t)
|
|
|
|
;; Editorconfig
|
|
(use-package editorconfig
|
|
:straight t
|
|
:config
|
|
(editorconfig-mode 1))
|
|
|
|
;; Abbrevs and Snippets
|
|
;; URLs
|
|
(define-abbrev global-abbrev-table "mygh" "https://github.com/lemonase")
|
|
;; Timestamps
|
|
(define-abbrev global-abbrev-table "dt" "" 'insert-current-iso-date)
|
|
(define-abbrev global-abbrev-table "dts" "" 'insert-current-iso-date-time)
|
|
(define-abbrev global-abbrev-table "td" "" 'insert-current-iso-date)
|
|
(define-abbrev global-abbrev-table "tds" "" 'insert-current-iso-date-time)
|
|
|
|
;;; Matching brackets and parens with (electric-pair-mode)
|
|
(electric-pair-mode 1)
|
|
|
|
;; Snippets
|
|
;; https://github.com/joaotavora/yasnippet
|
|
(use-package yasnippet
|
|
:straight t
|
|
:init (yas-global-mode 1))
|
|
|
|
;; Snippet Files / Contents
|
|
;; https://github.com/AndreaCrotti/yasnippet-snippets
|
|
;; https://github.com/AndreaCrotti/yasnippet-snippets/tree/master/snippets/emacs-lisp-mode
|
|
(use-package yasnippet-snippets
|
|
:straight t)
|
|
|
|
;; Emmet: for writing HTML tags much easier and quicker
|
|
;; https://github.com/smihica/emmet-mode
|
|
(use-package emmet-mode
|
|
:straight t
|
|
:init)
|
|
|
|
;; TODO: install/configure eglot lsp
|
|
|
|
;;; Extra Language Modes
|
|
;; Lua mode
|
|
(use-package lua-mode
|
|
:straight t)
|
|
|
|
;;; Other misc modes (docker, gptel, load-env-vars, csv-mode)
|
|
(use-package docker
|
|
:straight t
|
|
:defer t)
|
|
|
|
(use-package dockerfile-mode
|
|
:straight t
|
|
:defer t)
|
|
|
|
(use-package csv-mode
|
|
:straight t
|
|
:defer t)
|
|
|
|
;; JavaScript
|
|
(use-package js
|
|
:defer t
|
|
:custom
|
|
(js-indent-level 2))
|
|
|
|
;; CSS
|
|
(use-package css
|
|
:defer t
|
|
:custom
|
|
(css-indent-level 2))
|
|
|
|
;; Go Support
|
|
(unless (package-installed-p 'go-mode)
|
|
(package-install 'go-mode))
|
|
|
|
;; Lua Support
|
|
(unless (package-installed-p 'lua-mode)
|
|
(package-install 'lua-mode))
|
|
|
|
;; Typescript Support
|
|
(unless (package-installed-p 'typescript-mode)
|
|
(package-install 'typescript-mode))
|
|
|
|
;; Rust Support
|
|
(unless (package-installed-p 'rust-mode)
|
|
(package-install 'rust-mode))
|
|
|
|
;; YAML Support
|
|
(unless (package-installed-p 'yaml-mode)
|
|
(package-install 'yaml-mode))
|
|
|
|
;; JSON Support
|
|
(unless (package-installed-p 'json-mode)
|
|
(package-install 'json-mode))
|
|
|
|
(setq-default major-mode
|
|
(lambda () ; guess major mode from file name
|
|
(unless buffer-file-name
|
|
(let ((buffer-file-name (buffer-name)))
|
|
(set-auto-mode)))))
|
|
|
|
;; Local Environment File
|
|
(use-package load-env-vars
|
|
:straight t)
|
|
|
|
(defvar my-env-file "~/.local/.env" "Local environment file.")
|
|
(let ((my-env-file "~/.local/.env"))
|
|
(if (file-exists-p my-env-file)
|
|
(load-env-vars my-env-file)))
|
|
|
|
;; LLM support (must configure with api keys)
|
|
;; (use-package gptel
|
|
;; :straight t)
|
|
;; (setq gemini-api-key (funcall (lambda (prompt) (read-passwd prompt)) "Enter Gemini API key: "))
|
|
;; (gptel-make-gemini "Gemini" :key (getenv "GEMINI_API_KEY") :stream t)
|
|
;; (gptel-make-openai "OpenAI" :key (getenv "OPENAI_KEY") :stream t)
|
|
;; (gptel-make-gemini "Gemini" :stream t :key gptel-api-key)
|
|
;; (gptel-make-openai "OpenAI" :stream t :key gptel-api-key)
|
|
|
|
;; for Win32
|
|
(when (eq system-type 'windows-nt)
|
|
;; Powershell
|
|
(use-package powershell
|
|
:straight t)
|
|
|
|
(set-frame-font "Cascadia Code 12" nil t)
|
|
|
|
(let ((xlist
|
|
'(
|
|
"C:/Program Files/PowerShell/7/pwsh.exe"
|
|
"~/AppData/Local/Microsoft/WindowsApps/pwsh.exe"
|
|
"C:/Windows/System32/WindowsPowerShell/v1.0/powershell.exe"
|
|
))
|
|
xfound)
|
|
(setq xfound (seq-some (lambda (x) (if (file-exists-p x) x nil)) xlist))
|
|
(when xfound (setq explicit-shell-file-name xfound))))
|
|
|
|
;; Still handy having cygwin / mingw for minimal set of Linux CLI tools.
|
|
;; Alternative approach is installing Emacs inside WSL, which has pros and cons
|
|
;; as far as configuring PATH, SHELL, compiler and interop between Linux/Windows.
|
|
;; Overall it depends how much you are interacting with the native Windows NTFS
|
|
;; filesystem vs developing for things inside of Linux.
|
|
(when (eq system-type 'windows-nt)
|
|
(setq exec-path (cons "C:/cygwin/bin" exec-path))
|
|
(setq find-program "C:/cygwin64/bin/find.exe")
|
|
(setq grep-program "C:/cygwin64/bin/grep.exe")
|
|
(setenv "PATH" (mapconcat #'identity exec-path path-separator)))
|
|
|
|
;; Have to change emacs init dir for Windows
|
|
;; https://emacs.stackexchange.com/a/12886
|
|
;; (setenv "HOME" "C:/Users/itzja")
|
|
;; (setq default-directory "C:/Users/user")
|
|
;; (setq user-init-file "C:/Users/user/.emacs.d/init.el")
|
|
;; (setq user-emacs-directory "C:/Users/user/.emacs")
|
|
;; (load user-init-file)
|
|
|
|
;; xah-lee functions
|
|
;; http://xahlee.info/index.html
|
|
|
|
(defun x-open-in-vscode ()
|
|
"Open current file or dir in vscode."
|
|
(interactive)
|
|
(let ((xpath (if buffer-file-name buffer-file-name (expand-file-name default-directory))))
|
|
(message "path is %s" xpath)
|
|
(cond
|
|
((eq system-type 'darwin)
|
|
(shell-command (format "open -a Visual\\ Studio\\ Code.app %s" (shell-quote-argument xpath))))
|
|
((eq system-type 'windows-nt)
|
|
(shell-command (format "code.cmd %s" (shell-quote-argument xpath))))
|
|
((eq system-type 'gnu/linux)
|
|
(shell-command (format "code %s" (shell-quote-argument xpath)))))))
|
|
|
|
(defun x-open-in-terminal ()
|
|
"Open the current dir in a new terminal window."
|
|
(interactive)
|
|
(cond
|
|
((eq system-type 'windows-nt)
|
|
(shell-command (concat "wt -d " (shell-quote-argument (expand-file-name default-directory)))))
|
|
((eq system-type 'darwin)
|
|
(shell-command (concat "open -a iTerm " (shell-quote-argument (expand-file-name default-directory)))))
|
|
((eq system-type 'gnu/linux)
|
|
(let ((process-connection-type nil)) (start-process "" nil "x-terminal-emulator" (concat "--working-directory=" default-directory))))
|
|
((eq system-type 'berkeley-unix)
|
|
(let ((process-connection-type nil)) (start-process "" nil "x-terminal-emulator" (concat "--working-directory=" default-directory))))))
|
|
|
|
;;; Buffer local variables - ask to save/tangle.
|
|
;; Local Variables:
|
|
;; eval: (add-hook 'after-save-hook (lambda ()(if (y-or-n-p "Reload?")(load-file user-init-file))) nil t)
|
|
;; eval: (add-hook 'after-save-hook (lambda ()(if (y-or-n-p "Tangle?")(org-babel-tangle))) nil t)
|
|
;; End:
|
|
;;; init.el ends here
|