[elpa] externals/activities 52cba82926 1/6: Add: (activities-inhibit-frame-name) Inhibits setting frame name

[ELPA Syncer]

branch: externals/activities
commit 52cba82926f32ca7c74b5354e9e7355ef8da8f57
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    Add: (activities-inhibit-frame-name) Inhibits setting frame name
    
    Fixes #33.  This can be used with a custom `frame-title-format', e.g.:
    
    (setq frame-title-format
            `((:eval (when-let ((activities-mode)
                                (cur (activities-current)))
                       (concat (activities-name-for cur) " • ")))
              ,@frame-title-format))
---
 README.org    | 1 +
 activities.el | 8 +++++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 1e8cf81cc9..416721ef06 100644
--- a/README.org
+++ b/README.org
@@ -146,6 +146,7 @@ When option ~activities-bookmark-store~ is enabled, an 
Emacs bookmark is stored
 *Additions*
 + Command ~activities-rename~ renames an activity.
 + Option ~activities-after-switch-functions~, a hook called after switching to 
an activity.
++ Option ~activities-inhibit-frame-name~, to inhibit setting the frame name of 
an activity.
 
 *Changes*
 + Default time format in activities list.
diff --git a/activities.el b/activities.el
index 252cc90ce7..1227005717 100644
--- a/activities.el
+++ b/activities.el
@@ -279,6 +279,11 @@ prefixes will be added automatically."
                  (const :tag "Current project's name" activities--project-name)
                  (function-item :tag "Other function")))
 
+(defcustom activities-inhibit-frame-name nil
+  "Whether to inibit setting the frame name to the current activity name.
+Only applies when `activities-tabs-mode' is disabled."
+  :type 'boolean)
+
 (defcustom activities-anti-save-predicates
   '(active-minibuffer-window activities--backtrace-visible-p)
   "Predicates which prevent an activity's state from being saved.
@@ -534,7 +539,8 @@ is not changed."
     ;; (I don't love this solution, largely because it only applies
     ;; when not using `activities-tabs-mode', but it will do for now.)
     (raise-frame))
-  (set-frame-name (activities-name-for activity)))
+  (unless activities-inhibit-frame-name
+    (set-frame-name (activities-name-for activity))))
 
 (defun activities--frame (activity)
   "Return ACTIVITY's frame."