Update .emacs.d/config.org

2024-07-04 14:12:46 +02:00 · 2024-07-04 14:12:46 +02:00 · 20a1e43944
commit 20a1e43944
parent 6829197014
1 changed files with 93 additions and 87 deletions
--- a/private_dot_emacs.d/config.org
+++ b/private_dot_emacs.d/config.org
@ -1,5 +1,8 @@
-* Emacs config
-** Packages initialization
+#+PROPERTY: header-args:emacs-lisp :tangle init.el
+#+TITLE: Emacs config
+#+AUTHOR: Anthony Rodriguez
+
+* Packages initialization
 Here, we're initializing MELPA, as well as package.el and use-package.
 #+begin_src emacs-lisp
  (require 'package)
@ -15,8 +18,7 @@ Here, we're initializing MELPA, as well as package.el and use-package.
  (setq use-package-always-ensure t)
  #+end_src

-*** vc-use-package
-
+** vc-use-package
 vc-use-package integrates package-vc-install, which allows installing packages from git repositories, into use-package. It won't be needed from Emacs 30, as it will integrate natively (hence the condition).
 #+begin_src emacs-lisp
  (if (< emacs-major-version 30)
@ -24,14 +26,22 @@ vc-use-package integrates package-vc-install, which allows installing packages f
 	(package-vc-install "https://github.com/slotThe/vc-use-package"))
    (require 'vc-use-package))
 #+end_src
-** General config
-*** no-littering
+
+** Automatically tangle on save
+
+#+begin_src emacs-lisp
+  (add-hook 'org-mode-hook
+	    (lambda () (add-hook 'after-save-hook #'org-babel-tangle
+				 :append :local)))
+#+end_src
+* General config
+** no-littering
 no-littering is a useful package that allows to put all of the autosave files and temporary files in one directory (the files ending with ~ for instance).
 #+begin_src emacs-lisp
  (use-package no-littering)
 #+end_src

-*** Minimal interface
+** Minimal interface
 We disable a lot of interface elements, to make the editor more minimal looking.
 #+begin_src emacs-lisp
  (setq inhibit-startup-message t)
@ -42,9 +52,9 @@ We disable a lot of interface elements, to make the editor more minimal looking.
  (menu-bar-mode -1)
 #+end_src

-*** Match fish shell's path
+** Match fish shell's path
 #+begin_src emacs-lisp
-    (defun set-exec-path-from-shell-PATH ()
+  (defun set-exec-path-from-shell-PATH ()
    "Set up Emacs' `exec-path' and PATH environment variable to match
  that used by the user's shell.

@ -61,16 +71,16 @@ We disable a lot of interface elements, to make the editor more minimal looking.
  (set-exec-path-from-shell-PATH)
 #+end_src

-*** Bell
+** Bell
 I don't like any visual or sound bell.
 #+begin_src emacs-lisp
  (setq ring-bell-function 'ignore)
 #+end_src

-*** Font
+** Font
 I use two different fonts in Emacs : my sans serif font for anything where variable fonts wouldn't matter, and monospace for fixed width text (such as code, org blocks and org tables). I like to use the generic sans-serif and monospace fonts, as it allows me to define them system-wide, which I highly prefer.

-Besides the font settings, I use the package fixed-pitch, which sets up hooks automatically for all the modes that require fixed width fonts. This allows me to have my sans serif everywhere else but in 
+Besides the font settings, I use the package fixed-pitch, which sets up hooks automatically for all the modes that require fixed width fonts. This allows me to have my sans serif everywhere else but in
 #+begin_src emacs-lisp
  ;; Set base fonts
  (set-face-attribute 'default nil :font "sans-serif" :height 125)
@ -87,7 +97,7 @@ Besides the font settings, I use the package fixed-pitch, which sets up hooks au
    :vc ( :fetcher github :repo cstby/fixed-pitch-mode))
 #+end_src

-**** Ligatures
+** Ligatures
 #+begin_src emacs-lisp
  (use-package ligature
    :config
@ -108,13 +118,13 @@ Besides the font settings, I use the package fixed-pitch, which sets up hooks au
    (global-ligature-mode t))
 #+end_src

-*** Visual mode
+** Visual mode
 We turn on visual mode, so that lines can wrap nicely and do go beyond my Emacs buffer size.
 #+begin_src emacs-lisp
  (global-visual-line-mode t)
 #+end_src

-*** Theme
+** Theme
 I use catppuccin as my theme, as I find it comfortable to work with (the Frappe flavor).
 #+begin_src emacs-lisp
  (use-package catppuccin-theme
@ -124,68 +134,67 @@ I use catppuccin as my theme, as I find it comfortable to work with (the Frappe
    (load-theme 'catppuccin :no-confirm))
 #+end_src

-*** Modeline
+** Modeline
 I use doom-modeline as my modeline, as I find it really clean and minimal.
 #+begin_src emacs-lisp
  (use-package doom-modeline
-  :ensure t
-  :init (doom-modeline-mode 1)
-  :config
-  (setq doom-modeline-height 30)
-  (setq nerd-icons-font-family "monospace"))
+    :ensure t
+    :init (doom-modeline-mode 1)
+    :config
+    (setq doom-modeline-height 30))
 #+end_src

-*** Completion
+** Completion
 I use vertico as my completion framework. It's minimal, fast and tells me all I need to know and even sorts by history.
 #+begin_src emacs-lisp
-      (use-package vertico
-	:init
-	(vertico-mode)
+  (use-package vertico
+    :init
+    (vertico-mode)

-	;; Different scroll margin
-	;; (setq vertico-scroll-margin 0)
+    ;; Different scroll margin
+    ;; (setq vertico-scroll-margin 0)

-	;; Show more candidates
-	;; (setq vertico-count 20)
+    ;; Show more candidates
+    ;; (setq vertico-count 20)

-	;; Grow and shrink the Vertico minibuffer
-	(setq vertico-resize t)
+    ;; Grow and shrink the Vertico minibuffer
+    (setq vertico-resize t)

-	;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
-	(setq vertico-cycle t))
+    ;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
+    (setq vertico-cycle t))

-      ;; Persist history over Emacs restarts. Vertico sorts by history position.
-      (use-package savehist
-	:init
-	(savehist-mode))
+  ;; Persist history over Emacs restarts. Vertico sorts by history position.
+  (use-package savehist
+    :init
+    (savehist-mode))

-      ;; A few more useful configurations...
-      (use-package emacs
-	:init
-	;; Add prompt indicator to `completing-read-multiple'.
-	;; We display [CRM<separator>], e.g., [CRM,] if the separator is a comma.
-	(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)
+  ;; A few more useful configurations...
+  (use-package emacs
+    :init
+    ;; Add prompt indicator to `completing-read-multiple'.
+    ;; We display [CRM<separator>], e.g., [CRM,] if the separator is a comma.
+    (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)

-	;; Do not allow the cursor in the minibuffer prompt
-	(setq minibuffer-prompt-properties
-	      '(read-only t cursor-intangible t face minibuffer-prompt))
-	(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
+    ;; Do not allow the cursor in the minibuffer prompt
+    (setq minibuffer-prompt-properties
+	  '(read-only t cursor-intangible t face minibuffer-prompt))
+    (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)

-	;; Support opening new minibuffers from inside existing minibuffers.
-	(setq enable-recursive-minibuffers t)
+    ;; Support opening new minibuffers from inside existing minibuffers.
+    (setq enable-recursive-minibuffers t)
+
+    ;; Emacs 28 and newer: Hide commands in M-x which do not work in the current
+    ;; mode.  Vertico commands are hidden in normal buffers. This setting is
+    ;; useful beyond Vertico.
+    (setq read-extended-command-predicate #'command-completion-default-include-p))

-	;; Emacs 28 and newer: Hide commands in M-x which do not work in the current
-	;; mode.  Vertico commands are hidden in normal buffers. This setting is
-	;; useful beyond Vertico.
-	(setq read-extended-command-predicate #'command-completion-default-include-p))
-  
  (use-package orderless
    :ensure t
    :custom
@ -193,7 +202,7 @@ I use vertico as my completion framework. It's minimal, fast and tells me all I
    (completion-category-overrides '((file (styles basic partial-completion)))))
 #+end_src

-*** which-key
+** which-key
 which-key is a nice little package that allows to have a minibuffer showing which keybinds are available under prefixes.
 #+begin_src emacs-lisp
  (use-package which-key
@ -201,22 +210,24 @@ which-key is a nice little package that allows to have a minibuffer showing whic
    (which-key-mode))
 #+end_src

-*** Discord presence
+** Discord presence
 #+begin_src emacs-lisp
  (use-package elcord
    :config
    (elcord-mode))
 #+end_src
-** Org mode
-*** Pretty bullets and headlines
+
+* Org mode
+** Pretty bullets and headlines
 I use org-superstar-mode, as it makes headlines and bullets look really nice.
 #+begin_src emacs-lisp
  (use-package org-superstar
    :hook (org-mode . org-superstar-mode))
 #+end_src

-** Programming
-*** Eglot
+* Programming
+** Eglot
+Eglot is a built in LSP client for Emacs. I prefer it to LSP as it's more lightweight and more straightforward to setup correctly.
 #+begin_src emacs-lisp
  (use-package eglot
    :bind (:map eglot-mode-map
@ -235,7 +246,7 @@ I use org-superstar-mode, as it makes headlines and bullets look really nice.
    (eglot-booster-mode))
 #+end_src

-*** Autocompletion
+** Autocompletion
 #+begin_src emacs-lisp
  (use-package corfu
    :custom
@ -246,7 +257,7 @@ I use org-superstar-mode, as it makes headlines and bullets look really nice.
    (corfu-popupinfo-mode))
 #+end_src

-*** Snippets
+** Snippets
 #+begin_src emacs-lisp
  (use-package yasnippet
    :ensure t
@ -256,15 +267,21 @@ I use org-superstar-mode, as it makes headlines and bullets look really nice.
 		("C-c C-e" . yas-expand)))
 #+end_src

-*** Magit
+** Magit
 Magit is a git client in Emacs.
 #+begin_src emacs-lisp
  (use-package magit)
 #+end_src

-*** Languages
-**** tree-sitter
-Tree-sitter is a built-in Emacs package that allows us to have extremely well integrated language. Here, we're setting up the list of sources, most of them being on tree-sitter's official GitHub, as well as hooking up the languages to their different modes.
+** Docker
+#+begin_src emacs-lisp
+  (use-package docker
+    :ensure t
+    :bind ("C-c d" . docker))
+#+end_src
+** Languages
+*** tree-sitter
+Tree-sitter is a built-in Emacs package that allows us to have extremely well integrated language grammar. Here, we're setting up the list of sources, most of them being on tree-sitter's official GitHub, as well as hooking up the languages to their different modes.
 #+begin_src emacs-lisp
  (setq treesit-language-source-alist
 	'((bash "https://github.com/tree-sitter/tree-sitter-bash")
@ -287,11 +304,7 @@ Tree-sitter is a built-in Emacs package that allows us to have extremely well in
  (add-to-list 'auto-mode-alist '("\\.tsx\\'" . tsx-ts-mode))
  #+end_src

-#+begin_src sh
-  npm install -g typescript-language-server
-#+end_src
-
-**** Alapheia
+*** Alapheia
 #+begin_src emacs-lisp
  (use-package apheleia
    :ensure t
@ -304,21 +317,14 @@ Tree-sitter is a built-in Emacs package that allows us to have extremely well in
  (use-package dtrt-indent)
 #+end_src

-**** expand-region
+** expand-region
 #+begin_src emacs-lisp
  (use-package expand-region
    :bind ("C-=" . er/expand-region))
 #+end_src

-** Mail
-
+* Mail
 #+begin_src emacs-lisp
  (autoload 'notmuch "notmuch" "notmuch mail" t)
  (use-package notmuch)
 #+end_src
-
-*** SMTP
-
-#+begin_src emacs-lisp
-  (setq send-mail-function 'sendmail-query-once)
-#+end_src