hyperbole/hsys-activities.el at master · rswgnu/hyperbole · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
;;; hsys-activities.el --- action button support for activities -*- lexical-binding: t; -*-
;;
;; Author:       Mats Lidell
;;
;; Orig-Date:     7-Dec-25 at 22:48:29
;; Last-Mod:      2-Jan-26 at 21:31:06 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
;; Copyright (C) 2025  Free Software Foundation, Inc.
;; See the "HY-COPY" file for license information.
;;
;; This file is part of GNU Hyperbole.

;;; Commentary:
;;
;; Use as action button <hsys-activity "Activity">
;;
;; Create "Activity" if it does not exist.  If "Activity" is not
;; active, switch to its latest state.  If "Activity" is active,
;; revert it to its default state.  If "Activity" is active and the
;; action button is called with a prefix argument a new default state
;; is set.

;;; Code:

;;; ************************************************************************
;;; Requirements
;;; ************************************************************************

(hypb:require-package 'activities)
(require 'hypb)

;;; ************************************************************************
;;; Public declarations
;;; ************************************************************************

(defvar activities-name-prefix)
(defvar activities-tabs-before-resume)
(defvar activities-tabs-mode)

(declare-function activities-current "ext:activities")
(declare-function activities-define "ext:activities")
(declare-function activities-name-for "ext:activities")
(declare-function activities-named "ext:activities")
(declare-function activities-names "ext:activities")
(declare-function activities-resume "ext:activities")
(declare-function activities-revert "ext:activities")
(declare-function activities-tabs-before-resume "ext:activities")

(add-hook 'activities-tabs-mode-hook
	  (lambda ()
	    (when activities-tabs-mode
	      (advice-remove #'activities-resume #'activities-tabs-before-resume)
	      (advice-add #'hsys-activities-before-resume :before #'activities-tabs-before-resume))))

;;; ************************************************************************
;;; Public functions
;;; ************************************************************************

;;;###autoload
(defun hsys-activities (name)
  "Create, resume and revert activity NAME in one function.
- Create activity with NAME if it does not exist.
- If activity NAME is not active, switch to its latest state.
- If activity NAME is active and current, revert to its default state.
- If activity NAME is active and hsys-activity is called with
  `current-prefix-arg', then update the default state."
  (interactive (list (completing-read "Activity: " (activities-names) nil nil)))
  (let ((activity (activities-named name)))
    (cond ((not activity)
           (activities-define name)
           (message "Activity %s defined" name))
          ((let ((current-activity (activities-current)))
             (and current-activity
                  (string-equal
                   (activities-name-for activity)
                   (activities-name-for current-activity))))
           (if current-prefix-arg
               (progn
                 (activities-define name :forcep t)
                 (message "Activity %s set to new default" name))
             (activities-revert activity)
             (message "Activity %s reverted" name)))
          (t
           (activities-resume activity)
           (message "Activity %s resumed" name)))))

(defun hsys-activities-before-resume (activity)
  (if (and activities-tabs-mode
	   (tab-switcher-current-tab nil))
      (activities-revert activity)
    (activities-resume activity)))

(provide 'hsys-activities)
;;; hsys-activities.el ends here