From 46f38953c9c85b33bb0ff762271c1fa052daef14 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Tue, 11 Jul 2023 21:33:53 +0100
Subject: (Emacs)~made :display use-package manager more idiomatic

When I originally programmed this function I was essentially acting as
a code-monkey i.e. "JUST WORK PLEASE".  Looking at the code now I see
there's a simple function to do essentially the same task, converting
from the iterative format I was using to the cleaner and more
functional ~mapcar~.
---
 Emacs/.config/emacs/config.org | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

(limited to 'Emacs')

diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index 4e9aaa5..ea07e0e 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -939,12 +939,14 @@ pseudo language.
 ("lambda" . "λ")
 #+end_example
 ** Window management
-Emacs' default window management is quite bad, eating other windows
-and not particularly caring for the current window setup.  Thankfully
-you can change this via the ~display-buffer-alist~ which matches
-buffer names with how the window for the buffer should be displayed.
-I add a use-package keyword to make ~display-buffer-alist~ records
-within use-package.
+Emacs' default window management is quite bad, eating other windows on
+a whim and not particularly caring for the current window setup.
+Thankfully you can change this via the ~display-buffer-alist~ which
+matches buffer names with how the window for the buffer should be
+displayed.  I add a use-package keyword to make ~display-buffer-alist~
+records within use-package.
+
+I have no idea whether it's optimal AT ALL, but it works for me.
 #+begin_src emacs-lisp
 (use-package window
   :straight nil
@@ -965,14 +967,11 @@ within use-package.
     (defun use-package-handler/:display (name _keyword args rest state)
       (use-package-concat
        (use-package-process-keywords name rest state)
-       (let ((arg args)
-             forms)
-         (while arg
-           (add-to-list 'forms
-                        `(add-to-list 'display-buffer-alist
-                                      ',(car arg)))
-           (setq arg (cdr arg)))
-         forms)))))
+       (mapcar
+        #'(lambda (arg)
+            `(add-to-list 'display-buffer-alist
+                          ',arg))
+        args)))))
 #+end_src
 *** Some display records
 Using the ~:display~ keyword, setup up some ~display-buffer-alist~
-- 
cgit v1.2.3-13-gbd6f