jimeh/.emacs.d
1
0
Fork 0
mirror of https://github.com/jimeh/.emacs.d.git synced 2026-02-19 13:46:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

feat(core): add siren list manipulation helper functions

Browse Source
This commit is contained in:
Jim Myhrberg
2024-10-18 03:04:08 +01:00
parent f70de31989
commit 2b4c3a2d7a
1 changed files with 40 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
core/siren-core-utils.el
View File

@@ -15,6 +15,46 @@
"Add ELEMENT to end of LIST-VAR, removing duplicates."
`(setq ,list-var (append (remove ,element ,list-var) (list ,element))))
(defmacro siren-add-before (list-var element needle)
"Add ELEMENT before NEEDLE in LIST-VAR, without removing duplicates."
`(let ((pos (cl-position ,needle ,list-var)))
(if pos
(setq ,list-var (append (cl-subseq ,list-var 0 pos)
(list ,element)
(cl-subseq ,list-var pos)))
(setq ,list-var (append ,list-var (list ,element))))))
(defmacro siren-add-after (list-var element needle)
"Add ELEMENT after NEEDLE in LIST-VAR, without removing duplicates."
`(let ((pos (cl-position ,needle ,list-var)))
(if pos
(setq ,list-var (append (cl-subseq ,list-var 0 (1+ pos))
(list ,element)
(cl-subseq ,list-var (1+ pos))))
(setq ,list-var (append ,list-var (list ,element))))))
(defmacro siren-ensure-before (list-var element needle)
"Add ELEMENT before NEEDLE in LIST-VAR, removing duplicates."
`(let* ((cleaned-list (remove ,element ,list-var))
(pos (cl-position ,needle cleaned-list)))
(setq ,list-var
(if pos
(append (cl-subseq cleaned-list 0 pos)
(list ,element)
(cl-subseq cleaned-list pos))
(append cleaned-list (list ,element))))))
(defmacro siren-ensure-after (list-var element needle)
"Add ELEMENT after NEEDLE in LIST-VAR, removing duplicates."
`(let* ((cleaned-list (remove ,element ,list-var))
(pos (cl-position ,needle cleaned-list)))
(setq ,list-var
(if pos
(append (cl-subseq cleaned-list 0 (1+ pos))
(list ,element)
(cl-subseq cleaned-list (1+ pos)))
(append cleaned-list (list ,element))))))
(defun siren-recursive-add-to-load-path (dir)
"Add DIR and all its sub-directories to `load-path'."
(add-to-list 'load-path dir)