Start using partial

magit · Feb 3, 2025 · b17be58 · b17be58
1 parent 0e1579b
commit b17be58
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 6 deletions.
diff --git a/.dir-locals.el b/.dir-locals.el
@@ -1,5 +1,8 @@
 ((emacs-lisp-mode
-  (indent-tabs-mode . nil))
+  (indent-tabs-mode . nil)
+  (read-symbol-shorthands
+   ("partial" . "llama--left-apply-partially")
+   ("rpartial" . "llama--right-apply-partially")))
  (git-commit-mode
   (git-commit-major-mode . git-commit-elisp-text-mode))
  (makefile-gmake-mode

diff --git a/lisp/forge-repo.el b/lisp/forge-repo.el
@@ -347,14 +347,12 @@ REPO, return it, else set the slot to nil and return nil."
 ;;;; List
 
 (defun forge--ls-repos ()
-  (mapcar (let ((db (forge-db)))
-            (##closql--remake-instance 'forge-repository db %))
+  (mapcar (partial #'closql--remake-instance 'forge-repository (forge-db))
           (forge-sql [:select * :from repository
                       :order-by [(asc owner) (asc name)]])))
 
 (defun forge--ls-owned-repos ()
-  (mapcar (let ((db (forge-db)))
-            (##closql--remake-instance 'forge-repository db %))
+  (mapcar (partial #'closql--remake-instance 'forge-repository (forge-db))
           (forge-sql [:select * :from repository
                       :where (and (in owner $v1)
                                   (not (in name $v2)))

diff --git a/lisp/forge.el b/lisp/forge.el
@@ -15,7 +15,7 @@
 ;;     (emacsql "4.1.0")
 ;;     (ghub "4.2.0")
 ;;     (let-alist "1.0.6")
-;;     (llama "0.5.0")
+;;     (llama "0.6.0")
 ;;     (magit "4.2.0")
 ;;     (markdown-mode "2.6")
 ;;     (seq "2.24")