emacs: switch to vanilla config

.config/doom/config.el

···
-;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
-
-(setq doom-font (font-spec :family "BerkeleyMono Nerd Font" :size 14))
-(add-to-list 'default-frame-alist '(height . 58))
-(add-to-list 'default-frame-alist '(width . 140))
-
-(setq doom-theme 'kanagawa)
-(setq kanagawa-theme-comment-italic nil)
-(setq kanagawa-theme-keyword-italic nil)
-
-(setq display-line-numbers-type t)
-
-(setq org-directory "~/org/")
-
-(setq-default indent-tabs-mode nil)
-(setq-default tab-width 4)
-(setq c-basic-offset 4)
-(setq scroll-margin 10)
-
-(fset 'rainbow-delimiters-mode #'ignore)
-
-(+global-word-wrap-mode +1)
-
-(map! :desc "Next buffer" :n "L" #'next-buffer)
-(map! :desc "Next buffer" :n "H" #'previous-buffer)
-
-(setq tab-always-indent t)
-(setq select-enable-clipboard nil)
-
-(setq doom-modeline-modal-modern-icon nil)
-
-(remove-hook 'doom-first-buffer-hook #'smartparens-global-mode)
-

.config/doom/init.el

···
-;;; init.el -*- lexical-binding: t; -*-
-
-;; This file controls what Doom modules are enabled and what order they load
-;; in. Remember to run 'doom sync' after modifying it!
-
-;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
-;;      documentation. There you'll find a link to Doom's Module Index where all
-;;      of our modules are listed, including what flags they support.
-
-;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
-;;      'C-c c k' for non-vim users) to view its documentation. This works on
-;;      flags as well (those symbols that start with a plus).
-;;
-;;      Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
-;;      directory (for easy access to its source code).
-
-(doom! :input
-       ;;bidi              ; (tfel ot) thgir etirw uoy gnipleh
-       ;;chinese
-       ;;japanese
-       ;;layout            ; auie,ctsrnm is the superior home row
-
-       :completion
-       ;;company           ; the ultimate code completion backend
-       (corfu +orderless +icons)  ; complete with cap(f), cape and a flying feather!
-       ;;helm              ; the *other* search engine for love and life
-       ;;ido               ; the other *other* search engine...
-       ;;ivy               ; a search engine for love and life
-       (vertico +icons)    ; the search engine of the future
-
-       :ui
-       ;;deft              ; notational velocity for Emacs
-       doom              ; what makes DOOM look the way it does
-       doom-dashboard    ; a nifty splash screen for Emacs
-       ;; doom-quit         ; DOOM quit-message prompts when you quit Emacs
-       ;;(emoji +unicode)  ; 🙂
-       hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
-       ;;indent-guides     ; highlighted indent columns
-       ;;ligatures         ; ligatures and symbols to make your code pretty again
-       ;;minimap           ; show a map of the code on the side
-       modeline          ; snazzy, Atom-inspired modeline, plus API
-       ;;nav-flash         ; blink cursor line after big motions
-       ;;neotree           ; a project drawer, like NERDTree for vim
-       ophints           ; highlight the region an operation acts on
-       (popup +defaults)   ; tame sudden yet inevitable temporary windows
-       ;;tabs              ; a tab bar for Emacs
-       ;;treemacs          ; a project drawer, like neotree but cooler
-       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
-       workspaces        ; tab emulation, persistence & separate workspaces
-       ;;zen               ; distraction-free coding or writing
-
-       :editor
-       (evil +everywhere); come to the dark side, we have cookies
-       file-templates    ; auto-snippets for empty files
-       ;;fold              ; (nigh) universal code folding
-       (format +onsave)  ; automated prettiness
-       ;;god               ; run Emacs commands without modifier keys
-       ;;lispy             ; vim for lisp, for people who don't like vim
-       ;;multiple-cursors  ; editing in many places at once
-       ;;objed             ; text object editing for the innocent
-       ;;parinfer          ; turn lisp into python, sort of
-       ;;rotate-text       ; cycle region at point between text candidates
-       snippets          ; my elves. They type so I don't have to
-       word-wrap         ; soft wrapping with language-aware indent
-
-       :emacs
-       dired             ; making dired pretty [functional]
-       electric          ; smarter, keyword-based electric-indent
-       ;;ibuffer         ; interactive buffer management
-       undo              ; persistent, smarter undo for your inevitable mistakes
-       vc                ; version-control and Emacs, sitting in a tree
-
-       :term
-       ;;eshell            ; the elisp shell that works everywhere
-       ;;shell             ; simple shell REPL for Emacs
-       ;;term              ; basic terminal emulator for Emacs
-       ;;vterm             ; the best terminal emulation in Emacs
-
-       :checkers
-       syntax              ; tasing you for every semicolon you forget
-       ;;(spell +flyspell) ; tasing you for misspelling mispelling
-       ;;grammar           ; tasing grammar mistake every you make
-
-       :tools
-       ;;ansible
-       ;;biblio            ; Writes a PhD for you (citation needed)
-       ;;collab            ; buffers with friends
-       ;;debugger          ; FIXME stepping through code, to help you add bugs
-       ;;direnv
-       ;;docker
-       ;;editorconfig      ; let someone else argue about tabs vs spaces
-       ;;ein               ; tame Jupyter notebooks with emacs
-       (eval +overlay)     ; run code, run (also, repls)
-       lookup              ; navigate your code and its documentation
-       lsp               ; M-x vscode
-       ;;magit             ; a git porcelain for Emacs
-       ;;make              ; run make tasks from Emacs
-       ;;pass              ; password manager for nerds
-       ;;pdf               ; pdf enhancements
-       ;;prodigy           ; FIXME managing external services & code builders
-       ;;terraform         ; infrastructure as code
-
-       ;;tmux              ; an API for interacting with tmux
-       ;;tree-sitter       ; syntax and parsing, sitting in a tree...
-       ;;upload            ; map local to remote projects via ssh/ftp
-
-       :os
-       (:if (featurep :system 'macos) macos)  ; improve compatibility with macOS
-       tty               ; improve the terminal Emacs experience
-
-       :lang
-       ;;agda              ; types of types of types of types...
-       ;;beancount         ; mind the GAAP
-       (cc +lsp)         ; C > C++ == 1
-       ;;clojure           ; java with a lisp
-       ;;common-lisp       ; if you've seen one lisp, you've seen them all
-       ;;coq               ; proofs-as-programs
-       ;;crystal           ; ruby at the speed of c
-       ;;csharp            ; unity, .NET, and mono shenanigans
-       ;;data              ; config/data formats
-       ;;(dart +flutter)   ; paint ui and not much else
-       ;;dhall
-       ;;elixir            ; erlang done right
-       ;;elm               ; care for a cup of TEA?
-       emacs-lisp        ; drown in parentheses
-       ;;erlang            ; an elegant language for a more civilized age
-       ;;ess               ; emacs speaks statistics
-       ;;factor
-       ;;faust             ; dsp, but you get to keep your soul
-       ;;fortran           ; in FORTRAN, GOD is REAL (unless declared INTEGER)
-       ;;fsharp            ; ML stands for Microsoft's Language
-       ;;fstar             ; (dependent) types and (monadic) effects and Z3
-       ;;gdscript          ; the language you waited for
-       ;;(go +lsp)         ; the hipster dialect
-       ;;(graphql +lsp)    ; Give queries a REST
-       ;;(haskell +lsp)    ; a language that's lazier than I am
-       ;;hy                ; readability of scheme w/ speed of python
-       ;;idris             ; a language you can depend on
-       ;;json              ; At least it ain't XML
-       ;;(java +lsp)       ; the poster child for carpal tunnel syndrome
-       ;;javascript        ; all(hope(abandon(ye(who(enter(here))))))
-       ;;julia             ; a better, faster MATLAB
-       ;;kotlin            ; a better, slicker Java(Script)
-       ;;latex             ; writing papers in Emacs has never been so fun
-       ;;lean              ; for folks with too much to prove
-       ;;ledger            ; be audit you can be
-       ;;lua               ; one-based indices? one-based indices
-       markdown          ; writing docs for people to ignore
-       ;;nim               ; python + lisp at the speed of c
-       ;;nix               ; I hereby declare "nix geht mehr!"
-       ;;ocaml             ; an objective camel
-       org               ; organize your plain life in plain text
-       ;;php               ; perl's insecure younger brother
-       ;;plantuml          ; diagrams for confusing people more
-       ;;purescript        ; javascript, but functional
-       ;;python            ; beautiful is better than ugly
-       ;;qt                ; the 'cutest' gui framework ever
-       ;;racket            ; a DSL for DSLs
-       ;;raku              ; the artist formerly known as perl6
-       ;;rest              ; Emacs as a REST client
-       ;;rst               ; ReST in peace
-       ;;(ruby +rails)     ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
-       (rust +lsp)       ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
-       ;;scala             ; java, but good
-       ;;(scheme +guile)   ; a fully conniving family of lisps
-       sh                ; she sells {ba,z,fi}sh shells on the C xor
-       ;;sml
-       ;;solidity          ; do you need a blockchain? No.
-       ;;swift             ; who asked for emoji variables?
-       ;;terra             ; Earth and Moon in alignment for performance.
-       ;;web               ; the tubes
-       yaml              ; JSON, but readable
-       (zig +lsp)               ; C, but simpler
-
-       :email
-       ;;(mu4e +org +gmail)
-       ;;notmuch
-       ;;(wanderlust +gmail)
-
-       :app
-       ;;calendar
-       ;;emms
-       ;;everywhere        ; *leave* Emacs!? You must be joking
-       ;;irc               ; how neckbeards socialize
-       ;;(rss +org)        ; emacs as an RSS reader
-
-       :config
-       ;;literate
-       (default +bindings +smartparens))
-

.config/doom/packages.el

···
-(package! autothemer)

.config/doom/themes/kanagawa-theme.el .config/emacs/kanagawa-theme.el

···
 
 (provide-theme 'kanagawa)
 ;;; kanagawa-theme.el ends here
+

.config/emacs/init.el

···
+;;;;;;;;;;;
+;; UTILS ;;
+;;;;;;;;;;;
+(defun conf-dir(path) (concat user-emacs-directory path))
+
+;;;;;;;;;;;;;;;;;;;;
+;; REROUTE CUSTOM ;;
+;;;;;;;;;;;;;;;;;;;;
+(setq custom-file (conf-dir "emacs.custom.el"))
+(when (file-exists-p custom-file)
+  (load-file custom-file))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; PACKAGE REPOSITORIES ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;
+(require 'package)
+(add-to-list 'package-archives
+             '("melpa" . "https://melpa.org/packages/") t)
+
+;;;;;;;;;;;;;;;;;;;;
+;; BASIC SETTINGS ;;
+;;;;;;;;;;;;;;;;;;;;
+(tool-bar-mode -1)
+(menu-bar-mode -1)
+(scroll-bar-mode -1)
+(global-display-line-numbers-mode 1)
+(setq inhibit-splash-screen t)
+(setq initial-scratch-message nil)
+(setq ring-bell-function 'ignore)
+(setq backup-directory-alist '(("." . (conf-dir "backup/"))))
+(setq-default indent-tabs-mode nil)
+(setq-default tab-width 4)
+(setq c-basic-offset 4)
+(setq scroll-margin 10)
+(setq select-enable-clipboard nil)
+
+;;;;;;;;;;;;;;;;
+;; APPEARANCE ;;
+;;;;;;;;;;;;;;;;
+(set-frame-font "TX-02 13" nil t)
+(use-package autothemer
+  :ensure t)
+(use-package cl-lib
+  :ensure t)
+(load-file (conf-dir "kanagawa-theme.el"))
+(load-theme 'kanagawa)
+
+
+;;;;;;;;;;;;;;;;;
+;; EVIL CONFIG ;;
+;;;;;;;;;;;;;;;;;
+(use-package evil
+  :ensure t
+  :init
+  (setq evil-want-C-u-scroll t)
+  (setq evil-undo-system 'undo-redo)
+  (setq evil-want-integration t)
+  (setq evil-want-keybinding nil)
+  (defun kill-current-buffer() (interactive) (kill-buffer (current-buffer)))
+  (defun kill-other-buffers()
+    (interactive)
+    (dolist (elt (buffer-list))
+      (when (not (eql elt (current-buffer)))
+        (message "Closing " (buffer-name elt))
+        (kill-buffer elt))))
+  :config
+  (evil-mode 1)
+  (evil-define-operator yank-to-plus-register (beg end &optional type register yank-handler)
+    "Yank characters to the + register"
+    :move-point nil
+    :repeat nil
+    (interactive "<R><x><y>")
+    (evil-yank beg end type ?+ yank-handler))
+  (evil-set-leader '(normal visual replace operator) (kbd "SPC"))
+  (evil-define-key 'normal 'global
+    (kbd "<leader>.") 'find-file
+    (kbd "<leader>bb") 'switch-to-buffer
+    (kbd "<leader>bs") 'consult-buffer
+    (kbd "<leader>bB") 'project-switch-to-buffer
+    (kbd "<leader>bd") 'kill-current-buffer
+    (kbd "<leader>bD") 'kill-buffer
+    (kbd "<leader>bo") 'kill-other-buffers
+    (kbd "<leader>SPC") 'project-find-file
+    (kbd "<leader>he") 'eval-buffer
+    (kbd "<leader>hf") 'describe-function
+    (kbd "<leader>hv") 'describe-variable
+    (kbd "<leader>cc") 'compile
+    (kbd "<leader>cf") 'format-all-buffer
+    (kbd "<leader>cF") 'format-all-region
+    (kbd "<leader>sg") 'consult-ripgrep
+    (kbd "<leader>sf") 'consult-fd
+    (kbd "<leader>sb") 'consult-line
+    (kbd "<leader>sB") 'consult-line-multi
+    (kbd "<leader>p") "\"+p"
+    (kbd "<leader>P") "\"+P"
+    (kbd "<leader>y") 'yank-to-plus-register
+    (kbd "<leader>Y") "\"+yy"
+    (kbd "<leader>gs") 'git-gutter:popup-hunk
+    (kbd "<leader>gr") 'git-gutter:revert-hunk
+    (kbd "<leader>gu") 'git-gutter
+    (kbd "<leader>mu") 'toggle-frame-maximized
+    (kbd "[c") 'git-gutter:previous-hunk
+    (kbd "]c") 'git-gutter:next-hunk
+    (kbd "L") 'evil-next-buffer
+    (kbd "H") 'evil-prev-buffer
+    (kbd "gC") 'comment-box
+    (kbd "C-h") 'evil-window-left
+    (kbd "C-j") 'evil-window-down
+    (kbd "C-k") 'evil-window-up
+    (kbd "C-l") 'evil-window-right))
+(use-package evil-collection
+  :after evil
+  :ensure t
+  :config
+  (evil-collection-init))
+(use-package evil-surround
+  :after evil
+  :ensure t
+  :config
+  (global-evil-surround-mode 1))
+(use-package evil-commentary
+  :after evil
+  :ensure t
+  :config
+  (evil-commentary-mode))
+(use-package evil-goggles
+  :ensure t
+  :init
+  (setq evil-goggles-duration 0.05)
+  :config
+  (evil-goggles-mode))
+
+;;;;;;;;;;;;;;;;;;;;;;;
+;; COMPLETION CONFIG ;;
+;;;;;;;;;;;;;;;;;;;;;;;
+(use-package vertico
+  :ensure t
+  :custom
+  (vertico-cycle t)
+  :config
+  (vertico-mode))
+
+(use-package corfu
+  :ensure t
+  :init
+  (define-key corfu-map (kbd "C-n") 'corfu-next)
+  (define-key corfu-map (kbd "C-p") 'corfu-previous)
+  (define-key corfu-map (kbd "C-l") 'corfu-insert)
+  (define-key corfu-map (kbd "C-e") 'corfu-reset)
+  (setq corfu-auto t)
+  (global-corfu-mode))
+(use-package cape
+  :ensure t
+  :bind ("C-c p" . cape-prefix-map)
+  :init
+  (add-hook 'completion-at-point-functions #'cape-dabbrev)
+  (add-hook 'completion-at-point-functions #'cape-file)
+  (add-hook 'completion-at-point-functions #'cape-keyword))
+
+;;;;;;;;;;;;;;;;;;;;
+;; LANGUAGE MODES ;;
+;;;;;;;;;;;;;;;;;;;;
+(use-package cmake-mode :ensure t)
+(use-package toml-mode :ensure t)
+(use-package zig-mode :ensure t)
+(use-package rust-mode :ensure t)
+(mapc 'load (file-expand-wildcards (conf-dir "local-modes/*.el")))
+
+
+;;;;;;;;;;;;;;;;;;;;
+;; OTHER PACKAGES ;;
+;;;;;;;;;;;;;;;;;;;;
+(use-package which-key
+  :ensure t
+  :config
+  (which-key-mode))
+
+(use-package consult
+  :ensure t
+  :hook (completion-list-mode . consult-preview-at-point-mode)
+  )
+
+(use-package hl-todo
+  :ensure 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))))
+
+(use-package git-gutter
+  :ensure t
+  :config
+  (global-git-gutter-mode +1))
+
+(use-package language-id
+  :ensure t
+  :vc (:url "https://github.com/lassik/emacs-language-id"))
+(use-package format-all
+  :ensure t
+  :after language-id
+  :commands format-all-mode
+  :hook (prog-mode . format-all-mode)
+  :config)
+
+
+(use-package emacs
+  :custom
+  (enable-recursive-minibuffers t)
+  (tab-always-indent 'complete)
+  (read-extended-command-predicate #'command-completion-default-include-p))
+