Add actypes:activities for external package activities

Author: matsl

ChangeLog

@@ -1,3 +1,8 @@
+2025-09-26  Mats Lidell  <matsl@gnu.org>
+
+* hsys-activities.el (activity, hsys-activities-read): Add
+    actypes:activity for the external package activities.
+
 2025-09-25  Mats Lidell  <matsl@gnu.org>
 
 * hycontrol.el (hycontrol-global-text-scale-adjust): Modification of

hsys-activities.el

@@ -0,0 +1,44 @@
+;;; hsys-activities.el --- actype for external package activities -*- lexical-binding: t; -*-
+;;
+;; Author:       Mats Lidell
+;;
+;; Orig-Date:    21-Sep-25 at 20:41:48
+;; Last-Mod:     21-Sep-25 at 22:15:36 by Mats Lidell
+;;
+;; 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:
+;;
+;; Stores the name of the activity rather than the activity itself.
+;;
+;; This actype resumes the activity.  For reseting the default state
+;; for the activity use activites-resume with a prefix argument.  With
+;; the default key binding for activities this is: {C-u C-x C-a g}
+
+;;; Code:
+
+(require 'hypb)
+(declare-function activities-activity-name "ext:activities")
+(declare-function activities-completing-read "ext:activities")
+(declare-function activities-named "ext:activities")
+(declare-function activities-resume "ext:activities")
+
+(defun hsys-activities-read ()
+  "Prompt user for activity and return the activity name."
+  (hypb:require-package 'activities)
+  (activities-activity-name (activities-completing-read :prompt "Activity")))
+
+(defact activity (activity)
+  "Action type for activities."
+  (interactive (list (hsys-activities-read)))
+  (hypb:require-package 'activities)
+  (when (stringp activity)
+    (activities-resume (activities-named activity))))
+
+(provide 'hsys-activities)
+;;; hsys-activities.el ends here