about summary refs log tree commit diff
path: root/users/wpcarro/emacs/.emacs.d
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2022-08-05T19·34-0700
committerclbot <clbot@tvl.fyi>2022-08-05T19·38+0000
commite5503751c4a3279055c4714a91c39affabb8c461 (patch)
tree15ef9ae0766895a6cee2af435c4b1603ca72976c /users/wpcarro/emacs/.emacs.d
parentb880fc4a14e8f49a0deeb9ff5c0562771d9a70e3 (diff)
feat(wpcarro/emacs): Add fns to list.el r/4385
new functions:
- duplicate
- last
- delete
- wrap

also:
- drop support for `list-head` (in favor of `list-first`)
- add optional arg to first

Change-Id: If3c48d4749a3bc5a853995996fa02a65a4076a10
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6041
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
Diffstat (limited to 'users/wpcarro/emacs/.emacs.d')
-rw-r--r--users/wpcarro/emacs/.emacs.d/wpc/irc.el2
-rw-r--r--users/wpcarro/emacs/.emacs.d/wpc/stack.el2
2 files changed, 2 insertions, 2 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/irc.el b/users/wpcarro/emacs/.emacs.d/wpc/irc.el
index 70d26f7f08c2..4ae50b4b1b2d 100644
--- a/users/wpcarro/emacs/.emacs.d/wpc/irc.el
+++ b/users/wpcarro/emacs/.emacs.d/wpc/irc.el
@@ -106,7 +106,7 @@
   (let ((buffers (erc-buffer-list)))
     (if (list-empty? buffers)
         (error "[irc.el] No ERC buffers available")
-      (switch-to-buffer (list-head (erc-buffer-list))))))
+      (switch-to-buffer (list-first (erc-buffer-list))))))
 
 (defun irc-connect-to-freenode ()
   "Connect to Freenode IRC."
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/stack.el b/users/wpcarro/emacs/.emacs.d/wpc/stack.el
index 3d1e3e4a169f..e81cec6a45e6 100644
--- a/users/wpcarro/emacs/.emacs.d/wpc/stack.el
+++ b/users/wpcarro/emacs/.emacs.d/wpc/stack.el
@@ -46,7 +46,7 @@
   "Look at the top element of `XS' without popping it off."
   (->> xs
        stack-xs
-       list-head))
+       list-first))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Update