more yak shaving

global.org

@@ -116,13 +116,12 @@
   #+begin_src emacs-lisp
     (add-to-list 'custom-theme-load-path "/home/jacopods/.emacs.d/emacs-color-theme-solarized")
     (load-theme 'lunarized t)
-
   #+end_src
 
   Use patched terminus font (this overrides the settings in Customize,
-  but I never could it work otherwise).  See the special treatment
+  but I never could make it work otherwise).  See the special treatment
   later on for dealing with bold weight.  To avoid flickering one
-  should also set the font in .Xresources
+  should also set the font in .Xresources (on XWayland, of course)
   #+begin_src emacs-lisp
     (set-face-font 'default "Hackminus")
     (set-face-font 'fixed-pitch "Hackminus")
@@ -131,12 +130,6 @@
    #+end_src
 
 * Global settings
-** server name
-    I prefer to keep one server for each KDE activity, so
-    set the server name to be the name of the current activity
-    #+begin_src emacs-lisp
-;       (setq server-name (kde-current-activity-name))
-    #+end_src
 ** Global helper functions
    This is a helper function used to set several global keys given in
    provided as a parameter in ~binding-alist~
@@ -152,13 +145,13 @@
          (define-key keymap (kbd (car binding)) (cdr binding))))
    #+end_src
    This is a hack to remove slant and bold from all faces
+   ((why interactive?))
    #+begin_src emacs-lisp
      (defun wilder/fixup-faces ()
        (interactive)
-       (mapc (lambda (face)
-               (set-face-attribute face nil :weight 'normal)
-               (set-face-attribute face nil :slant 'normal))
-             (face-list))
+       (dolist (face (face-list))
+         (set-face-attribute face nil :weight 'normal)
+         (set-face-attribute face nil :slant 'normal))
        (set-face-font 'default "Hackminus"))
    #+end_src
    This function saves the current buffer after the specified amount