config.org

@@ -3,61 +3,115 @@
 #+CREATOR: Laurens Miers
 #+LANGUAGE: en
 
-* General config
+* Elpaca
+
+** Core
 
 #+BEGIN_SRC emacs-lisp
-  (use-package emacs
+(defvar elpaca-installer-version 0.11)
-    :ensure nil
+(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
-    :custom
+(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
-    (inhibit-startup-message t)
+(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
-    :init
+(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
-    (with-current-buffer (get-buffer-create "*scratch*")
+                              :ref nil :depth 1 :inherit ignore
-      (insert (format ";;
+                              :files (:defaults "elpaca-test.el" (:exclude "extensions"))
-  ;; ██╗  ██╗███████╗██╗     ██╗      ██████╗
+                              :build (:not elpaca--activate-package)))
-  ;; ██║  ██║██╔════╝██║     ██║     ██╔═══██╗
+(let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
-  ;; ███████║█████╗  ██║     ██║     ██║   ██║
+       (build (expand-file-name "elpaca/" elpaca-builds-directory))
-  ;; ██╔══██║██╔══╝  ██║     ██║     ██║   ██║
+       (order (cdr elpaca-order))
-  ;; ██║  ██║███████╗███████╗███████╗╚██████╔╝
+       (default-directory repo))
-  ;; ╚═╝  ╚═╝╚══════╝╚══════╝╚══════╝ ╚═════╝
+  (add-to-list 'load-path (if (file-exists-p build) build repo))
-  ;;
+  (unless (file-exists-p repo)
-  ;; ███████╗███╗   ███╗ █████╗  ██████╗███████╗
+    (make-directory repo t)
-  ;; ██╔════╝████╗ ████║██╔══██╗██╔════╝██╔════╝
+    (when (<= emacs-major-version 28) (require 'subr-x))
-  ;; █████╗  ██╔████╔██║███████║██║     ███████╗
+    (condition-case-unless-debug err
-  ;; ██╔══╝  ██║╚██╔╝██║██╔══██║██║     ╚════██║
+        (if-let* ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
-  ;; ███████╗██║ ╚═╝ ██║██║  ██║╚██████╗███████║
+                  ((zerop (apply #'call-process `("git" nil ,buffer t "clone"
-  ;; ╚══════╝╚═╝     ╚═╝╚═╝  ╚═╝ ╚═════╝╚══════╝
+                                                  ,@(when-let* ((depth (plist-get order :depth)))
-  ;;
+                                                      (list (format "--depth=%d" depth) "--no-single-branch"))
-  ;;   Loading time : %s
+                                                  ,(plist-get order :repo) ,repo))))
-  ;;   Packages     : %s
+                  ((zerop (call-process "git" nil buffer t "checkout"
-  ;;
+                                        (or (plist-get order :ref) "--"))))
-  "
+                  (emacs (concat invocation-directory invocation-name))
-		      (emacs-init-time)
+                  ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
-		      (number-to-string (length package-activated-list)))))
+                                        "--eval" "(byte-recompile-directory \".\" 0 'force)")))
+                  ((require 'elpaca))
+                  ((elpaca-generate-autoloads "elpaca" repo)))
+            (progn (message "%s" (buffer-string)) (kill-buffer buffer))
+          (error "%s" (with-current-buffer buffer (buffer-string))))
+      ((error) (warn "%s" err) (delete-directory repo 'recursive))))
+  (unless (require 'elpaca-autoloads nil t)
+    (require 'elpaca)
+    (elpaca-generate-autoloads "elpaca" repo)
+    (let ((load-source-file-function nil)) (load "./elpaca-autoloads"))))
+(add-hook 'after-init-hook #'elpaca-process-queues)
+(elpaca `(,@elpaca-order))
+#+END_SRC
 
-    (message (emacs-init-time))
+** Use-package integration
+
+#+begin_src emacs-lisp
+;; Install use-package support
+(elpaca elpaca-use-package
+  ;; Enable use-package :ensure support for Elpaca.
+  (elpaca-use-package-mode)
   )
+
+;; wait to get elpaca use-package integration
+(elpaca-wait)
+#+end_src
+
+* Built-in packages
+** Eldoc
+
+I got the following error message when loading eglot:
+#+BEGIN_SRC
+eglot                          failed               eldoc installed version (1 13 0) lower than min required 1.14.0                  00.239351
 #+END_SRC
 
-** Package repos
+So install the eldoc package to be sure we have the latest version.
+But after installing it, we get a new warning:
+
+#+BEGIN_SRC
+⛔ Warning (emacs): eldoc loaded before Elpaca activation
+#+END_SRC
+
+This seemed tricker than expected, but found a solution in the github issues of elpaca:
+https://github.com/progfolio/elpaca/issues/236
 
 #+BEGIN_SRC emacs-lisp
-(require 'package)
+(use-package eldoc
-(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
+  :preface
-;; Comment/uncomment this line to enable MELPA Stable if desired.  See `package-archive-priorities`
+  ;; avoid loading of built-in eldoc, see https://github.com/progfolio/elpaca/issues/236#issuecomment-1879838229
-;; and `package-pinned-packages`. Most users will not need or want to do this.
+  (unload-feature 'eldoc t)
-;;(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t)
+  (setq custom-delayed-init-variables '())
-(package-initialize)
+  (defvar global-eldoc-mode nil)
+  :demand t
+  :config
+  (global-eldoc-mode))
+
 #+END_SRC
 
-** Use-package
+** Jsonrpc
-
+After eldoc was taken care of, a new error was reported:
-*** Always ensure
+#+BEGIN_SRC
+eglot                          failed               jsonrpc installed version (1 0 16) lower than min required 1.0.24                00.280828
+#+END_SRC
 
+So let's install the latest one:
 #+BEGIN_SRC emacs-lisp
-(require 'use-package-ensure)
+(use-package jsonrpc)
-(setq use-package-always-ensure t)
 #+END_SRC
 
+** Wait for loading updated packages
+
+Wait until updated built-in packages are fully loaded:
+#+BEGIN_SRC emacs-lisp
+(elpaca-wait)
+#+END_SRC
+
+* General config
+
 ** Bell
 
 The audible bell is annoying AF.
@@ -72,15 +126,10 @@ The audible bell is annoying AF.
 (setq column-number-mode 1)
 #+END_SRC
 
-** Whitespace cleanup
+** Delete trailing whitespaces
 
 #+BEGIN_SRC emacs-lisp
-(use-package whitespace
+(add-hook 'before-save-hook 'delete-trailing-whitespace)
-  :ensure nil
-  :hook (before-save-hook . whitespace-cleanup)
-  ;; if we wanna remove this hook at any time, eval:
-  ;; (remove-hook 'before-save-hook #'whitespace-cleanup)
-  )
 #+END_SRC
 
 ** Save history and recent files
@@ -157,60 +206,16 @@ Use list-buffers bigger brother.
 (global-set-key (kbd "M-SPC") 'mark-word)
 #+end_src
 
-** Eldoc
-
-#+BEGIN_SRC emacs-lisp
-(use-package eldoc
-  :ensure nil
-  :init
-  (global-eldoc-mode))
-#+END_SRC
-
 ** Isearch
 
-Inspired by [[https://github.com/LionyxML/emacs-solo][emacs-solo]]:
+Display number of matches:
-
+#+begin_src emacs-lisp
-#+BEGIN_SRC emacs-lisp
+(setq-default isearch-lazy-count t)
-(use-package isearch
+#+end_src
-  :ensure nil
-  :config
-  (setq isearch-lazy-count t)                ; Display number of matches
-  (setq lazy-count-prefix-format "(%s/%s) ") ; eye-candy to add braces
-  (defun isearch-copy-selected-word ()
-    "Copy the current `isearch` selection to the kill ring."
-    (interactive)
-    (when isearch-other-end
-      (let ((selection (buffer-substring-no-properties isearch-other-end (point))))
-	(kill-new selection)
-	(isearch-exit))))
-
-  ;; Bind `M-w` in isearch to copy the selected word, so M-s M-. M-w
-  ;; does a great job of 'copying the current word under cursor'.
-  (define-key isearch-mode-map (kbd "M-w") 'isearch-copy-selected-word))
-#+END_SRC
 
 Reference that might be interesting for later:
 https://endlessparentheses.com/leave-the-cursor-at-start-of-match-after-isearch.html
 
-** Flymake
-
-#+BEGIN_SRC emacs-lisp
-(use-package flymake
-  :ensure nil
-  :defer t
-  :hook
-  (prog-mode-hook . flymake-mode)
-  :custom
-  (flymake-show-diagnostics-at-end-of-line 'short)
-  (flymake-indicator-type 'margins)
-  (flymake-margin-indicators-string
-   `((error "!" compilation-error)
-     (warning "?" compilation-warning)
-     (note "i" compilation-info))
-   )
-  )
-#+END_SRC
-
 ** Abbrev
 
 #+begin_src emacs-lisp
@@ -247,6 +252,15 @@ Narrow-region/page is a really handy feature, enable it:
 (put 'narrow-to-region 'disabled nil)
 #+END_SRC
 
+** Use-package
+
+*** Always ensure
+
+#+BEGIN_SRC emacs-lisp
+(require 'use-package-ensure)
+(setq use-package-always-ensure t)
+#+END_SRC
+
 ** Adaptive cursor width
 
 Make cursor the width of the character it is under f.e. full width of a tab.
@@ -307,7 +321,7 @@ C-c C-c to apply."
   (if (<= (length (window-list)) 1)
       (progn (setq resize-frame nil)
              (message "Only root frame exists, abort."))
-      (message "Use arrow-keys or C-p/n/f/b to adjust frames.")))
+      (message "Use arrow-keys or i/j/k/l to adjust frames.")))
 
 (defun resize-frame-done ()
   (interactive)
@@ -321,14 +335,15 @@ C-c C-c to apply."
 ** Minibuffer
 
 #+BEGIN_SRC emacs-lisp
+;; Enable vertico
 (use-package vertico
-  :custom
+  ;; :custom
   ;; (vertico-scroll-margin 0) ;; Different scroll margin
   ;; (vertico-count 20) ;; Show more candidates
   ;; (vertico-resize t) ;; Grow and shrink the Vertico minibuffer
-  (vertico-cycle t) ;; Enable cycling for `vertico-next/previous'
+  ;; (vertico-cycle t) ;; Enable cycling for `vertico-next/previous'
-  :hook (after-init . vertico-mode)
+  :init
-  )
+  (vertico-mode))
 #+END_SRC
 
 ** Consult
@@ -456,7 +471,7 @@ C-c C-c to apply."
 
 *** Corfu
 
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC
 (use-package corfu
   ;; Optional customizations
   :bind (:map corfu-map ("<tab>" . corfu-complete))
@@ -485,9 +500,22 @@ C-c C-c to apply."
   (global-corfu-mode))
 #+end_src
 
-** Orderless
+*** Company-mode
 
 #+BEGIN_SRC emacs-lisp
+(use-package company
+  :config
+  (define-key prog-mode-map
+              (kbd "TAB")
+              #'company-indent-or-complete-common)
+  :init
+  (global-company-mode)
+  )
+#+END_SRC
+
+** Orderless
+
+#+begin_src emacs-lisp
 (use-package orderless
   :demand t
   :custom
@@ -507,11 +535,11 @@ C-c C-c to apply."
 ;;                                   )
 ;;                                 )
 )
-#+END_SRC
+#+end_src
 
 ** Marginalia
 
-#+BEGIN_SRC emacs-lisp
+#+begin_src emacs-lisp
 ;; Enable rich annotations using the Marginalia package
 (use-package marginalia
   ;; Bind `marginalia-cycle' locally in the minibuffer.  To make the binding
@@ -526,7 +554,7 @@ C-c C-c to apply."
   ;; the mode gets enabled right away. Note that this forces loading the
   ;; package.
   (marginalia-mode))
-#+END_SRC
+#+end_src
 
 * Dired
 
@@ -564,6 +592,7 @@ Operate on the current line if no region is active.
 
 #+begin_src emacs-lisp
 (use-package whole-line-or-region
+
     :config
         (whole-line-or-region-global-mode 1)
 )
@@ -616,7 +645,8 @@ For the keybindings, we have to defien them in both raw and line mode. From the
 
 #+BEGIN_SRC emacs-lisp
 (use-package monokai-theme
-  :config
+
+  :init
     (load-theme 'monokai t)
 )
 #+END_SRC
@@ -626,25 +656,29 @@ For the keybindings, we have to defien them in both raw and line mode. From the
 #+begin_src emacs-lisp
 (use-package dashboard
   :config
+  (add-hook 'elpaca-after-init-hook #'dashboard-insert-startupify-lists)
+  (add-hook 'elpaca-after-init-hook #'dashboard-initialize)
   (dashboard-setup-startup-hook))
 #+end_src
 
 * Hydra
 
-https://github.com/abo-abo/hydra
+Install and wait for hydra to be available since we are using it in this init.el :
-
+#+begin_src emacs-lisp
-#+BEGIN_SRC emacs-lisp
 (use-package hydra
-  :config
+  :ensure (:wait t)
-  ;; Zoom hydra
+  )
-  (defhydra hydra-zoom (global-map "<f1>")
+#+end_src
+
+** Text zoom
+
+#+begin_src emacs-lisp
+(defhydra hydra-zoom (global-map "<f1>")
   "zoom"
   ("g" text-scale-increase "in")
   ("l" text-scale-decrease "out")
-    )
+)
-
+#+end_src
-  )
-#+END_SRC
 
 * Zygospore
 
@@ -696,34 +730,15 @@ https://github.com/victorhge/iedit
 #+END_SRC
 
 ** Electric pair
-
 #+BEGIN_SRC emacs-lisp
-(use-package elec-pair
+(add-hook 'prog-mode-hook 'electric-pair-mode)
-  :ensure nil
-  :defer t
-  :hook (prog-mode-hook . electric-pair-mode))
-#+END_SRC
-
-** Paren
-
-#+BEGIN_SRC emacs-lisp
-(use-package paren
-  :ensure nil
-  :hook (after-init-hook . show-paren-mode)
-  :custom
-  (show-paren-delay 0)
-  (show-paren-style 'mixed)
-  (show-paren-context-when-offscreen t)) ;; show matches within window splits
 #+END_SRC
 
 ** Eglot
 
 #+BEGIN_SRC emacs-lisp
-(use-package eglot
+  (use-package eglot)
-  :ensure nil
+
-  :custom
-  (eglot-autoshutdown t)
-  :init
   (setq eglot-stay-out-of '(xref))
   (add-hook 'prog-mode-hook 'eglot-ensure)
   (add-hook 'eglot-managed-mode-hook (lambda ()
@@ -731,17 +746,12 @@ https://github.com/victorhge/iedit
 					   (add-hook 'xref-backend-functions 'eglot-xref-backend)
 					 (remove-hook 'xref-backend-functions 'eglot-xref-backend)
 					   )))
-
-  )
-
 #+END_SRC
 
 ** Markdown-mode
 
 #+BEGIN_SRC emacs-lisp
-(use-package markdown-mode
+(use-package markdown-mode)
-  :defer t
-)
 
 #+END_SRC
 
@@ -760,22 +770,48 @@ https://github.com/victorhge/iedit
 
 ** Magit
 
+*** Transient
+
+Magit depends on this and it seems it's not installed as a dependency, so install it explicitly.
+
+#+BEGIN_SRC emacs-lisp
+(use-package transient
+  :ensure (:wait t)
+)
+#+END_SRC
+
 *** Core
 
 #+BEGIN_SRC emacs-lisp
 (use-package magit
-  :defer t
+:ensure (:wait t)
-  )
+)
 
 #+END_SRC
 
+**** Extra commands
+
+***** Update all submodules
+
+#+BEGIN_SRC emacs-lisp
+(transient-define-suffix magit-submodule-update-all ()
+ "Update all submodules"
+ :description "Update All     git submodule update --init --recursive"
+ (interactive)
+ (magit-with-toplevel
+   (magit-run-git-async "submodule" "update" "--force")))
+
+(transient-append-suffix 'magit-submodule "f"
+  '("U" magit-submodule-update-all))
+#+END_SRC
+
 ** Dumb-jump
 
 #+BEGIN_SRC emacs-lisp
-(use-package dumb-jump
+  (use-package dumb-jump
     :init
     (add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
-)
+  )
 #+END_SRC
 
 ** C-programming
@@ -805,7 +841,6 @@ Move to the end if the compilation finishes.
 
 #+BEGIN_SRC emacs-lisp
 (use-package rust-mode
-  :defer t
   :init
   (setq rust-mode-treesitter-derive t))
 #+END_SRC
@@ -813,17 +848,13 @@ Move to the end if the compilation finishes.
 ** Zig
 
 #+BEGIN_SRC emacs-lisp
-(use-package zig-mode
+(use-package zig-mode)
-  :defer t
-  )
 #+END_SRC
 
 ** Python
 
 #+BEGIN_SRC emacs-lisp
-(use-package python-mode
+(use-package python-mode)
-  :defer t
-  )
 #+END_SRC
 
 * Multiple cursors
@@ -860,8 +891,8 @@ https://github.com/remyferre/comment-dwim-2
 
 #+BEGIN_SRC emacs-lisp
 (use-package comment-dwim-2
-  :bind
+    :config
-  ("M-;" . comment-dwim-2)
+      (global-set-key (kbd "M-;") 'comment-dwim-2)
 )
 #+END_SRC
 
@@ -877,27 +908,26 @@ https://github.com/remyferre/comment-dwim-2
     (add-hook 'project-find-functions #'project-projectile)
 )
 #+END_SRC
+
 * Org
 
 ** General config
+*** Super/Sub-scripts
+
+Use ={}= for subscripting:
+
+https://orgmode.org/manual/Subscripts-and-superscripts.html
 
 #+BEGIN_SRC emacs-lisp
-(use-package org
+(setq org-use-sub-superscripts '{})
-  :ensure nil
+#+END_SRC
-  :defer t
+
-  :mode ("\\.org\\'" . org-mode)
+*** Indentation
-  :config
+
-  (setq
+Preserve indentation in SRC blocks
-   ;; Start collapsed for speed
+
-   org-startup-folded t
+#+BEGIN_SRC emacs-lisp
-   ;; Use ={}= for subscripting: https://orgmode.org/manual/Subscripts-and-superscripts.html
+(setq org-src-preserve-indentation t)
-   org-use-sub-superscripts '{}
-   ;; Preserve indentation in SRC blocks
-   org-src-preserve-indentation t
-   )
-  ;; Ellipsis styling
-  (setq org-ellipsis " ▼ ")
-  (set-face-attribute 'org-ellipsis nil :inherit 'default :box nil))
 #+END_SRC
 
 ** Org-todo
@@ -917,8 +947,6 @@ https://github.com/remyferre/comment-dwim-2
 
 #+BEGIN_SRC emacs-lisp
 (use-package org-bullets
-  :defer t
-  :after org
   :config
     (add-hook 'org-mode-hook (lambda () (org-bullets-mode))))
 #+END_SRC
@@ -927,8 +955,6 @@ https://github.com/remyferre/comment-dwim-2
 
 #+BEGIN_SRC emacs-lisp
 (use-package org-roam
-  :defer t
-  :after org
   :custom
   (org-roam-directory "~/projects/notes")
   (org-roam-completion-everywhere t)
@@ -942,6 +968,27 @@ https://github.com/remyferre/comment-dwim-2
 )
 #+END_SRC
 
+*** UI
+
+#+BEGIN_SRC emacs-lisp
+(use-package org-roam-ui
+  :ensure
+    (:host github :repo "org-roam/org-roam-ui" :branch "main" :files ("*.el" "out"))
+    :after org-roam
+;;         normally we'd recommend hooking orui after org-roam, but since org-roam does not have
+;;         a hookable mode anymore, you're advised to pick something yourself
+;;         if you don't care about startup time, use
+;;  :hook (after-init . org-roam-ui-mode)
+    :config
+    (setq org-roam-ui-sync-theme t
+          org-roam-ui-follow t
+          org-roam-ui-update-on-save t
+          org-roam-ui-open-on-start t)
+    ;; Start UI
+    ;; (org-roam-ui-mode)
+    )
+#+END_SRC
+
 *** Consult
 
 #+BEGIN_SRC emacs-lisp
@@ -982,8 +1029,6 @@ https://github.com/remyferre/comment-dwim-2
 
 #+BEGIN_SRC emacs-lisp
 (use-package org-download
-  :defer t
-  :after org
   :config
   (add-hook 'dired-mode-hook 'org-download-enable)
   )
@@ -1002,36 +1047,6 @@ https://github.com/remyferre/comment-dwim-2
 
 * Custom
 
-** Modeline
-
-#+BEGIN_SRC emacs-lisp
-(setq-default mode-line-format
-	      '("%e" "  "
-		;; (:propertize " " display (raise +0.1)) ;; Top padding
-		;; (:propertize " " display (raise -0.1)) ;; Bottom padding
-		(:propertize "𝝮  " face font-lock-keyword-face)
-
-		(:propertize
-		 ("" mode-line-mule-info mode-line-client mode-line-modified mode-line-remote mode-line-window-dedicated))
-
-		mode-line-frame-identification
-		mode-line-buffer-identification
-		"   "
-		mode-line-position
-		mode-line-format-right-align
-		"  "
-		(project-mode-line project-mode-line-format)
-		"  "
-		(vc-mode vc-mode)
-		"  "
-		mode-line-modes
-		mode-line-misc-info
-		mode-line-end-spaces)
-	      project-mode-line t
-	      mode-line-buffer-identification '(" %b")
-	      mode-line-position-column-line-format '(" %l:%c"))
-#+END_SRC
-
 ** Org-roam
 
 Inspired by https://github.com/org-roam/org-roam/wiki/User-contributed-Tricks#filter-by-a-tag .

early-init.el

@@ -1,18 +1,9 @@
-;;; early-init.el --- Early Init -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;;  Early init configuration for Emacs Solo
-;;
-
-;;; Code:
-
-
-;; Only care about errors in *Messages* buffer
-(setq warning-minimum-level :error)
-
-;; We control when packages are enabled
 (setq package-enable-at-startup nil)
 
-(provide 'early-init)
 
-;;; early-init.el ends here
+;; Local Variables:
+;; no-byte-compile: t
+;; no-native-compile: t
+;; no-update-autoloads: t
+;; End:
+

init.el

@@ -1,9 +1,3 @@
-;;; init.el --- Init -*- lexical-binding: t; -*-
-
-
-;;; Commentary:
-;;; Load init files
-
 ;;; Increase garbage collection threshold during init but leave it to the default value after
 ;;; There are a LOT of articles/sites/... discussing this:
 ;;; https://bling.github.io/blog/2016/01/18/why-are-you-changing-gc-cons-threshold/