config.org

@@ -460,7 +460,7 @@ C-c C-c to apply."
 
 *** Consult
 
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC
 (setq completion-in-region-function
       (lambda (&rest args)
         (apply (if vertico-mode
@@ -471,12 +471,9 @@ 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))
-  :config
-  (setq tab-always-indent 'complete)
   :custom
   (corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
   (corfu-auto t)                 ;; Enable auto completion
@@ -502,7 +499,7 @@ C-c C-c to apply."
 
 *** Company-mode
 
-#+BEGIN_SRC
+#+BEGIN_SRC emacs-lisp
 (use-package company
   :config
   (define-key prog-mode-map
@@ -1053,45 +1050,6 @@ Inspired by https://github.com/org-roam/org-roam/wiki/User-contributed-Tricks#fi
                                   (org-roam-node-tags node))))))
 #+END_SRC
 
-** Font
-
-'Inspired' by https://protesilaos.com/codelog/2024-11-28-basic-emacs-configuration/#h:1e4fde73-a2a2-4dc5-82ad-02cf3884ece6 .
-#+BEGIN_SRC emacs-lisp
-(let ((mono-spaced-font "Monospace")
-      (proportionately-spaced-font "Sans"))
-  (set-face-attribute 'default nil :family mono-spaced-font :height 100)
-  (set-face-attribute 'fixed-pitch nil :family mono-spaced-font :height 1.0)
-  (set-face-attribute 'variable-pitch nil :family proportionately-spaced-font :height 1.0))
-#+END_SRC
-
-*** Icon fonts
-
-To make this setup work, the user must type M-x and then call the
-command 'nerd-icons-install-fonts'. This will store the icon font files
-in a local directory (on Linux this is ~/.local/share/fonts).
-
-#+BEGIN_SRC emacs-lisp
-(use-package nerd-icons
-  :ensure t)
-
-(use-package nerd-icons-completion
-  :ensure t
-  :after marginalia
-  :config
-  (add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup))
-
-(use-package nerd-icons-corfu
-  :ensure t
-  :after corfu
-  :config
-  (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter))
-
-(use-package nerd-icons-dired
-  :ensure t
-  :hook
-  (dired-mode . nerd-icons-dired-mode))
-#+END_SRC
-
 ** Sudo current buffer
 
 #+BEGIN_SRC emacs-lisp
@@ -1200,37 +1158,3 @@ This should normally be done by the init.el to load this configuration.
 | M-x untabify/tabify   | Convert to spaces/tabs                                    |
 | M-x describe-bindings | List all mapped keys/commands                             |
 | M-q                   | Fill paragraph                                            |
-
-** Minibuffer
-
-*** Close minibuffer when pressing C-g
-
-'Inspired' by https://protesilaos.com/codelog/2024-11-28-basic-emacs-configuration/#h:1e4fde73-a2a2-4dc5-82ad-02cf3884ece6 .
-#+BEGIN_SRC emacs-lisp
-(defun myrmi/keyboard-quit-dwim ()
-  "Do-What-I-Mean behaviour for a general `keyboard-quit'.
-
-The generic `keyboard-quit' does not do the expected thing when
-the minibuffer is open.  Whereas we want it to close the
-minibuffer, even without explicitly focusing it.
-
-The DWIM behaviour of this command is as follows:
-
-- When the region is active, disable it.
-- When a minibuffer is open, but not focused, close the minibuffer.
-- When the Completions buffer is selected, close it.
-- In every other case use the regular `keyboard-quit'."
-  (interactive)
-  (cond
-   ((region-active-p)
-    (keyboard-quit))
-   ((derived-mode-p 'completion-list-mode)
-    (delete-completion-window))
-   ((> (minibuffer-depth) 0)
-    (abort-recursive-edit))
-   (t
-    (keyboard-quit))))
-
-(define-key global-map (kbd "C-g") #'myrmi/keyboard-quit-dwim)
-
-#+END_SRC

init.el

@@ -12,6 +12,9 @@
   (when (file-readable-p my-config-file)
     (org-babel-load-file (expand-file-name my-config-file)))
 
-  (load notes-config-file :no-error-if-file-is-missing)
-  (load custom-file :no-error-if-file-is-missing)
+  (when (file-readable-p custom-file)
+    (load custom-file))
+
+  (when (file-readable-p notes-config-file)
+    (load notes-config-file))
 )