;;; ________ _______ __ __
;;; / | / \ / | / |
;;; $$$$$$$$/ _____ ____ ______ _______ _______ $$$$$$$ | ______ ____$$ | ______ ______ _______$$ | __
;;; $$ |__ / \/ \ / \ / |/ | $$ |__$$ |/ \ / $$ |/ \ / \ / $$ | / |
;;; $$ | $$$$$$ $$$$ |$$$$$$ /$$$$$$$//$$$$$$$/ $$ $$</$$$$$$ /$$$$$$$ /$$$$$$ /$$$$$$ /$$$$$$$/$$ |_/$$/
;;; $$$$$/ $$ | $$ | $$ |/ $$ $$ | $$ \ $$$$$$$ $$ $$ $$ | $$ $$ | $$/$$ | $$ $$ | $$ $$<
;;; $$ |_____$$ | $$ | $$ /$$$$$$$ $$ \_____ $$$$$$ | $$ |__$$ $$$$$$$$/$$ \__$$ $$ | $$ \__$$ $$ \_____$$$$$$ \
;;; $$ $$ | $$ | $$ $$ $$ $$ / $$/ $$ $$/$$ $$ $$ $$ | $$ $$/$$ $$ | $$ |
;;; $$$$$$$$/$$/ $$/ $$/ $$$$$$$/ $$$$$$$/$$$$$$$/ $$$$$$$/ $$$$$$$/ $$$$$$$/$$/ $$$$$$/ $$$$$$$/$$/ $$/
;;; Minimal init.el
;;; Contents:
;;;
;;; - Basic settings
;;; - Discovery aids
;;; - Minibuffer/completion settings
;;; - Interface enhancements/defaults
;;; - Tab-bar configuration
;;; - Theme
;;; - Optional extras
;;; - Built-in customization framework
;;; Guardrail
(when (< emacs-major-version 29)
(error (format "Emacs Bedrock only works with Emacs 29 and newer; you have version ~a" emacs-major-version)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;in
;;;
;;; Basic settings
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Package initialization
;;
;; We'll stick to the built-in GNU and non-GNU ELPAs (Emacs Lisp Package
;; Archive) for the base install, but there are some other ELPAs you could look
;; at if you want more packages. MELPA in particular is very popular. See
;; instructions at:
;;
;; https://melpa.org/#/getting-started
;;
;; You can simply uncomment the following if you'd like to get started with
;; MELPA packages quickly:
;;
;; (with-eval-after-load 'package
;; (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t))
;; If you want to turn off the welcome screen, uncomment this
;(setopt inhibit-splash-screen t)
(setopt initial-major-mode 'fundamental-mode) ; default mode for the *scratch* buffer
(setopt display-time-default-load-average nil) ; this information is useless for most
;; Automatically reread from disk if the underlying file changes
(setopt auto-revert-avoid-polling t)
;; Some systems don't do file notifications well; see
;; https://todo.sr.ht/~ashton314/emacs-bedrock/11
(setopt auto-revert-interval 5)
(setopt auto-revert-check-vc-info t)
(global-auto-revert-mode)
;; Save history of minibuffer
(savehist-mode)
;; Fix archaic defaults
(setopt sentence-end-double-space nil)
;; Make right-click do something sensible
(when (display-graphic-p)
(context-menu-mode))
;; Don't litter file system with *~ backup files; put them all inside
;; ~/.emacs.d/backup or wherever
(defun bedrock--backup-file-name (fpath)
"Return a new file path of a given file path.
If the new path's directories does not exist, create them."
(let* ((backupRootDir "~/.emacs.d/emacs-backup/")
(filePath (replace-regexp-in-string "[A-Za-z]:" "" fpath )) ; remove Windows driver letter in path
(backupFilePath (replace-regexp-in-string "//" "/" (concat backupRootDir filePath "~") )))
(make-directory (file-name-directory backupFilePath) (file-name-directory backupFilePath))
backupFilePath))
(setopt make-backup-file-name-function 'bedrock--backup-file-name)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Discovery aids
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Show the help buffer after startup
;; (add-hook 'after-init-hook 'help-quick)
;; which-key: shows a popup of available keybindings when typing a long key
;; sequence (e.g. C-x ...)
(use-package which-key
:ensure t
:config
(setq which-key-keymap-history t)
(which-key-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Minibuffer/completion settings
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; For help, see: https://www.masteringemacs.org/article/understanding-minibuffer-completion
;; (setopt enable-recursive-minibuffers t) ; Use the minibuffer whilst in the minibuffer
;; (setopt completion-cycle-threshold 1) ; TAB cycles candidates
;; (setopt completions-detailed t) ; Show annotations
;; (setopt tab-always-indent 'complete) ; When I hit TAB, try to complete, otherwise, indent
;; (setopt completion-styles '(basic initials substring)) ; Different styles to match input to candidates
;;
;; (setopt completion-auto-help 'always) ; Open completion always; `lazy' another option
;; (setopt completions-max-height 20) ; This is arbitrary
;; (setopt completions-detailed t)
;; (setopt completions-format 'one-column)
;; (setopt completions-group t)
;;
(setopt completion-auto-select 'second-tab) ; Much more eager
;(setopt completion-auto-select t) ; See `C-h v completion-auto-select' for more possible values
(keymap-set minibuffer-mode-map "TAB" 'minibuffer-complete) ; TAB acts more like how it does in the shell
;; For a fancier built-in completion option, try ido-mode,
;; icomplete-vertical, or fido-mode. See also the file extras/base.el
;(icomplete-vertical-mode)
;(fido-vertical-mode)
;(setopt icomplete-delay-completions-threshold 4000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Interface enhancements/defaults
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mode line information
(setopt line-number-mode t) ; Show current line in modeline
(setopt column-number-mode t) ; Show column as well
(setopt x-underline-at-descent-line nil) ; Prettier underlines
(setopt switch-to-buffer-obey-display-actions t) ; Make switching buffers more consistent
(setopt show-trailing-whitespace nil) ; By default, don't underline trailing spaces
(setopt indicate-buffer-boundaries 'left) ; Show buffer top and bottom in the margin
;; Enable horizontal scrolling
(setopt mouse-wheel-tilt-scroll t)
(setopt mouse-wheel-flip-direction t)
;; We won't set these, but they're good to know about
;;
;; (setopt indent-tabs-mode nil)
;; (setopt tab-width 4)
;; Misc. UI tweaks
(blink-cursor-mode -1) ; Steady cursor
(pixel-scroll-precision-mode) ; Smooth scrolling
;; Display line numbers in programming mode
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
(setopt display-line-numbers-width 3) ; Set a minimum width
;; Nice line wrapping when working with text
(add-hook 'text-mode-hook 'visual-line-mode)
;; Modes to highlight the current line with
(let ((hl-line-hooks '(text-mode-hook prog-mode-hook)))
(mapc (lambda (hook) (add-hook hook 'hl-line-mode)) hl-line-hooks))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Tab-bar configuration
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Show the tab-bar as soon as tab-bar functions are invoked
(setopt tab-bar-show 1)
;; Add the time to the tab-bar, if visible
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Optional extras
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Uncomment the (load-file …) lines or copy code from the extras/ elisp files
;; as desired
;; UI/UX enhancements mostly focused on minibuffer and autocompletion interfaces
;; These ones are *strongly* recommended!
;(load-file (expand-file-name "extras/base.el" user-emacs-directory))
;; Packages for software development
;(load-file (expand-file-name "extras/dev.el" user-emacs-directory))
;; Vim-bindings in Emacs (evil-mode configuration)
;(load-file (expand-file-name "extras/vim-like.el" user-emacs-directory))
;; Org-mode configuration
;; WARNING: need to customize things inside the elisp file before use! See
;; the file extras/org-intro.txt for help.
;(load-file (expand-file-name "extras/org.el" user-emacs-directory))
;; Email configuration in Emacs
;; WARNING: needs the `mu' program installed; see the elisp file for more
;; details.
;(load-file (expand-file-name "extras/email.el" user-emacs-directory))
;; Tools for academic researchers
;(load-file (expand-file-name "extras/researcher.el" user-emacs-directory))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Built-in customization framework
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(package-selected-packages
'(dracula-theme company use-package use-package-chords key-chord evil which-key)))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; My stuff
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Turn off the damn bell
(setq ring-bell-function nil)Pretty much always want tab width to be 2
(setq tab-width 4)Make some keymaps for nice viewing Convenience function for making outer and inner keymaps
(defun my/make-keymap (name)
(let ((map-name (concat name "-map"))
(preds '("outer/" "inner/"))
maps)
(dolist (el preds maps)
(setq maps (cons (concat el map-name) maps)))
maps))
(defmacro my/init-keymaps! (name)
(let ((names (make-keymap name))
form)
(dolist (el names form)
(setq form (append `(,(make-symbol el) (make-sparse-keymap)) form)))
`(setq ,@form)))Consult
(setq outer/consult-map (make-sparse-keymap)
inner/consult-map (make-sparse-keymap))
(define-key outer/consult-map "C-c s" '("consult" . inner/consult-map))Turn off company mode, it interferes with corfu
;; (global-company-mode -1)Bring this in for use later
(use-package dash :ensure t)Search
(use-package ag :ensure t)Icons
(use-package all-the-icons
:ensure t)(winner-mode 1)
(recentf-mode 1)
(eldoc-mode 1)
;; theme
(use-package dracula-theme
:config
(add-to-list 'custom-theme-load-path "~/bedrock/themes")
:init
(load-theme 'dracula t))
(setq initial-buffer-choice "~/bedrock/config.org")
;; get use-package to behave
(setq package-archives
'(("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")))
(use-package use-package-chords
:ensure t
:config (key-chord-mode 1))rainbow delimiters
(use-package rainbow-delimiters
:ensure t
:config (add-hook 'prog-mode-hook #'rainbow-delimiters-mode))(use-package nerd-icons
:ensure t)(use-package doom-modeline
:ensure t
:config
(setq doom-modeline-minor-modes nil)
:init (doom-modeline-mode 1))(use-package emacs
:custom
(tab-always-indent 'complete)
;; Emacs 28 and newer: Hide commands in M-x which do not apply to the current
;; mode. Corfu commands are hidden, since they are not used via M-x. This
;; setting is useful beyond Corfu.
(read-extended-command-predicate #'command-completion-default-include-p)
(enable-recursive-minibuffers t)
:config
(global-hl-line-mode -1)
(hl-line-mode -1)
(electric-pair-mode 1)
:init
(defun crm-indicator (args)
(cons (format "[CRM%s] %s"
(replace-regexp-in-string
"\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
crm-separator)
(car args))
(cdr args)))
(advice-add #'completing-read-multiple :filter-args #'crm-indicator))(use-package kmacro
:config
(defalias 'kmacro-insert-macro 'insert-kbd-macro)
(define-key kmacro-keymap (kbd "I") #'kmacro-insert-macro))Projectile is one option, and it works great
(use-package projectile
:ensure t
:config
(setq projectile-switch-project-action 'projectile-dired)
:bind
(("C-c p" . #'projectile-command-map))
:init (projectile-mode +1))Perspective mode is another option that integrates a little better with treemacs IMO
(use-package perspective
:ensure t
:bind
(("C-x C-b" . persp-list-buffers)) ; or use a nicer switcher, see below
:custom
(persp-mode-prefix-key (kbd "C-c C-p")) ; pick your own prefix key here
:init
(persp-mode))Integrate persp and projectile
(use-package persp-projectile
:ensure t
:bind
(("C-c p p" . projectile-persp-switch-project)))(use-package origami
:ensure t
:bind
(("C-c z z" . origami-forward-toggle-node)
("C-c z C" . origami-close-all-nodes)
("C-c z O" . origami-open-all-nodes)
("C-c z b" . origami-previous-fold)
("C-c z n" . origami-next-fold))
:init (global-origami-mode))Delete a window more easily
(keymap-set global-map "C-c w d" 'delete-window)(use-package popper
:ensure t ; or :straight t
:bind (("C-`" . popper-toggle)
("s-." . popper-cycle)
("C-M-`" . popper-toggle-type)
("C-<escape>" . popper-kill-latest-popup))
:init
(setq popper-reference-buffers
'("\\*Messages\\*"
"Output\\*$"
"\\*Async Shell Command\\*"
"*vterm*"
help-mode
compilation-mode))
(popper-mode +1)
(popper-echo-mode +1)) NeoTree is an alternative to treemacs Seems maybe more lightweight?
Function to open up the projectile root
(defun neotree-project-dir ()
"Open NeoTree using the git root."
(interactive)
(let ((project-dir (projectile-project-root))
(file-name (buffer-file-name)))
(neotree-toggle)
(if project-dir
(if (neo-global--window-exists-p)
(progn
(neotree-dir project-dir)
(neotree-find file-name)))
(message "Could not find git project root."))))(use-package neotree
:ensure t
:config
(setq neo-theme (if (display-graphic-p) 'icons 'arrow))
:bind
(("<f8>" . neotree-project-dir)))(use-package treemacs
:ensure t
:defer t
:disabled
:init
(with-eval-after-load 'winum
(define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
:config
(progn
(setq treemacs-collapse-dirs (if treemacs-python-executable 3 0)
treemacs-deferred-git-apply-delay 0.5
treemacs-directory-name-transformer #'identity
treemacs-display-in-side-window t
treemacs-eldoc-display 'simple
treemacs-file-event-delay 2000
treemacs-file-extension-regex treemacs-last-period-regex-value
treemacs-file-follow-delay 0.2
treemacs-file-name-transformer #'identity
treemacs-follow-after-init t
treemacs-expand-after-init t
treemacs-find-workspace-method 'find-for-file-or-pick-first
treemacs-git-command-pipe ""
treemacs-goto-tag-strategy 'refetch-index
treemacs-header-scroll-indicators '(nil . "^^^^^^")
treemacs-hide-dot-git-directory t
treemacs-indentation 2
treemacs-indentation-string " "
treemacs-is-never-other-window nil
treemacs-max-git-entries 5000
treemacs-missing-project-action 'ask
treemacs-move-files-by-mouse-dragging t
treemacs-move-forward-on-expand nil
treemacs-no-png-images nil
treemacs-no-delete-other-windows t
treemacs-project-follow-cleanup nil
treemacs-persist-file (expand-file-name ".cache/treemacs-persist" user-emacs-directory)
treemacs-position 'left
treemacs-read-string-input 'from-child-frame
treemacs-recenter-distance 0.1
treemacs-recenter-after-file-follow nil
treemacs-recenter-after-tag-follow nil
treemacs-recenter-after-project-jump 'always
treemacs-recenter-after-project-expand 'on-distance
treemacs-litter-directories '("/node_modules" "/.venv" "/.cask")
treemacs-project-follow-into-home nil
treemacs-show-cursor nil
treemacs-show-hidden-files t
treemacs-silent-filewatch nil
treemacs-silent-refresh nil
treemacs-sorting 'alphabetic-asc
treemacs-select-when-already-in-treemacs 'move-back
treemacs-space-between-root-nodes t
treemacs-tag-follow-cleanup t
treemacs-tag-follow-delay 1.5
treemacs-text-scale nil
treemacs-user-mode-line-format nil
treemacs-user-header-line-format nil
treemacs-wide-toggle-width 70
treemacs-width 35
treemacs-width-increment 1
treemacs-width-is-initially-locked t
treemacs-workspace-switch-cleanup nil)
;; The default width and height of the icons is 22 pixels. If you are
;; using a Hi-DPI display, uncomment this to double the icon size.
;;(treemacs-resize-icons 44)
(treemacs-follow-mode t)
(treemacs-filewatch-mode t)
(treemacs-fringe-indicator-mode 'always)
(when treemacs-python-executable
(treemacs-git-commit-diff-mode t))
(pcase (cons (not (null (executable-find "git")))
(not (null treemacs-python-executable)))
(`(t . t)
(treemacs-git-mode 'deferred))
(`(t . _)
(treemacs-git-mode 'simple)))
(treemacs-hide-gitignored-files-mode nil))
:bind
(:map global-map
("M-0" . treemacs-select-window)
("C-x t 1" . treemacs-delete-other-windows)
("C-x t t" . treemacs)
("C-x t d" . treemacs-select-directory)
("C-x t B" . treemacs-bookmark)
("C-x t C-t" . treemacs-find-file)
("C-x t M-t" . treemacs-find-tag)))Since we use projectile, use the projectile extension
(use-package treemacs-projectile
:after (treemacs projectile)
:ensure t)Use persp for treemacs too
(use-package treemacs-persp ;;treemacs-perspective if you use perspective.el vs. persp-mode
:after (treemacs persp-mode) ;;or perspective vs. persp-mode
:ensure t
:config (treemacs-set-scope-type 'Perspectives))(use-package eyebrowse
:ensure t
:disabled
:init (eyebrowse-mode 1))(use-package ace-window
:ensure t
:bind
(("C-c w w" . ace-window)
("C-c w u" . winner-undo)))(use-package avy
:ensure t
:bind
(("C-c a l" . avy-goto-line)
("C-c a c" . avy-goto-char-timer)))better-jumper reference
(use-package better-jumper
:ensure t
:init (better-jumper-mode +1))Tags for quickly setting
(setq org-tag-alist (append '((:startgroup . nil) ; at most one of the following
("@home" . ?h)
("@work" . ?w)
("@out". ?o)
(:endgroup . nil)
;; any of the following
("project" . ?p)
("learning" . ?l))
org-tag-alist-for-agenda))My tags and their font faces
(setq my/org-todo-keywords '(
("TODO(t)" . org-todo)
("NEXT(n)" . (:foreground "#34ebd8" :weight bold :slant italic))
("PROG(p!)" . (:foreground "green" :weight bold))
("HOLD(h@)" . (:background "orange" :foreground "white")) ; in progress but held up
("|")
("DONE(d!)" . org-done)
("WONT(w@/!)" . (:foreground "red" :weight bold))))(use-package org
:ensure t
:config
(setq org-agenda-files (list (expand-file-name "~/org")))
;; set faces
(setq org-todo-keywords (list (append '(sequence)
(seq-map #'(lambda (elt)
(if (listp elt)
(car elt)
elt))
my/org-todo-keywords))))
(setq org-todo-keyword-faces (let ((f (lambda (elt)
(if (listp elt)
`(
,(seq-take-while #'(lambda (elt) (not (equal ?\( elt))) (car elt))
.
,(cdr elt))
elt)
)))
(seq-map #'(lambda (elt) (funcall f elt)) my/org-todo-keywords)))
;;
;; config files
(setq +org-chores-file (expand-file-name "~/org/chores.org"))
(setq org-agenda-start-day nil
org-agenda-span 1)
:bind
(("C-c o a" . org-agenda)
("C-c o c" . org-capture))
:init
(add-hook 'org-mode-hook #'org-indent-mode))(use-package org-super-agenda
:ensure t
:init (org-super-agenda-mode 1))Create the custom agenda command for super agenda
(setq org-agenda-custom-commands
'(("c" "Super agenda"
((agenda "" ((org-agenda-overriding-header "")
(org-super-agenda-groups
'((:log t)
(:name "Overdue"
:deadline past)
(:name "Habits"
:habit t)
(:name "Today"
:time-grid t
:date today)
(:name "Important"
:priority "A"
:face (:weight ultra-bold :background "blue")
:order 1)
(:name "Unstarted"
:scheduled past)
))))
(alltodo "" ((org-agenda-overriding-header "")
(org-super-agenda-groups
`((:log t)
(:name "Important"
:priority "A"
:face (:weight ultra-bold :background "blue")
:order 0)
(:name "Next"
:todo "NEXT"
:order 2)
(:name "Coming up"
:scheduled future)
(:name "In progress"
:todo "PROG"
:order 1)
(:name "Daphne"
:tag "daphne")
(:name "Chores"
:file-path ,(expand-file-name +org-chores-file) ; back-quoted list allows evaluation with `,`
:face (:slant italic)
:order 2)
(:name "Can wait"
:priority "C")
(:name "If time"
:priority "B")
(:discard (:file-path ,(expand-file-name "~/org/bills.org")))
(:discard (:file-path ,(expand-file-name "~/org/habits.org")))))))))))(setq org-capture-templates '(("a" "Agenda")
("ad" "Deadline" entry
(file+olp+datetree +org-capture-agenda-file)
"* %?\nDEADLINE: %^{at}t")
("t" "Todos")
("tt" "project todo" entry
(file "~/org/projects.org")
"* TODO %?\n%i")
("tn" "today" entry
(file+headline "~/org/todo.org" "Todos")
"* TODO %?\n%t")
("td" "deadline" entry
(file+headline "~/org/todo.org" "Todos")
"* TODO %?\nDEADLINE: %^{at}t")
("ts" "scheduled" entry
(file+headline "~/org/todo.org" "Todos")
"* TODO %?\nSCHEDULED: %^{at}t")
("c" "chore" entry
(file +org-chores-file)
"* TODO %?\nDEADLINE: %t")
("n" "notes")
("nd" "discussion" entry
(file+datetree "~/org/discussions.org")
"* %?"
:tree-type month)
("nn" "note" entry
(file+datetree "~/org/notes.org")
"* %?")))(use-package org-brain
:ensure t
:bind
(("C-c o b" . org-brain-visualize)))(use-package org-roam
:ensure t
:config
(org-roam-db-autosync-mode 1)
(setq org-roam-db-location "~/.config/emacs/.local/cache/org-roam.db")
:bind
(("C-c o r i" . org-roam-node-insert)
("C-c o r f" . org-roam-node-find)))(use-package yasnippet
:ensure t
:config (yas-global-mode 1))(defun reload()
(interactive)
(org-babel-load-file (expand-file-name "~/bedrock/config.org"))
(load (expand-file-name "~/bedrock/config.el")))(use-package vertico
:after meow
:ensure t
:custom
(vertico-count 20) ;; Show more candidates
(vertico-resize t) ;; Grow and shrink the Vertico minibuffer
(vertico-cycle t) ;; Enable cycling for `vertico-next/previous'
:config ; evaluated after the pkg loads
;; (keymap-set vertico-map "TAB" #'vertico-next)
;; (keymap-set vertico-map "<backtab>" #'vertico-previous)
:bind
(("C-c '" . vertico-repeat)
(:map vertico-map
("<escape>" . vertico-suspend)))
:init (vertico-mode 1))(use-package vertico-suspend
:after vertico
:ensure nil)
(use-package vertico-repeat
:after vertico
:ensure nil)
(use-package vertico-directory
:after vertico
:bind
(:map vertico-map
("M-DEL" . vertico-directory-delete-word)))
(use-package orderless
:ensure t
:custom
(completion-styles '(orderless basic))
(completion-category-overrides '((file (styles basic partial-completion)))))Using tab-and-go completion style
(use-package company
:ensure t
:config
(setq company-tooltip-align-annotations t
company-show-quick-access t
company-files-exclusions '(".git/" ".DS_Store")
;; use letters instead of icons
company-format-margin-function #'company-text-icons-margin
company-text-icons-add-background t)
;; customize the annotation faces
(custom-set-faces
'(company-tooltip-annotation ((t (:foreground "dark gray")))))
(append company-backends '(:with company-yasnippet))
:bind
(:map company-active-map
([tab] . company-complete-common-or-cycle)
("<escape>" . company-abort))
:init
(global-company-mode 1))Not using it for now, trying out company
(use-package corfu
:ensure t
:custom
(corfu-cycle t)
(corfu-preselect 'prompt)
:config
(setq corfu-auto t
corfu-auto-prefix 2)
:bind
(:map corfu-map
("TAB" . corfu-next)
([tab] . corfu-next)
("S-TAB" . corfu-previous)
([backtab] . corfu-previous))
:init (global-corfu-mode -1))A function to search the current directory. If something is under point, suggest that as default
(defun search/dir ()
(interactive)
(let ((dir (file-name-directory (buffer-file-name))))
(consult-ripgrep dir)))(use-package consult
:ensure t
:bind
;; meow SPC x b
;; (:map inner/consult-map
(("C-c s b" . consult-project-buffer)
("C-c s B" . consult-buffer)
("C-c s l" . consult-line)
("C-c s f" . consult-recent-file)
("C-c s o" . consult-outline)
("C-c s i" . consult-imenu)
("C-c b" . consult-bookmark)
("C-c t l" . consult-goto-line)
("C-c s r" . consult-ripgrep)
("C-c s d" . search/dir)
("C-c s y" . consult-yank-replace)));; Enable rich annotations using the Marginalia package
(use-package marginalia
:ensure t
;; Bind `marginalia-cycle' locally in the minibuffer. To make the binding
;; available in the *Completions* buffer, add it to the
;; `completion-list-mode-map'.
:bind (:map minibuffer-local-map
("M-A" . marginalia-cycle))
;; The :init section is always executed.
:init
;; Marginalia must be activated in the :init section of use-package such that
;; the mode gets enabled right away. Note that this forces loading the
;; package.
(marginalia-mode))(use-package embark
:ensure t
:bind
(("C-." . embark-act) ;; pick some comfortable binding
("C-;" . embark-dwim) ;; good alternative: M-.
("C-h B" . embark-bindings)) ;; alternative for `describe-bindings'
:init
;; Optionally replace the key help with a completing-read interface
(setq prefix-help-command #'embark-prefix-help-command)
;; Show the Embark target at point via Eldoc. You may adjust the
;; Eldoc strategy, if you want to see the documentation from
;; multiple providers. Beware that using this can be a little
;; jarring since the message shown in the minibuffer can be more
;; than one line, causing the modeline to move up and down:
;; (add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
;; (setq eldoc-documentation-strategy #'eldoc-documentation-compose-eagerly)
:config
;; Hide the mode line of the Embark live/completions buffers
(add-to-list 'display-buffer-alist
'("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
nil
(window-parameters (mode-line-format . none)))))
;; Consult users will also want the embark-consult package.
(use-package embark-consult
:ensure t ; only need to install it, embark loads it after consult if found
:hook
(embark-collect-mode . consult-preview-at-point-mode))(use-package magit
:ensure t
:bind
(("C-M-g" . magit)
("C-M-b" . magit-branch)))(use-package vterm
:ensure t)Custom function to support surrounding a selection with something
(defun meow-surround (start end char)
(interactive "r\ncSurround:")
(save-excursion
(goto-char start)
(insert char)
(goto-char (1+ end))
(insert (surround/matching char))))
(defun surround/matching (c)
(cond ((eq ?\( c) ?\))
((eq ?\[ c) ?\])
((eq ?\{ c) ?\})
((eq ?\< c) ?\>)
(t c)))Default meow setup, ripped from github
(defun meow-setup ()
(setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
(meow-motion-overwrite-define-key
'("j" . meow-next)
'("k" . meow-prev)
'("<escape>" . meow-cancel-selection))
(meow-leader-define-key
;; SPC j/k will run the original command in MOTION state.
'("j" . "H-j")
'("k" . "H-k")
;; Use SPC (0-9) for digit arguments.
'("1" . meow-digit-argument)
'("2" . meow-digit-argument)
'("3" . meow-digit-argument)
'("4" . meow-digit-argument)
'("5" . meow-digit-argument)
'("6" . meow-digit-argument)
'("7" . meow-digit-argument)
'("8" . meow-digit-argument)
'("9" . meow-digit-argument)
'("0" . meow-digit-argument)
'("/" . meow-keypad-describe-key)
'("?" . meow-cheatsheet))
(meow-normal-define-key
'("0" . meow-bexpand-0)
'("9" . meow-expand-9)
'("8" . meow-expand-8)
'("7" . meow-expand-7)
'("6" . meow-expand-6)
'("5" . meow-expand-5)
'("4" . meow-expand-4)
'("3" . meow-expand-3)
'("2" . meow-expand-2)
'("1" . meow-expand-1)
'("-" . negative-argument)
'(";" . meow-reverse)
'("," . meow-inner-of-thing)
'("." . meow-bounds-of-thing)
'("[" . meow-beginning-of-thing)
'("]" . meow-end-of-thing)
'("a" . meow-append)
'("A" . meow-open-below)
'("b" . meow-back-word)
'("B" . meow-back-symbol)
'("c" . meow-change)
'("d" . meow-delete)
'("D" . meow-backward-delete)
'("e" . meow-next-word)
'("E" . meow-next-symbol)
'("f" . meow-find)
'("g" . meow-cancel-selection)
'("G" . meow-grab)
'("h" . meow-left)
'("H" . meow-left-expand)
'("i" . meow-insert)
'("I" . meow-open-above)
'("j" . meow-next)
'("J" . meow-next-expand)
'("k" . meow-prev)
'("K" . meow-prev-expand)
'("l" . meow-right)
'("L" . meow-right-expand)
'("m" . meow-join)
'("n" . meow-search)
'("o" . meow-block)
'("O" . meow-to-block)
'("p" . meow-yank)
'("q" . meow-quit)
'("Q" . meow-goto-line)
'("r" . meow-replace)
'("R" . meow-swap-grab)
'("s" . meow-kill)
'("S" . meow-surround)
'("t" . meow-till)
'("u" . meow-undo)
'("U" . meow-undo-in-selection)
'("v" . meow-visit)
'("w" . meow-mark-word)
'("W" . meow-mark-symbol)
'("x" . meow-line)
'("X" . meow-goto-line)
'("y" . meow-save)
'("Y" . meow-sync-grab)
'("z" . meow-pop-selection)
'("C-o" . meow-pop-to-mark)
'("'" . repeat)
'("<escape>" . meow-cancel-selection)))(use-package meow
:ensure t
:config
(meow-setup)
(meow-setup-indicator)
(setq meow-use-clipboard t)
:init
(meow-global-mode 1))TODO: have to get xref working
(use-package flycheck
:ensure t
:init (global-flycheck-mode))(use-package markdown-mode
:ensure t
:mode ("README\\.md\\'" . gfm-mode)
:init (setq markdown-command "multimarkdown"))(setq treesit-language-source-alist
'((gomod "https://github.com/camdencheek/tree-sitter-go-mod")
(go "https://github.com/tree-sitter/tree-sitter-go" "v0.19.1")
(tsx . ("https://github.com/tree-sitter/tree-sitter-typescript"
"v0.20.3"
"tsx/src"))
(templ . ("https://github.com/vrischmann/tree-sitter-templ"))
(javascript . ("https://github.com/tree-sitter/tree-sitter-javascript"))))(use-package yaml-mode
:ensure t)Format and organize before saving
(defun lsp-format-and-organize-imports ()
(add-hook 'before-save-hook #'lsp-format-buffer t t)
(add-hook 'before-save-hook #'lsp-organize-imports t t))(use-package lsp-mode
:ensure t
:config
(setq lsp-headerline-breadcrumb-enable nil)
:hook
;; go
((go-mode . lsp-deferred)
(go-mode . lsp-format-and-organize-imports)
(tsx-ts-mode . lsp-deferred)))Peek is awesome
(use-package lsp-ui
:ensure t
:config
(setq lsp-ui-doc-delay 1)
:bind
(:map lsp-ui-mode-map
("M-." . lsp-ui-peek-find-definitions)
("M-?" . lsp-ui-peek-find-references)))Allow searching the LSP symbols with Consult
(use-package consult-lsp
:ensure t)Also get go-mode
(use-package go-mode
:config
(setq lsp-go-use-gofumpt t)
:ensure t)Golangci-lint
(use-package flycheck-golangci-lint
:ensure t
:hook (go-mode . flycheck-golangci-lint-setup))(add-to-list 'auto-mode-alist '("\\.go" . go-mode))
(add-to-list 'major-mode-remap-alist '(go-ts-mode . go-mode))
(add-hook 'go-mode #'lsp-format-and-organize-imports)(use-package templ-ts-mode
:ensure t)(add-to-list 'auto-mode-alist '("\\.tsx?" . tsx-ts-mode))
(add-hook 'tsx-ts-mode #'lsp-format-and-organize-imports)(use-package clojure-mode
:ensure t)Paredit is awesome
(use-package paredit-mode
:hook
(clojure-mode . paredit-mode))LSP formats, but sometimes you don’t want LSP Apheleia helps with that
(use-package apheleia
:ensure t
:init
(apheleia-global-mode 1))Aphelia formatting in YAML interrupts helm-style {{ .Values }}, so I turned it off
Can always turn it on again with M-x apheleia-mode
(add-hook 'yaml-mode-hook #'(lambda () (apheleia-mode -1)))JSON should have a tab-width of 2
(add-hook 'js-json-mode-hook #'(lambda () (setq-local tab-width 2
indent-tabs-mode nil)))Nyan cat showing buffer position? Sure
(use-package nyan-mode
:ensure t
:config
(setq nyan-animate-nyancat t
nyan-bar-length 24)
:init
(nyan-mode 1))(defun treemacs-git-project ()
(if-let ((root (project-root (project-current t)))
(name (project-name (project-current t))))
(progn
(treemacs-do-add-project-to-workspace root name)
(message (format "Added %s to treemacs" name)))
(message "No project found")))
;; (add-hook 'treemacs-post-buffer-init-hook #'treemacs-git-project)