be more idiomatic in looping

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
@@ -189,7 +182,7 @@
      (setq inhibit-startup-screen t
            inhibit-startup-message t)
    #+end_src
-   a blinking cursor keeps the gpu awake; add global hl-line mode to more
+   A blinking cursor keeps the gpu awake; add global hl-line mode to more
    easily spot the cursor
    #+begin_src emacs-lisp
      (blink-cursor-mode 0)
@@ -201,12 +194,10 @@
            '((buffer-file-name "%f"
                                (dired-directory dired-directory "%b")) " · emacs"))
    #+end_src
-
    Silence beeping
    #+begin_src emacs-lisp
      (setq ring-bell-function 'ignore)
    #+end_src
-
    Themed tooltips
    #+begin_src emacs-lisp
      (setq x-gtk-use-system-tooltips nil)
@@ -216,18 +207,14 @@
    #+begin_src emacs-lisp
      (setq default-fill-column 72)
    #+end_src
-   Highlight sexp (apparently I am not even using this)
-   #+begin_src emacs-lisp
-                                             ;(require 'highlight-sexps)
-   #+end_src
-   Try to get along with large margins
+   Use large margins (3 chars wide) and hardcode the width of the
+   fringe to match the char width
    #+begin_src emacs-lisp
      (setq-default left-margin-width 3
                    right-margin-width 3
                    helm-left-margin-width left-margin-width
                    helm-buffers-left-margin-width left-margin-width)
      (fringe-mode 10)
-                                             ;(set-window-buffer nil (current-buffer))
    #+end_src
    Setup [[https://github.com/purcell/page-break-lines][page-break-lines]]
    #+begin_src emacs-lisp
@@ -353,9 +340,8 @@
                      (side . bottom )
                      (slot . 0)
                      (window-height . 29)))
-
     #+end_src
-***
+
 ** Scrolling
    Scrolling setup
    #+begin_src emacs-lisp
@@ -544,19 +530,17 @@
 
      (defun clean-mode-line ()
        (interactive)
-       (loop for cleaner in mode-line-cleaner-alist
-             do (let* ((mode (car cleaner))
-                       (mode-str (cdr cleaner))
-                       (old-mode-str (cdr (assq mode minor-mode-alist))))
-                  (when old-mode-str
-                    (setcar old-mode-str mode-str))
-                  ;; major mode
-                  (when (eq mode major-mode)
-                    (setq mode-name mode-str)))))
-
+       (dolist (cleaner mode-line-cleaner-alist)
+         (let* ((mode (car cleaner))
+                (mode-str (cdr cleaner))
+                (old-mode-str (cdr (assq mode minor-mode-alist))))
+           (when old-mode-str
+             (setcar old-mode-str mode-str))
+           ;; major mode
+           (when (eq mode major-mode)
+             (setq mode-name mode-str)))))
 
      (add-hook 'after-change-major-mode-hook 'clean-mode-line)
-
    #+end_src
 ** Coding system
    Prefer the utf-8 coding system globally.  This helps with the issue of