(Emacs)~let/while -> mapcar for :pretty use-package

Same idiomatic change for use-package handling.  Should've realised
this earlier.

Emacs/.config/emacs/config.org

@@ -904,24 +904,20 @@ for an example.
     (defun use-package-handler/:pretty (name _keyword args rest state)
       (use-package-concat
        (use-package-process-keywords name rest state)
-       (let ((arg args)
+       (mapcar
-             (forms nil))
+        #'(lambda (arg)
-         (while arg
+            (let ((mode (car arg))
-           (let ((mode (caar arg))
+                  (rest (cdr arg)))
-                 (rest (cdr (car arg))))
-             (add-to-list
-              'forms
               `(add-hook
                 ',mode
-                (lambda nil
+                #'(lambda nil
-                  (setq prettify-symbols-alist ',rest)
+                    (setq prettify-symbols-alist ',rest)
-                  (prettify-symbols-mode)))))
+                    (prettify-symbols-mode)))))
-           (setq arg (cdr arg)))
+        args)))))
-         forms)))))
 #+end_src
 
-Here's a collection of keywords and their associated symbols, for a
+Here's a collection of keywords and possible associated symbols for
-pseudo language.
+any prog language of choice.  Mostly for reference and copying.
 #+begin_example
 ("null"   . "Ø")
 ("list"   . "ℓ")