[fixup-faces] Move hack to own function

global.org

@@ -85,6 +85,15 @@
         (lambda (binding)
           (define-key keymap (kbd (car binding)) (cdr binding))) binding-alist))
    #+END_SRC
+   This is a hack to remove slant and bold from all faces
+   #+BEGIN_SRC emacs-lisp
+     (defun wilder/fixup-faces () 
+       (mapc (lambda (face)
+	      (set-face-attribute face nil :weight 'normal)
+	      (set-face-attribute face nil :slant 'normal))
+	    (face-list))
+     (set-face-font 'default "-xos4-hackminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1"))
+   #+END_SRC
 ** Cosmetics
     Prefer a minimal appearance: no menu, toolbar or scroll-bars; no
     splash screens or messages
@@ -1476,13 +1485,10 @@
    have loaded in the meantime; yet it does not wark perfectly as some
    packages are still to be loaded (most notably ~magit~)
    #+BEGIN_SRC emacs-lisp
-   ;; (set-face-font 'default "-xos4-hackminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1")
-   (set-face-bold 'bold nil)
-    (mapc
-       (lambda (face)
-	 (set-face-attribute face nil :weight 'normal)
-	 (set-face-attribute face nil :slant 'normal))
-       (face-list))
+     ;; (set-face-font 'default "-xos4-hackminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1")
+     (set-face-bold 'bold nil)
+     (wilder/fixup-faces)
+     (with-eval-after-load "info" (wilder/fixup-faces) nil)
    #+END_SRC
 
 ** Start server