key | command |
---|---|
v V | expands and contracts region |
SPC s f | consult-find |
SPC s y | consult-yank-from-kill-ring |
M-SPC | cycle-spacing |
M-j | avy-goto-char-timer |
SPC m l c | org-clip-link |
gk gj | up and down an org header |
SPC m z | yank to block commands |
SPC m l p | org-hugo-export-wim-to-md |
SPC m n | flycheck-next-error |
SPC m p | flycheck-previous-error |
M-w | easy-kill |
C-x C-d | consult-dir |
C-x C-j | consult-dir-jump-file |
M-up M-down | Move line up/down |
C-; | embark-act |
SPC t m | style/max-frame |
SPC t d | style/default-frame |
Most of my doom config, and much of my work flow has been put together from reading and stealing from other configs.
A useful technique is to do an advanced github search of these repos, together with the main doom-emacs repository. An example: Example search on org-modern
GitHub - LemonBreezes/.doom.d: My private doom-emacs config
GitHub - floscr/emacs.d: My emacs config
GitHub - dangirsh/.doom.d: A literate Doom Emacs config
GitHub - hlissner/doom-emacs-private: My private module for Doom Emacs
GitHub - tecosaur/emacs-config: My configuration for Doom Emacs
zzamboni.org | My Emacs Configuration, With Commentary
dots/config.el at master · jethrokuan/dots · GitHub
Sacha Chua’s Emacs configuration
GitHub - daviwil/dotfiles: The path to GNUrvana GitHub - frap/emacs-literate: Literate emacs config file
GitHub - MatthewZMD/.emacs.d: M-EMACS, a full-featured GNU Emacs configuratio…
GitHub - karthink/.emacs.d: My personal emacs settings
https://protesilaos.com/emacs/dotemacs
adventures in uncertainty: My Emacs Configuration
See practical map! usage here:
doom-emacs/+evil-bindings.el at develop · hlissner/doom-emacs · GitHub
- inspect the key with
SPC h k
. Look for which keymaps are binding. - inspect the keymap with
SPC h v
. - unbind any existing map with (map! :map xyz-map :inv #’command nil)
- look in module docs (
SPC h d m
)- custom keybinds for in the module, such as
:lang org
. - general keybinds for evil in the
:editor evil
module - doom’s “best default” keybinds in
:config default
- module plugins lists to see if we have an evil package for it.
- custom keybinds for in the module, such as
- Look for a module in GitHub - emacs-evil/evil-collection: A set of keybindings for evil-mode. This package provides evil defaults for a variety of modes/packages.
- Use
discover-my-major
As per default doom config.el.
Modus themes for GNU Emacs Modus Themes (Modus Operandi and Modus Vivendi) | Protesilaos Stavrou
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
;; Place your private configuration here! Remember, you do not need to run 'doom
;; sync' after modifying this file!
;; other configuration examples
;;
;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets.
(setq user-full-name "Tony Day"
user-mail-address "[email protected]")
;; Doom exposes five (optional) variables for controlling fonts in Doom. Here
;; are the three important ones:
;;
;; + `doom-font'
;; + `doom-variable-pitch-font'
;; + `doom-big-font' -- used for `doom-big-font-mode'; use this for
;; presentations or streaming.
;;
;; They all accept either a font-spec, font string ("Input Mono-12"), or xlfd
;; font string. You generally only need these two:
;;(setq doom-font (font-spec :family "Iosevka ss02" :size 14 :weight 'light)
;; doom-variable-pitch-font (font-spec :family "Iosevka etoile" :size 14))
(setq doom-font (font-spec :family "Victor Mono")
doom-variable-pitch-font (font-spec :family "Iosevka Aile"))
;;(setq doom-font (font-spec :family "Iosevka")
;; doom-variable-pitch-font (font-spec :family "Iosevka Aile"))
;; There are two ways to load a theme. Both assume the theme is installed and
;; available. You can either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default:
;; (setq doom-theme 'doom-Iosvkem)
(setq doom-theme 'modus-operandi)
;; (doom-themes-org-config)
;; If you use `org' and don't want your org files in the default location below,
;; change `org-directory'. It must be set before org loads!
(setq org-directory "~/org/")
;; This determines the style of line numbers in effect. If set to `nil', line
;; numbers are disabled. For relative line numbers, set this to `relative'.
(setq display-line-numbers-type nil)
;; Here are some additional functions/macros that could help you configure Doom:
;;
;; - `load!' for loading external *.el files relative to this one
;; - `use-package!' for configuring packages
;; - `after!' for running code after a package has loaded
;; - `add-load-path!' for adding directories to the `load-path', relative to
;; this file. Emacs searches the `load-path' when you load packages with
;; `require' or `use-package'.
;; - `map!' for binding new keys
;;
;; To get information about any of these functions/macros, move the cursor over
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
;; This will open documentation for it, including demos of how they are used.
;;
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
;; they are implemented.
Global configuration, including standard doom library tweaks.
(setq evil-split-window-below t
evil-vsplit-window-right t
confirm-kill-emacs nil
confirm-kill-processes nil
shift-select-mode t
window-combination-resize t
delete-selection-mode t
case-fold-search t
auto-save-default t)
(setq search-whitespace-regexp ".*"
isearch-lax-whitespace t
isearch-regexp-lax-whitespace nil)
;; setq-default sets variables that are usually local to buffers
(setq-default truncate-lines nil
indent-tabs-mode nil)
(map!
(:map 'override
:v "v" #'er/expand-region
:v "V" #'er/contract-region))
(map!
(:map 'override
:m "j" #'evil-next-visual-line
:m "k" #'evil-previous-visual-line))
(setq evil-want-fine-undo t
evil-kill-on-visual-paste nil
evil-want-C-u-scroll nil
evil-want-C-u-delete nil
evil-want-integration t
evil-want-keybinding nil
evil-move-cursor-back nil
evil-move-beyond-eol t
evil-highlight-closing-paren-at-point-states nil)
(defun evil-forward-after-end (thing &optional count)
"Move forward to end of THING.
The motion is repeated COUNT times."
(setq count (or count 1))
(cond
((> count 0)
(forward-thing thing count))
(t
(unless (bobp) (forward-char -1))
(let ((bnd (bounds-of-thing-at-point thing))
rest)
(when bnd
(cond
((< (point) (cdr bnd)) (goto-char (car bnd)))
((= (point) (cdr bnd)) (cl-incf count))))
(condition-case nil
(when (zerop
(setq rest
(forward-thing thing count)))
(end-of-thing thing))
(error))
rest))))
(evil-define-motion evil-forward-after-word-end (count &optional bigword)
"Move the cursor to the end of the COUNT-th next word.
If BIGWORD is non-nil, move by WORDS."
:type inclusive
(let ((thing (if bigword 'evil-WORD 'evil-word))
(count (or count 1)))
(evil-signal-at-bob-or-eob count)
(evil-forward-after-end thing count)))
(evil-define-motion evil-forward-after-WORD-end (count)
"Move the cursor to the end of the COUNT-th next WORD."
:type inclusive
(evil-forward-after-word-end count t))
(evil-define-key 'motion 'global "e" #'evil-forward-after-word-end)
(evil-define-key 'motion 'global "E" #'evil-forward-after-WORD-end)
(setq vertico-sort-function #'vertico-sort-history-alpha)
(setq avy-all-windows t)
(map! :leader "s f" #'consult-find)
(map! :leader "s y" #'consult-yank-from-kill-ring)
(use-package orderless
:init
(setq completion-styles '(orderless)
completion-category-defaults nil
completion-category-overrides '((file (styles . (partial-completion))))))
git-gutter
(after! git-gutter
(setq git-gutter:disabled-modes '(org-mode image-mode))
(global-git-gutter-mode -1)
(remove-hook 'find-file-hook #'+vc-gutter-init-maybe-h)
(map!
:leader
:nvm "tv" #'git-gutter-mode
:desc "git-gutter-mode")
)
(define-key isearch-mode-map (kbd "M-j") 'avy-isearch)
(defun isearch-forward-other-window (prefix)
"Function to isearch-forward in other-window."
(interactive "P")
(unless (one-window-p)
(save-excursion
(let ((next (if prefix -1 1)))
(other-window next)
(isearch-forward)
(other-window (- next))))))
(defun isearch-backward-other-window (prefix)
"Function to isearch-backward in other-window."
(interactive "P")
(unless (one-window-p)
(save-excursion
(let ((next (if prefix 1 -1)))
(other-window next)
(isearch-backward)
(other-window (- next))))))
(define-key global-map (kbd "C-M-s") 'isearch-forward-other-window)
(define-key global-map (kbd "C-M-r") 'isearch-backward-other-window)
erc
message type codes: https://datatracker.ietf.org/doc/html/rfc2812
(setq erc-autojoin-channels-alist '(("libera.chat" "#haskell" "#emacs")))
(setq erc-hide-list '("JOIN" "PART" "QUIT"))
(setq erc-hide-timestamps t)
(setq erc-autojoin-timing 'ident)
;; (erc-prompt-for-nickserv-password nil)
(setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE"
"324" "329" "332" "333" "353" "477"))
(defun style/left-frame ()
(interactive)
(cond
((string-equal system-type "windows-nt") ; Microsoft Windows
(progn
(set-frame-parameter (selected-frame) 'fullscreen nil)
(set-frame-parameter (selected-frame) 'vertical-scroll-bars nil)
(set-frame-parameter (selected-frame) 'horizontal-scroll-bars nil)
(set-frame-parameter (selected-frame) 'top 10)
(set-frame-parameter (selected-frame) 'left 6)
(set-frame-parameter (selected-frame) 'height 40)
(set-frame-parameter (selected-frame) 'width 120)))
((string-equal system-type "darwin") ; Mac OS X
(progn
(set-frame-parameter (selected-frame) 'fullscreen nil)
(set-frame-parameter (selected-frame) 'vertical-scroll-bars nil)
(set-frame-parameter (selected-frame) 'horizontal-scroll-bars nil)
(set-frame-parameter (selected-frame) 'top 23)
(set-frame-parameter (selected-frame) 'left 0)
(set-frame-parameter (selected-frame) 'height 44)
(set-frame-parameter (selected-frame) 'width 100)
(message "default-frame set")))
((string-equal system-type "gnu/linux") ; linux
(progn
(message "Linux")))))
(add-to-list 'initial-frame-alist '(top . 23))
(add-to-list 'initial-frame-alist '(left . 0))
(add-to-list 'initial-frame-alist '(height . 44))
(add-to-list 'initial-frame-alist '(width . 100))
(defun style/max-frame ()
(interactive)
(if t
(progn
(set-frame-parameter (selected-frame) 'fullscreen 'fullboth)
(set-frame-parameter (selected-frame) 'vertical-scroll-bars nil)
(set-frame-parameter (selected-frame) 'horizontal-scroll-bars nil))
(set-frame-parameter (selected-frame) 'top 26)
(set-frame-parameter (selected-frame) 'left 2)
(set-frame-parameter (selected-frame) 'width
(floor (/ (float (x-display-pixel-width)) 9.15)))
(if (= 1050 (x-display-pixel-height))
(set-frame-parameter (selected-frame) 'height
(if (>= emacs-major-version 24)
66
55))
(set-frame-parameter (selected-frame) 'height
(if (>= emacs-major-version 24)
75
64)))))
(style/left-frame) ;; Focus new window after splitting
(map!
:leader
:nvm "tm" #'style/max-frame
:nvm "td" #'style/left-frame)
;; replaces just-one-space
(map! "M-SPC" #'cycle-spacing)
(map! (:after evil-org
:map evil-org-mode-map
:inv "M-j" nil))
(map! :map global-map "M-j" #'avy-goto-char-timer)
(map!
(:map 'override
:nvm "gss" #'evil-avy-goto-char-timer
:nvm "gs/" #'evil-avy-goto-char-2))
GitHub - jguenther/discover-my-major: Discover key bindings and their meaning…
(use-package! discover-my-major)
(after! org
(setq
org-capture-templates
(quote
(("r" "refile" entry
(file "~/org/refile.org")
"* ToDo %?
")
("s" "stack" checkitem
(file+headline "~/org/stuff.org" "stack")
"- %?
%a" :prepend t)
("z" "bugz" entry
(file+headline "~/org/bugz.org" "bugz!")
"* ToDo %?
%a")))))
Turn company mode off
(after! org
:config
(progn
(set-company-backend! 'org-mode nil)
(set-company-backend! 'org-mode '(:separate company-yasnippet company-dabbrev))))
(after! org
:config
(setq
org-startup-folded 'overview
org-support-shift-select t
org-insert-heading-respect-content t
org-startup-with-inline-images t
org-cycle-include-plain-lists 'integrate
;; https://github.com/syl20bnr/spacemacs/issues/13465
org-src-tab-acts-natively nil
;; from org-modern example
org-auto-align-tags nil
org-tags-column 0
org-catch-invisible-edits 'show-and-error
org-special-ctrl-a/e t
org-hide-emphasis-markers t
org-pretty-entities t
org-ellipsis "…"
org-agenda-tags-column 0
org-agenda-block-separator ?─)
(remove-hook 'org-mode-hook 'flyspell-mode)
)
(map! (:after evil-org
:map evil-org-mode-map
:n "gk" (cmd! (if (org-on-heading-p)
(org-backward-element)
(evil-previous-visual-line)))
:n "gj" (cmd! (if (org-on-heading-p)
(org-forward-element)
(evil-next-visual-line)))))
Keeping a manual list to avoid using customize.
(after! org-agenda
:config
(setq org-agenda-files
'("~/org")))
(after! org-agenda
:config
(setq org-agenda-span 'week
org-agenda-use-time-grid nil
org-agenda-start-day "-0d"
org-agenda-block-separator nil
org-agenda-show-future-repeats nil
org-agenda-compact-blocks t
org-agenda-window-setup 'other-window
org-agenda-show-all-dates nil
org-agenda-prefix-format
'((agenda . " %-12t")
(todo . " %-12:c")
(tags . " %-12:c")
(search . " %-12:c")))
(add-to-list 'org-modules 'org-habit)
(require 'org-habit)
(setq org-habit-graph-column 32)
(setq org-habit-following-days 2)
(setq org-habit-preceding-days 20)
(setq org-log-into-drawer t)
(map! :leader "oz" #'agenda-z)
(map! :map org-agenda-mode-map
:localleader
(:nvm "l" #'org-agenda-log-mode
:nvm "j" #'org-random-todo-goto-new
:nvm "h" #'org-agenda-habit-mode)))
(defun agenda-z ()
(interactive)
(org-agenda nil "z"))
(defun org-agenda-habit-mode (&optional junk)
"Toggle showing all habits."
(interactive "P")
(setq org-habit-show-all-today (not org-habit-show-all-today))
(org-agenda-redo)
(message "All habits are %s" (if org-habit-show-all-today "on" "off")))
org-super-agenda/examples.org at master · alphapapa/org-super-agenda · GitHub
(defun make-qsags ()
(-let* (((m d y) (calendar-gregorian-from-absolute (+ 6 (org-today))))
(target-date (format "%d-%02d-%02d" y m d))
)
(setq org-super-agenda-groups
`(
(:name "clocked"
:log clock)
(:name "next"
:todo "Next")
(:name "refile"
:category "refile")
(:name "blocked"
:todo "Blocked")
(:name "fun"
:and (:scheduled nil
:not (:log clock)
:tag ("fun"))
:discard (:habit t))
(:name "lemon"
:and (:scheduled nil
:not (:log clock)
:tag ("lemon"))
:discard (:habit t))
(:name "site"
:and (:scheduled nil
:not (:log clock)
:tag ("site"))
:discard (:habit t))
(:name "reading"
:and (:scheduled nil
:not (:log clock)
:tag ("reading"))
:discard (:habit t))
(:name "repo"
:and (:scheduled nil
:not (:log clock)
:tag ("repo"))
:discard (:habit t))
(:name "stuff"
:and (:scheduled nil
:not (:log clock)
:not (:tag ("ignore")))
:discard (:habit t))
(:name "a while"
:scheduled (after ,target-date)
:discard (:scheduled t))
(:name "scheduled"
:scheduled t
:discard (:habit t)
:order 9)
(:name "errors")
))))
(use-package! org-super-agenda
:config
(use-package origami
:bind (:map org-super-agenda-header-map
("<tab>" . origami-toggle-node)
("j" . evil-next-visual-line)
("k" . evil-previous-visual-line))
:hook ((org-agenda-mode . origami-mode)))
(make-qsags)
(org-super-agenda-mode 1)
(setq org-agenda-custom-commands
'(("z" "custom agenda"
((agenda "" ((org-agenda-span 'week)
(org-super-agenda-groups nil)
(org-agenda-overriding-header "")))
(alltodo "" ((org-agenda-overriding-header "")
)))))))
(after! org
:config
(defun display-ansi-colors ()
(interactive)
(let ((inhibit-read-only t))
(ansi-color-apply-on-region (point-min) (point-max))))
(add-hook 'org-babel-after-execute-hook #'display-ansi-colors)
(map! :map org-mode-map
:localleader
(:prefix ("z" . "yank to block")
:nvm "b" #'org-yank-into-new-block
:nvm "e" #'org-yank-into-new-block-elisp
:nvm "s" #'org-yank-into-new-block-sh
:nvm "h" #'org-yank-into-new-block-haskell
:nvm "q" #'org-yank-into-new-quote)))
(defun org-yank-into-new-block (&optional template)
(interactive)
(let ((begin (point))
done)
(unwind-protect
(progn
(end-of-line)
(yank)
(push-mark begin)
(setq mark-active t)
(if template
(org-insert-structure-template template)
(call-interactively #'org-insert-structure-template))
(setq done t)
(deactivate-mark)
(let ((case-fold-search t))
(re-search-forward (rx bol "#+END_")))
(forward-line 1))
(unless done
(deactivate-mark)
(delete-region begin (point))))))
(defun org-yank-into-new-block-elisp ()
(interactive)
(org-yank-into-new-block "src elisp"))
(defun org-yank-into-new-block-sh ()
(interactive)
(org-yank-into-new-block "src sh :results output"))
(defun org-yank-into-new-block-haskell ()
(interactive)
(org-yank-into-new-block "src haskell :results output"))
(defun org-yank-into-new-quote ()
(interactive)
(org-yank-into-new-block "quote"))
docs: ox-hugo - Org to Hugo exporter
backtrace
bug:
doomemacs/doomemacs#5721 (comment)
Setup is section-based. To add a post:
- add export_file_name to the properties.
- add auto save at the bottom of the file:
- Locals
A ToDo in the header makes the post a draft.
(after! org
:config
(use-package backtrace)
(setq org-hugo-base-dir "~/site"
org-hugo-auto-set-lastmod t
org-hugo-use-code-for-kbd t
org-hugo-date-format "%Y-%m-%d")
(map! :map org-mode-map
:localleader
(:nvm "lp" #'org-hugo-export-wim-to-md)))
GitHub - unhammer/org-random-todo: 🍃 Pop up a random TODO from your agenda ev…
(after! org
(use-package! org-random-todo
:defer-incrementally t
:commands (org-random-todo-goto-new)
:config
(map! :map org-mode-map
:localleader
(:nvm "j" #'org-random-todo-goto-new))))
GitHub - minad/org-modern: Modern Org Style
(use-package! org-modern
:config
(modify-all-frames-parameters
'((right-divider-width . 10)
(internal-border-width . 10)))
(dolist (face '(window-divider
window-divider-first-pixel
window-divider-last-pixel))
(face-spec-reset-face face)
(set-face-foreground face (face-attribute 'default :background)))
(set-face-background 'fringe (face-attribute 'default :background))
(set-face-attribute 'default nil :family "Iosevka")
(set-face-attribute 'variable-pitch nil :family "Iosevka Aile")
(set-face-attribute 'org-modern-symbol nil :family "Iosevka")
;; (set-face-attribute 'org-block-begin-line nil :background nil)
;; (set-face-attribute 'org-block-end-line nil :background nil)
;; (set-face-attribute 'org-modern-label nil :box '(:line-width 4 :color (face-background 'default)))
(setq org-modern-label-border 0)
(setq org-startup-indented nil)
;; (setq-default electric-indent-mode nil)
(setq-default org-todo-keywords '((sequence "ToDo(t)" "Next(n)" "Blocked(b)" "|" "Done(d!)")))
(setq-local line-spacing 0.2)
(global-org-modern-mode)
)
(after! deft
(setq
deft-directory "~/org"
deft-extensions '("org" "txt" "md")
deft-recursive t
deft-file-naming-rules
(quote
((noslash . "-")
(nospace . "-")
(case-fn . downcase)))
deft-strip-summary-regexp "\\([
]\\|^#\\+.+:.*$\\)"
delete-by-moving-to-trash nil
))
;; haskell
;;
(after! haskell
(setq
haskell-font-lock-symbols t
;; company-idle-delay 0.5
haskell-interactive-popup-errors nil
lsp-enable-folding nil
lsp-response-timeout 120
lsp-ui-sideline-enable nil
lsp-haskell-plugin-import-lens-code-actions-on nil
lsp-haskell-plugin-ghcide-type-lenses-config-mode nil
lsp-haskell-plugin-ghcide-type-lenses-global-on nil
lsp-haskell-plugin-import-lens-code-lens-on nil
lsp-ui-doc-enable nil
;; lsp-enable-symbol-highlighting nil
+lsp-prompt-to-install-server 'quiet
lsp-modeline-diagnostics-scope :project
;; lsp-modeline-code-actions-segments '(count icon)
flycheck-check-syntax-automatically '(save)
lsp-haskell-brittany-on nil
lsp-haskell-floskell-on nil
lsp-haskell-fourmolu-on nil
lsp-haskell-stylish-haskell-on nil
lsp-haskell-retrie-on nil
;; lsp-completion-provider :none
haskell-process-show-debug-tips nil
haskell-process-suggest-remove-import-lines nil
haskell-process-suggest-restart nil
;;haskell-process-type 'stack-ghci
haskell-process-type 'cabal-repl
)
(haskell-indentation-mode -1)
(setq-local tab-stop-list '(2 4))
(setq-local indent-line-function 'indent-relative)
(setq-local tab-width 2)
(setq-local evil-shift-width 2)
(define-key evil-insert-state-map (kbd "TAB") 'tab-to-tab-stop)
;(define-key evil-normal-state-map (kbd "C-]") 'haskell-mode-goto-loc)
;(define-key evil-normal-state-map (kbd "C-c C-]") 'haskell-mode-tag-find)
;(define-key evil-normal-state-map (kbd "C-c C-t") 'haskell-mode-show-type-at)
(global-so-long-mode -1)
(add-hook! 'haskell-mode-hook 'interactive-haskell-mode)
;(add-hook! 'haskell-mode-hook #'(modify-syntax-entry ?_ "w"))
)
(after! haskell
(defun mk-haskell-insert-symbol ()
"Insert one of the Haskell symbols that are difficult to type."
(interactive)
(char-menu
'("<-" "::" "->" "=>" "="
"<*" "<$>" "<*>" "<|>" "*>")))
(map! :localleader
:map haskell-mode-map
(:nvm "m" #'mk-haskell-insert-symbol)
))
(after! haskell
(map! :localleader
:map haskell-mode-map
"n" #'flycheck-next-error
"p" #'flycheck-previous-error))
(map!
:after company
:map company-active-map
"RET" nil
"<return>" nil
"<tab>" #'company-complete-selection
"TAB" #'company-complete-selection)
(setq tab-always-indent 'complete)
(after! haskell
(sp-with-modes '(haskell-mode haskell-interactive-mode)
(sp-local-pair "{-" "-}" :actions :rem)
(sp-local-pair "{-#" "#-}" :actions :rem)
(sp-local-pair "{-@" "@-}" :actions :rem)
(sp-local-pair "{-" "-")
(sp-local-pair "{-#" "#-")
(sp-local-pair "{-@" "@-")))
(after! haskell
(map! (:map haskell-interactive-mode-map
:n "<RET>" #'haskell-interactive-mode-return)))
(after! haskell
(use-package! haskell-lite
:config
(map! :localleader
:map haskell-mode-map
(:prefix ("l" . "lite")
:nvm "s" #'haskell-lite-repl-start
:nvm "q" #'haskell-lite-repl-quit
:nvm "r" #'haskell-lite-repl-show
:nvm "l" #'haskell-lite-repl-load-file
:nvm "o" #'haskell-lite-repl-overlay
:nvm "c" #'haskell-comint-clear-buffer
:nvm "k" #'haskell-comint-restart)
)))
(after! haskell
(use-package! fd-haskell
:config
(setq haskell-shell-buffer-name "haskell")
(setq haskell-shell-interpreter '("cabal" "repl"))
(setq haskell-shell-interpreter-args '())
(setq haskell-pdbtrack-activate nil)
)
(add-hook! 'haskell-mode-hook 'fd-haskell-mode))
(use-package company-ghci
:after pos-tip
:config
(defun show-hoogle-info-in-popup ()
(pos-tip-show (company-ghci/hoogle-info (symbol-at-point))))
(defun company-ghci-setup ()
(push 'company-ghci company-backends)
(define-key evil-normal-state-map (kbd "C-;") (lambda () (interactive) (show-hoogle-info-in-popup))))
(add-hook 'haskell-interactive-mode-hook 'company-mode)
(add-hook 'haskell-mode-hook 'company-ghci-setup))
(use-package ormolu
:bind (:map haskell-mode-map
("C-c r" . ormolu-format-buffer)))
(after! haskell
(defun haskell-repl-quit (&optional process)
"Kill a repl."
(interactive)
(when (buffer-live-p inferior-haskell-buffer)
(with-current-buffer inferior-haskell-buffer
(comint-kill-subjob)
(kill-buffer))))
(setq kill-buffer-query-functions
(delq 'process-kill-buffer-query-function kill-buffer-query-functions))
(map! :leader "zhk" #'haskell-repl-quit)
)
(after! haskell
(use-package eglot)
(add-hook! 'haskell-mode-hook 'eglot-ensure)
(add-to-list 'eglot-server-programs
'(haskell-mode . ("haskell-language-server-wrapper" "--lsp"))))
cabal install tidal --lib
is the magical incantation.
SuperCompiler start.scd
Server.local.options.sampleRate = 44100; SuperDirt.start; s.reboot
(use-package! tidal
:init
(progn
;; (setq tidal-interpreter "ghci")
;; (setq tidal-interpreter-arguments (list "ghci" "-XOverloadedStrings" "-package" "tidal"))
;; (setq tidal-boot-script-path "~/.emacs.doom/.local/straight/repos/Tidal/BootTidal.hs")
))
(use-package! haskell-snippets
:after (haskell-mode yasnippet))
GitHub - leoliu/easy-kill: Kill & Mark Things Easily in Emacs
(use-package easy-kill
:config
(map! "M-w" #'easy-kill)
)
(use-package consult-dir
:ensure t
:bind (("C-x C-d" . consult-dir)
:map vertico-map
("C-x C-d" . consult-dir)
("C-x C-j" . consult-dir-jump-file)))
(use-package! avy)
(defun avy-action-embark (pt)
(unwind-protect
(save-excursion
(goto-char pt)
(embark-act))
(select-window
(cdr (ring-ref avy-ring 0))))
t)
(setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark)
(setq org-latex-packages-alist '(("" "tikz-cd" t) ("" "tikz" t)))
GitHub - alexluigit/dirvish: Dired can be a nice file manager.
(use-package! dirvish
:config
(dirvish-override-dired-mode)
(map!
:leader
:prefix ("d" . "dirvish")
:nvm "d" #'dirvish)
(map! :map dired-mode-map
:localleader
(:nvm "t" #'dirvish-toggle-fullscreen)))
GitHub - jacktasia/dumb-jump: an Emacs “jump to definition” package for 50+ l…
(use-package! dumb-jump
:init
(progn
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
(setq xref-show-definitions-function #'xref-show-definitions-completing-read)
))