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)
+   Use large margins (3 chars wide) and hardcode the width of the
-   #+begin_src emacs-lisp
+   fringe to match the char width
-                                             ;(require 'highlight-sexps)
-   #+end_src
-   Try to get along with large margins
    #+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,8 +530,8 @@
 
      (defun clean-mode-line ()
        (interactive)
-       (loop for cleaner in mode-line-cleaner-alist
+       (dolist (cleaner mode-line-cleaner-alist)
-             do (let* ((mode (car cleaner))
+         (let* ((mode (car cleaner))
                 (mode-str (cdr cleaner))
                 (old-mode-str (cdr (assq mode minor-mode-alist))))
            (when old-mode-str
@@ -547,9 +540,7 @@
            (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