Make init into org file
This commit is contained in:
James Dixon
parent
6b7f2706d1
commit
47c3ccca63
@ -4,20 +4,18 @@
|
||||
;;; Maintainer: James Dixon <notjamesdixon@gmail.com>
|
||||
;;;
|
||||
;;; Commentary:
|
||||
;;; My Emacs Config
|
||||
;;; My Literate Emacs Config
|
||||
;;;
|
||||
;;; Code:
|
||||
;;;
|
||||
;;; User Info
|
||||
|
||||
(setq user-full-name "James Dixon")
|
||||
(setq user-mail-address "notjamesdixon@gmail.com")
|
||||
|
||||
;;; * Start "Sensible Defaults" *
|
||||
|
||||
;; Set Default Encoding to UTF-8
|
||||
;; 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
|
||||
@ -27,36 +25,37 @@
|
||||
(scroll-bar-mode -1) ; Disable scroll bar
|
||||
(menu-bar-mode -1) ; Disable menu bar
|
||||
|
||||
;; Do these things instead
|
||||
;; 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.
|
||||
|
||||
;; Enable bells and whistles
|
||||
;; 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
|
||||
|
||||
;; (setq use-short-answers t)
|
||||
(fset 'yes-or-no-p 'y-or-n-p) ; Allow for shorter responses: "y" for yes and "n" for no.
|
||||
|
||||
;; 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)
|
||||
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))
|
||||
undo-strong-limit (* 13 240000)
|
||||
undo-outer-limit (* 13 24000000))
|
||||
|
||||
;; Garbage Collection
|
||||
(setq gc-cons-threshold-original gc-cons-threshold)
|
||||
@ -65,11 +64,6 @@
|
||||
;; Perf: Reduce command completion overhead.
|
||||
(setq read-extended-command-predicate #'command-completion-default-include-p)
|
||||
|
||||
;;; Comment Settings
|
||||
(setq comment-multi-line t)
|
||||
(setq comment-empty-lines t)
|
||||
(setq-default fill-column 80)
|
||||
|
||||
;;; Theme (Default)
|
||||
(cond
|
||||
((find-font (font-spec :name "Maple Mono"))
|
||||
@ -94,11 +88,10 @@
|
||||
(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
|
||||
|
||||
'(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
|
||||
@ -117,33 +110,31 @@
|
||||
;; Auto-refresh buffers when files on disk change.
|
||||
(global-auto-revert-mode t)
|
||||
|
||||
;;; Minor Modes
|
||||
(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)
|
||||
(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)
|
||||
(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)
|
||||
(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)
|
||||
;; End File History, Saving and Reverting
|
||||
|
||||
;;; Custom Tab Settings
|
||||
;; https://dougie.io/emacs/indentation/
|
||||
@ -185,9 +176,7 @@
|
||||
|
||||
;; Make the backspace properly erase the tab instead of removing 1 space at a time.
|
||||
(setq backward-delete-char-untabify-method 'hungry)
|
||||
; End Custom Tab Settings
|
||||
|
||||
;;; Vanilla Emacs Improvements
|
||||
;; 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."
|
||||
@ -201,10 +190,10 @@
|
||||
`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)))
|
||||
(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
|
||||
@ -255,31 +244,24 @@
|
||||
"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)
|
||||
(advice-add 'evil-yank :around 'hl-yank-advice)
|
||||
|
||||
;;; * "Sensible Defaults" ends here *
|
||||
|
||||
;;; ----------------
|
||||
;; Here be packages
|
||||
;;; ----------------
|
||||
|
||||
;;; ** Start Package Manager (straight.el) **
|
||||
;; 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))
|
||||
(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)))
|
||||
(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)
|
||||
@ -304,8 +286,8 @@
|
||||
(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"))
|
||||
evil-normal-state-cursor '(box "yellow")
|
||||
evil-visual-state-cursor '(hollow "#1aa5db"))
|
||||
(setq evil-want-keybinding nil)
|
||||
(setq evil-want-integration t)
|
||||
:config
|
||||
@ -436,8 +418,6 @@
|
||||
(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"))))
|
||||
|
||||
;;; Vanilla+ Packages (dired, magit, org-mode)
|
||||
;; Dired (directory editor)
|
||||
;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Dired.html
|
||||
(use-package dired
|
||||
:straight nil
|
||||
@ -445,12 +425,7 @@
|
||||
:config
|
||||
(setq dired-dwim-target t))
|
||||
|
||||
;; Magit (intuitive git interface)
|
||||
;; https://magit.vc/
|
||||
(use-package magit
|
||||
:straight t)
|
||||
|
||||
;; Org mode (organization framework)
|
||||
;; Org mode (organization outline framework)
|
||||
;; https://orgmode.org/
|
||||
(use-package org
|
||||
:straight nil
|
||||
@ -466,9 +441,9 @@
|
||||
(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))
|
||||
(kbd "SPC TAB") 'org-todo
|
||||
">" 'org-shiftmetaright
|
||||
"<" 'org-shiftmetaleft))
|
||||
|
||||
;;; Markdown support for emacs
|
||||
;; https://github.com/jrblevin/markdown-mode
|
||||
@ -478,14 +453,18 @@
|
||||
: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)))
|
||||
("C-c C-e" . markdown-do)))
|
||||
|
||||
;; Magit (intuitive git interface)
|
||||
;; https://magit.vc/
|
||||
(use-package magit
|
||||
:straight t)
|
||||
|
||||
;;; Themes and Colors (doom-themes, hl-todo, rainbow-mode, rainbow-delimiters)
|
||||
;; https://github.com/doomemacs/themes
|
||||
(use-package doom-themes
|
||||
:straight t
|
||||
:config)
|
||||
;; (load-theme 'doom-badger t))
|
||||
;; (load-theme 'doom-badger t))
|
||||
;; (load-theme 'doom-ir-black t))
|
||||
|
||||
;; Doom Modeline - much easier on the eyes
|
||||
@ -501,14 +480,14 @@
|
||||
: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
|
||||
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
|
||||
@ -575,8 +554,16 @@
|
||||
:straight t
|
||||
:init (add-hook 'after-init-hook #'global-flycheck-mode))
|
||||
|
||||
;;; Matching brackets and parens with (electric-pair-mode)
|
||||
(electric-pair-mode 1)
|
||||
;;; 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
|
||||
@ -587,6 +574,9 @@
|
||||
(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
|
||||
@ -605,17 +595,6 @@
|
||||
:straight t
|
||||
:init)
|
||||
|
||||
;; Editorconfig
|
||||
(use-package editorconfig
|
||||
:straight t
|
||||
:config
|
||||
(editorconfig-mode 1))
|
||||
|
||||
;;; External code formatting tool integration (format-all)
|
||||
;; https://github.com/lassik/emacs-format-all-the-code
|
||||
(use-package format-all
|
||||
:straight t)
|
||||
|
||||
;; TODO: install/configure eglot lsp
|
||||
|
||||
;;; Extra Language Modes
|
||||
@ -636,17 +615,6 @@
|
||||
:straight t
|
||||
:defer t)
|
||||
|
||||
;; 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)))
|
||||
|
||||
;;; ** Package Manager (straight.el) ends here **
|
||||
;;; Additional Language Modes
|
||||
;; JavaScript
|
||||
(use-package js
|
||||
:defer t
|
||||
@ -684,10 +652,19 @@
|
||||
(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)))))
|
||||
(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
|
||||
@ -698,8 +675,6 @@
|
||||
;; (gptel-make-gemini "Gemini" :stream t :key gptel-api-key)
|
||||
;; (gptel-make-openai "OpenAI" :stream t :key gptel-api-key)
|
||||
|
||||
;;; Platform Specifics
|
||||
|
||||
;; for Win32
|
||||
(when (eq system-type 'windows-nt)
|
||||
;; Powershell
|
||||
@ -709,12 +684,12 @@
|
||||
(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)
|
||||
'(
|
||||
"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))))
|
||||
|
||||
@ -747,11 +722,11 @@
|
||||
(message "path is %s" xpath)
|
||||
(cond
|
||||
((eq system-type 'darwin)
|
||||
(shell-command (format "open -a Visual\\ Studio\\ Code.app %s" (shell-quote-argument xpath))))
|
||||
(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))))
|
||||
(shell-command (format "code.cmd %s" (shell-quote-argument xpath))))
|
||||
((eq system-type 'gnu/linux)
|
||||
(shell-command (format "code %s" (shell-quote-argument xpath)))))))
|
||||
(shell-command (format "code %s" (shell-quote-argument xpath)))))))
|
||||
|
||||
(defun x-open-in-terminal ()
|
||||
"Open the current dir in a new terminal window."
|
||||
@ -766,5 +741,9 @@
|
||||
((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
|
||||
|
||||
906
config/emacs/.config/emacs/init.org
Normal file
906
config/emacs/.config/emacs/init.org
Normal file
@ -0,0 +1,906 @@
|
||||
#+TITLE: Emacs Literate Config
|
||||
#+AUTHOR: James Dixon
|
||||
|
||||
* My Literate Emacs with EVIL
|
||||
|
||||
** Prelude and Initial Comments
|
||||
|
||||
Initial comment prelude to appease the commnent gods.
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;;; init.el -- EMACS -*- lexical-binding: t -*-
|
||||
;;;
|
||||
;;; Author: James Dixon <notjamesdixon@gmail.com>
|
||||
;;; Maintainer: James Dixon <notjamesdixon@gmail.com>
|
||||
;;;
|
||||
;;; Commentary:
|
||||
;;; My Literate Emacs Config
|
||||
;;;
|
||||
;;; Code:
|
||||
#+end_src
|
||||
|
||||
** Setting User and Email
|
||||
|
||||
We set this for use later on with email and other packages.
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
(setq user-full-name "James Dixon")
|
||||
(setq user-mail-address "notjamesdixon@gmail.com")
|
||||
#+end_src
|
||||
|
||||
** Sensible Defaults
|
||||
|
||||
These are things what I would consider more sensible defaults for emacs.
|
||||
|
||||
*** UI Settings
|
||||
|
||||
- Setting UTF-8 encoding for language
|
||||
- Use short answers (y/n) instead of (yes/no)
|
||||
- Disabling horrid startup message, bells and toolbars
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;; 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)
|
||||
#+end_src
|
||||
|
||||
*** Line Numbers, Comments and Mark Mode
|
||||
|
||||
- Enabling Line Numbers Globally
|
||||
- Setting Mark Mode as Transient
|
||||
- Global Comment Settings
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;; 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)
|
||||
#+end_src
|
||||
|
||||
*** Undo and GC Limits
|
||||
|
||||
Undo and Garbage Collection Limits Upgrade
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;;; 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)
|
||||
#+end_src
|
||||
|
||||
** Theme and Font
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;;; 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)
|
||||
#+end_src
|
||||
|
||||
** File History, Saving, Reverting and Backups
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;;; 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)
|
||||
#+end_src
|
||||
|
||||
** Basic Minor Modes and Hooks
|
||||
|
||||
Adding some basic minor modes for ease of adding as hooks.
|
||||
|
||||
*** Whitespace and Parens
|
||||
|
||||
Cleaning up whitespace and checking balanced parens are something that should be handled automatically.
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
(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)
|
||||
#+end_src
|
||||
|
||||
** Tab and Indent Settings
|
||||
|
||||
Tabs are horribly confusing to deal with in Emacs and some programming minor modes
|
||||
really do not help simplify the situation. This is what works for now...
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;;; 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)
|
||||
#+end_src
|
||||
|
||||
** Custom Enhanced Defuns
|
||||
|
||||
Better functions for some of the defaults.
|
||||
|
||||
*** Vanilla Emacs Improvements
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;; 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)
|
||||
#+end_src
|
||||
|
||||
** Here be Packages
|
||||
*** Bootstrap straight.el
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;; 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))
|
||||
#+end_src
|
||||
|
||||
*** Use PATH from shell environment
|
||||
|
||||
Emacs does not properly pick up PATH from shell environment.
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;;; 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))
|
||||
#+end_src
|
||||
|
||||
*** Use EVIL
|
||||
|
||||
Set settings as well as load EVIL and complementary packages.
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;;; 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))
|
||||
|
||||
#+end_src
|
||||
|
||||
*** General Keybinds
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;; 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"))))
|
||||
#+end_src
|
||||
|
||||
*** Dired
|
||||
|
||||
Emacs directory editor
|
||||
|
||||
#+begin_src emacs-lisp :tangle "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))
|
||||
#+end_src
|
||||
|
||||
*** Org
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;; 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))
|
||||
#+end_src
|
||||
|
||||
*** Markdown Mode
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;;; 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)))
|
||||
#+end_src
|
||||
|
||||
*** Magit
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; Magit (intuitive git interface)
|
||||
;; https://magit.vc/
|
||||
(use-package magit
|
||||
:straight t)
|
||||
#+end_src
|
||||
|
||||
*** Theme and Highlight
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; 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))
|
||||
#+end_src
|
||||
|
||||
*** Completion, Menu and Minibuffer
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;;; 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
|
||||
#+end_src
|
||||
|
||||
*** Syntax Checking and Formatting
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; 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))
|
||||
#+end_src
|
||||
|
||||
*** Abbrevs and Snippets
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; 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)
|
||||
#+end_src
|
||||
|
||||
*** Extra Language Modes
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; 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)
|
||||
#+end_src
|
||||
|
||||
*** Additional Language Settings
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; 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)))))
|
||||
#+end_src
|
||||
|
||||
*** Local Environment Variables
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; 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)))
|
||||
#+end_src
|
||||
|
||||
*** LLM Support
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; 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)
|
||||
#+end_src
|
||||
|
||||
*** Windows / Win32
|
||||
|
||||
#+begin_src emacs-lisp :tangle yes
|
||||
;; 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))))))
|
||||
|
||||
#+end_src
|
||||
|
||||
*** Auto Reload + Save / Tangle for Org
|
||||
|
||||
#+begin_src emacs-lisp :tangle "init.el"
|
||||
;;; 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
|
||||
#+end_src
|
||||
Loading…
x
Reference in New Issue
Block a user