be more idiomatic in looping

global.org

@@ -182,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)
@@ -194,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)
@@ -209,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
@@ -346,9 +340,8 @@
                      (side . bottom )
                      (slot . 0)
                      (window-height . 29)))
-
     #+end_src
-***
+
 ** Scrolling
    Scrolling setup
    #+begin_src emacs-lisp
@@ -537,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