From 749c2cd5f5f2ad03c04c952cfa924e155102e3c6 Mon Sep 17 00:00:00 2001
From: Jonas Bernoulli <jonas@bernoul.li>
Date: Fri, 24 Jan 2025 11:19:14 +0100
Subject: [PATCH] Use llama instead of forge--get-repository:tracked?

---
 lisp/forge-commands.el | 13 +++++++------
 lisp/forge-repo.el     |  3 ---
 2 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/lisp/forge-commands.el b/lisp/forge-commands.el
index f6bdc67b..06786ac8 100644
--- a/lisp/forge-commands.el
+++ b/lisp/forge-commands.el
@@ -65,7 +65,7 @@ Takes the pull-request as only argument and must return a directory."
     ("f t" "one topic"      forge-pull-topic)
     ("f n" "notifications"  forge-pull-notifications)]
    ["Create"
-    :if forge--get-repository:tracked?
+    :if (##forge-get-repository :tracked?)
     ("c i" "issue"          forge-create-issue)
     ("c p" "pull-request"   forge-create-pullreq)
     ("c u" "pr from issue"  forge-create-pullreq-from-issue)
@@ -83,20 +83,21 @@ Takes the pull-request as only argument and must return a directory."
                             "track some repo"
                           "track this repository"))))
     ("/M" "merge with api" forge-merge
-     :if forge--get-repository:tracked? :level 7)]]
+     :if (##forge-get-repository :tracked?)
+     :level 7)]]
   [forge--lists-group
    ["Visit"
-    :inapt-if-not forge--get-repository:tracked?
+    :inapt-if-not (##forge-get-repository :tracked?)
     ("v t" "topic"          forge-visit-topic)
     ("v i" "issue"          forge-visit-issue)
     ("v p" "pull-request"   forge-visit-pullreq)]
    ["Browse"
     ("b t" "topic"          forge-browse-topic
-     :inapt-if-not forge--get-repository:tracked?)
+     :inapt-if-not (##forge-get-repository :tracked?))
     ("b i" "issue"          forge-browse-issue
-     :inapt-if-not forge--get-repository:tracked?)
+     :inapt-if-not (##forge-get-repository :tracked?))
     ("b p" "pull-request"   forge-browse-pullreq
-     :inapt-if-not forge--get-repository:tracked?)
+     :inapt-if-not (##forge-get-repository :tracked?))
     ("b r" "remote"         forge-browse-remote)
     ("b I" "issues"         forge-browse-issues)
     ("b P" "pull-requests"  forge-browse-pullreqs)
diff --git a/lisp/forge-repo.el b/lisp/forge-repo.el
index 58d88bf8..cc5dda89 100644
--- a/lisp/forge-repo.el
+++ b/lisp/forge-repo.el
@@ -292,9 +292,6 @@ See `forge-alist' for valid Git hosts."
       (error "(Maybe repository) is nil; `%s' not satisfied" demand)
     nil))
 
-(defun forge--get-repository:tracked? ()
-  (forge-get-repository :tracked?))
-
 (defun forge-repository-at-point (&optional demand)
   "Return the repository at point.
 If there is no such repository and DEMAND is non-nil, then signal