feat: emacs - format elisp via 'M-x pp-buffer'

This commit is contained in:
Ryan Yin
2024-01-04 17:00:44 +08:00
parent 8af056a3ea
commit 0667011531
3 changed files with 101 additions and 82 deletions

View File

@@ -35,18 +35,13 @@
;; other doom's official themes: ;; other doom's official themes:
;; https://github.com/doomemacs/themes ;; https://github.com/doomemacs/themes
(setq doom-theme 'doom-one) (setq doom-theme 'doom-one)
;; This determines the style of line numbers in effect. If set to `nil', line ;; 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'. ;; numbers are disabled. For relative line numbers, set this to `relative'.
(setq display-line-numbers-type t) (setq display-line-numbers-type t)
(setq warning-minimum-level :error) (setq warning-minimum-level :error)
;; If you use `org' and don't want your org files in the default location below, ;; 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! ;; change `org-directory'. It must be set before org loads!
(setq org-directory "~/org/") (setq org-directory "~/org/")
;; Whenever you reconfigure a package, make sure to wrap your config in an ;; Whenever you reconfigure a package, make sure to wrap your config in an
;; `after!' block, otherwise Doom's defaults may override your settings. E.g. ;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
;; ;;
@@ -81,42 +76,40 @@
;; accept completion from copilot and fallback to company ;; accept completion from copilot and fallback to company
(use-package! copilot (use-package! copilot
:hook (prog-mode . copilot-mode) :hook
:bind (:map copilot-completion-map (prog-mode . copilot-mode)
("<tab>" . 'copilot-accept-completion) :bind
("TAB" . 'copilot-accept-completion) (:map copilot-completion-map
("C-TAB" . 'copilot-accept-completion-by-word) ("<tab>" . 'copilot-accept-completion)
("C-<tab>" . 'copilot-accept-completion-by-word)) ("TAB" . 'copilot-accept-completion)
("C-TAB" . 'copilot-accept-completion-by-word)
("C-<tab>" . 'copilot-accept-completion-by-word))
:config :config
(copilot-mode +1)) (copilot-mode +1))
(use-package super-save (use-package super-save
:ensure t :ensure t
:config :config
(super-save-mode +1)) (super-save-mode +1))
(after! super-save (after! super-save
(setq super-save-auto-save-when-idle t) (setq super-save-auto-save-when-idle t)
(setq super-save-all-buffers t) (setq super-save-all-buffers t)
(setq super-save-delete-trailing-whitespace t)) (setq super-save-delete-trailing-whitespace t))
(use-package wakatime-mode (use-package wakatime-mode
:ensure t) :ensure t)
;; fully enable tree-sitter highlighting ;; fully enable tree-sitter highlighting
(after! tree-sitter (after! tree-sitter
(setq +tree-sitter-hl-enabled-modes t)) (setq +tree-sitter-hl-enabled-modes t))
;; fix: https://github.com/jrblevin/markdown-mode/issues/380 ;; fix: https://github.com/jrblevin/markdown-mode/issues/380
;; even add this one, editing a large markdown table is still very slow. ;; even add this one, editing a large markdown table is still very slow.
;; so avoid editing large markdown file in emacs, use neovim instead... ;; so avoid editing large markdown file in emacs, use neovim instead...
(after! markdown-mode (after! markdown-mode
(global-font-lock-mode 0)) (global-font-lock-mode 0))
;; use alejandra to format nix files ;; use alejandra to format nix files
(use-package lsp-nix (use-package lsp-nix
:ensure lsp-mode :ensure lsp-mode
:after (lsp-mode) :after
(lsp-mode)
:demand t :demand t
:custom :custom
(lsp-nix-nil-formatter ["alejandra"])) (lsp-nix-nil-formatter
["alejandra"]))

View File

@@ -13,52 +13,57 @@
;; ;;
;; Alternatively, press 'gd' (or 'C-c c d') on a module to browse its ;; Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
;; directory (for easy access to its source code). ;; directory (for easy access to its source code).
(doom! :input (doom! :input
;;bidi ; (tfel ot) thgir etirw uoy gnipleh ;;bidi ; (tfel ot) thgir etirw uoy gnipleh
chinese ; TODO: use (chinese +rime) chinese ; TODO: use (chinese +rime)
;;japanese ;;japanese
;;layout ; auie,ctsrnm is the superior home row ;;layout ; auie,ctsrnm is the superior home row
:completion :completion
(company +childframe) ; the ultimate code completion backend (company +childframe)
; the ultimate code completion backend
;;helm ; the *other* search engine for love and life ;;helm ; the *other* search engine for love and life
;;ido ; the other *other* search engine... ;;ido ; the other *other* search engine...
;;ivy ; a search engine for love and life ;;ivy ; a search engine for love and life
vertico ; the search engine of the future vertico ; the search engine of the future
:ui :ui
;;deft ; notational velocity for Emacs ;;deft ; notational velocity for Emacs
doom ; what makes DOOM look the way it does doom ; what makes DOOM look the way it does
doom-dashboard ; a nifty splash screen for Emacs doom-dashboard ; a nifty splash screen for Emacs
;;doom-quit ; DOOM quit-message prompts when you quit Emacs ;;doom-quit ; DOOM quit-message prompts when you quit Emacs
(emoji +unicode) ; 🙂 (emoji +unicode)
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW ; 🙂
indent-guides ; highlighted indent columns hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
ligatures ; ligatures and symbols to make your code pretty again indent-guides ; highlighted indent columns
modeline ; snazzy, Atom-inspired modeline, plus API ligatures ; ligatures and symbols to make your code pretty again
ophints ; highlight the region an operation acts on modeline ; snazzy, Atom-inspired modeline, plus API
(popup +defaults) ; tame sudden yet inevitable temporary windows ophints ; highlight the region an operation acts on
tabs ; a tab bar for Emacs (popup +defaults)
treemacs ; a project drawer, like neotree but cooler ; tame sudden yet inevitable temporary windows
unicode ; extended unicode support for various languages tabs ; a tab bar for Emacs
(vc-gutter +pretty) ; vcs diff in the fringe treemacs ; a project drawer, like neotree but cooler
vi-tilde-fringe ; fringe tildes to mark beyond EOB unicode ; extended unicode support for various languages
(vc-gutter +pretty)
; vcs diff in the fringe
vi-tilde-fringe ; fringe tildes to mark beyond EOB
;;window-select ; visually switch windows ;;window-select ; visually switch windows
workspaces ; tab emulation, persistence & separate workspaces workspaces ; tab emulation, persistence & separate workspaces
;;zen ; distraction-free coding or writing ;;zen ; distraction-free coding or writing
:editor :editor
(evil +everywhere); come to the dark side, we have cookies (evil +everywhere)
file-templates ; auto-snippets for empty files ; come to the dark side, we have cookies
fold ; (nigh) universal code folding file-templates ; auto-snippets for empty files
(format +onsave) ; automated prettiness fold ; (nigh) universal code folding
(format +onsave)
; automated prettiness
;;lispy ; vim for lisp, for people who don't like vim ;;lispy ; vim for lisp, for people who don't like vim
;;multiple-cursors ; editing in many places at once ;;multiple-cursors ; editing in many places at once
;;objed ; text object editing for the innocent ;;objed ; text object editing for the innocent
;;parinfer ; turn lisp into python, sort of ;;parinfer ; turn lisp into python, sort of
;;rotate-text ; cycle region at point between text candidates ;;rotate-text ; cycle region at point between text candidates
snippets ; my elves. They type so I don't have to snippets ; my elves. They type so I don't have to
;;word-wrap ; soft wrapping with language-aware indent ;;word-wrap ; soft wrapping with language-aware indent
:emacs :emacs
@@ -72,12 +77,13 @@
;;eshell ; the elisp shell that works everywhere ;;eshell ; the elisp shell that works everywhere
;;shell ; simple shell REPL for Emacs ;;shell ; simple shell REPL for Emacs
;;term ; basic terminal emulator for Emacs ;;term ; basic terminal emulator for Emacs
vterm ; the best terminal emulation in Emacs vterm ; the best terminal emulation in Emacs
:checkers :checkers
syntax ; tasing you for every semicolon you forget syntax ; tasing you for every semicolon you forget
(spell +flyspell) ; tasing you for misspelling mispelling (spell +flyspell)
grammar ; tasing grammar mistake every you make ; tasing you for misspelling mispelling
grammar ; tasing grammar mistake every you make
:tools :tools
;;ansible ;;ansible
@@ -88,38 +94,42 @@
(docker +lsp) (docker +lsp)
editorconfig ; let someone else argue about tabs vs spaces editorconfig ; let someone else argue about tabs vs spaces
;;ein ; tame Jupyter notebooks with emacs ;;ein ; tame Jupyter notebooks with emacs
(eval +overlay) ; run code, run (also, repls) (eval +overlay)
lookup ; navigate your code and its documentation ; run code, run (also, repls)
lsp ; M-x vscode lookup ; navigate your code and its documentation
magit ; a git porcelain for Emacs lsp ; M-x vscode
magit ; a git porcelain for Emacs
;;make ; run make tasks from Emacs ;;make ; run make tasks from Emacs
;;pass ; password manager for nerds ;;pass ; password manager for nerds
pdf ; pdf enhancements pdf ; pdf enhancements
;;prodigy ; FIXME managing external services & code builders ;;prodigy ; FIXME managing external services & code builders
(terraform +lsp) ; infrastructure as code (terraform +lsp)
; infrastructure as code
;;tmux ; an API for interacting with tmux ;;tmux ; an API for interacting with tmux
tree-sitter ; syntax and parsing, sitting in a tree... tree-sitter ; syntax and parsing, sitting in a tree...
;;upload ; map local to remote projects via ssh/ftp ;;upload ; map local to remote projects via ssh/ftp
:os :os
(:if IS-MAC macos) ; improve compatibility with macOS (:if IS-MAC macos)
tty ; improve the terminal Emacs experience ; improve compatibility with macOS
tty ; improve the terminal Emacs experience
:lang :lang
;;agda ; types of types of types of types... ;;agda ; types of types of types of types...
;;beancount ; mind the GAAP ;;beancount ; mind the GAAP
(cc +lsp +tree-sitter) ; C > C++ == 1 (cc +lsp +tree-sitter)
; C > C++ == 1
;;clojure ; java with a lisp ;;clojure ; java with a lisp
;;common-lisp ; if you've seen one lisp, you've seen them all ;;common-lisp ; if you've seen one lisp, you've seen them all
;;coq ; proofs-as-programs ;;coq ; proofs-as-programs
;;crystal ; ruby at the speed of c ;;crystal ; ruby at the speed of c
;;csharp ; unity, .NET, and mono shenanigans ;;csharp ; unity, .NET, and mono shenanigans
data ; config/data formats data ; config/data formats
;;(dart +flutter) ; paint ui and not much else ;;(dart +flutter) ; paint ui and not much else
;;dhall ;;dhall
;;elixir ; erlang done right ;;elixir ; erlang done right
;;elm ; care for a cup of TEA? ;;elm ; care for a cup of TEA?
emacs-lisp ; drown in parentheses emacs-lisp ; drown in parentheses
;;erlang ; an elegant language for a more civilized age ;;erlang ; an elegant language for a more civilized age
;;ess ; emacs speaks statistics ;;ess ; emacs speaks statistics
;;factor ;;factor
@@ -128,45 +138,59 @@
;;fsharp ; ML stands for Microsoft's Language ;;fsharp ; ML stands for Microsoft's Language
;;fstar ; (dependent) types and (monadic) effects and Z3 ;;fstar ; (dependent) types and (monadic) effects and Z3
;;gdscript ; the language you waited for ;;gdscript ; the language you waited for
(go +lsp +tree-sitter) ; the hipster dialect (go +lsp +tree-sitter)
; the hipster dialect
;;(graphql +lsp) ; Give queries a REST ;;(graphql +lsp) ; Give queries a REST
;;(haskell +lsp) ; a language that's lazier than I am ;;(haskell +lsp) ; a language that's lazier than I am
;;hy ; readability of scheme w/ speed of python ;;hy ; readability of scheme w/ speed of python
;;idris ; a language you can depend on ;;idris ; a language you can depend on
(json +lsp +tree-sitter) ; At least it ain't XML (json +lsp +tree-sitter)
(java +lsp +tree-sitter) ; the poster child for carpal tunnel syndrome ; At least it ain't XML
(javascript +lsp +tree-sitter) ; all(hope(abandon(ye(who(enter(here)))))) (java +lsp +tree-sitter)
; the poster child for carpal tunnel syndrome
(javascript +lsp +tree-sitter)
; all(hope(abandon(ye(who(enter(here))))))
;;julia ; a better, faster MATLAB ;;julia ; a better, faster MATLAB
;;kotlin ; a better, slicker Java(Script) ;;kotlin ; a better, slicker Java(Script)
(latex +lsp) ; writing papers in Emacs has never been so fun (latex +lsp)
; writing papers in Emacs has never been so fun
;;lean ; for folks with too much to prove ;;lean ; for folks with too much to prove
;;ledger ; be audit you can be ;;ledger ; be audit you can be
(lua +lsp +tree-sitter) ; one-based indices? one-based indices (lua +lsp +tree-sitter)
(markdown +grip) ; writing docs for people to ignore ; one-based indices? one-based indices
(markdown +grip)
; writing docs for people to ignore
;;nim ; python + lisp at the speed of c ;;nim ; python + lisp at the speed of c
(nix +lsp +tree-sitter) ; I hereby declare "nix geht mehr!" (nix +lsp +tree-sitter)
; I hereby declare "nix geht mehr!"
;;ocaml ; an objective camel ;;ocaml ; an objective camel
org ; organize your plain life in plain text org ; organize your plain life in plain text
;;php ; perl's insecure younger brother ;;php ; perl's insecure younger brother
;;plantuml ; diagrams for confusing people more ;;plantuml ; diagrams for confusing people more
;;purescript ; javascript, but functional ;;purescript ; javascript, but functional
(python +lsp +tree-sitter +pyright) ; beautiful is better than ugly (python +lsp +tree-sitter +pyright)
; beautiful is better than ugly
;;qt ; the 'cutest' gui framework ever ;;qt ; the 'cutest' gui framework ever
racket ; a DSL for DSLs racket ; a DSL for DSLs
;;raku ; the artist formerly known as perl6 ;;raku ; the artist formerly known as perl6
;;rest ; Emacs as a REST client ;;rest ; Emacs as a REST client
;;rst ; ReST in peace ;;rst ; ReST in peace
;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"} ;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
(rust +lsp +tree-sitter) ; Fe2O3.unwrap().unwrap().unwrap().unwrap() (rust +lsp +tree-sitter)
; Fe2O3.unwrap().unwrap().unwrap().unwrap()
;;scala ; java, but good ;;scala ; java, but good
(scheme +guile) ; a fully conniving family of lisps (scheme +guile)
(sh +lsp +tree-sitter) ; she sells {ba,z,fi}sh shells on the C xor ; a fully conniving family of lisps
(sh +lsp +tree-sitter)
; she sells {ba,z,fi}sh shells on the C xor
;;sml ;;sml
;;solidity ; do you need a blockchain? No. ;;solidity ; do you need a blockchain? No.
;;swift ; who asked for emoji variables? ;;swift ; who asked for emoji variables?
;;terra ; Earth and Moon in alignment for performance. ;;terra ; Earth and Moon in alignment for performance.
(web +lsp +tree-sitter) ; support for various web languages, including HTML5, CSS, SASS/SCSS, Pug/Jade/Slim, and more (web +lsp +tree-sitter)
(yaml +lsp +tree-sitter) ; JSON, but readable ; support for various web languages, including HTML5, CSS, SASS/SCSS, Pug/Jade/Slim, and more
(yaml +lsp +tree-sitter)
; JSON, but readable
;;zig ; C, but simpler ;;zig ; C, but simpler
:email :email

View File

@@ -4,16 +4,18 @@
;; To install a package with Doom you must declare them here and run 'doom sync' ;; To install a package with Doom you must declare them here and run 'doom sync'
;; on the command line, then restart Emacs for the changes to take effect -- or ;; on the command line, then restart Emacs for the changes to take effect -- or
;; use 'M-x doom/reload'. ;; use 'M-x doom/reload'.
(package! copilot (package! copilot
:recipe (:host github :repo "copilot-emacs/copilot.el" :files ("*.el" "dist"))) :recipe
(:host github :repo "copilot-emacs/copilot.el" :files
("*.el" "dist")))
(package! super-save (package! super-save
:recipe (:host github :repo "bbatsov/super-save" :files ("*.el" "dist"))) :recipe
(:host github :repo "bbatsov/super-save" :files
("*.el" "dist")))
(package! wakatime-mode (package! wakatime-mode
:recipe (:host github :repo "wakatime/wakatime-mode" :files ("*.el" "dist"))) :recipe
(:host github :repo "wakatime/wakatime-mode" :files
("*.el" "dist")))
;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror: ;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
;; (package! some-package) ;; (package! some-package)