[elpa] externals/activities fa4b9a5f49 9/9: Merge: (activities-tab-prefix) Remove obsolete variable

[ELPA Syncer]

branch: externals/activities
commit fa4b9a5f4918189c52e289b69742f042b5566ea5
Merge: ea4ce722a4 a28cc52c1c
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Merge: (activities-tab-prefix) Remove obsolete variable
---
 activities-tabs.el | 17 -----------------
 1 file changed, 17 deletions(-)

diff --git a/activities-tabs.el b/activities-tabs.el
index e59beaf827..486d3ca354 100644
--- a/activities-tabs.el
+++ b/activities-tabs.el
@@ -48,10 +48,6 @@ When `activities-tabs-mode' is enabled.")
 Each is called with one argument, the activity."
   :type 'hook)
 
-(defcustom activities-tabs-prefix "α:"
-  "Prepended to activity names in tabs."
-  :type 'string)
-
 (defface activities-tabs
   `((t :inherit font-lock-function-name-face))
   "Applied to tab-bar faces for tabs representing activities.")
@@ -223,19 +219,6 @@ activity's name is NAME."
   "Called before resuming ACTIVITY."
   (run-hook-with-args 'activities-tabs-before-resume-functions activity))
 
-;; (defun activity-tabs-switch-to-tab (activity)
-;;   "Switch to a tab for ACTIVITY."
-;;   (pcase-let* (((cl-struct activity name) activity)
-;;                (tab (cl-find-if (lambda (tab)
-;;                                   (when-let ((tab-activity (alist-get 
'activity tab)))
-;;                                     (equal name (activity-name 
tab-activity))))
-;;                                 (funcall tab-bar-tabs-function))) 
-;;                (tab-name (if tab
-;;                              (alist-get 'name tab)
-;;                            (concat activity-tabs-prefix
-;;                                    (string-remove-prefix 
activity-bookmark-prefix name)))))
-;;     (tab-bar-switch-to-tab tab-name)))
-
 ;;;; Footer
 
 (provide 'activities-tabs)