[elpa] externals-release/activities b271af1e07 083/103: Change: (activities-new) Use project name as default name prompt

[ELPA Syncer]

branch: externals-release/activities
commit b271af1e07def4af928cb18e0229d55c1d726b7b
Author: Joseph Turner <joseph@breatheoutbreathe.in>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (activities-new) Use project name as default name prompt
---
 activities.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/activities.el b/activities.el
index d61bdaa7a7..a72524cad2 100644
--- a/activities.el
+++ b/activities.el
@@ -266,9 +266,13 @@ Called with one argument, the activity."
 (cl-defun activities-new (name &key forcep)
   "Save current state as a new activity with NAME.
 If FORCEP (interactively, with prefix), overwrite existing
-activity."
+activity.  Interactively, NAME defaults to the current
+`project.el' project's name, if any."
   (interactive
-   (list (read-string "New activity name: ") :forcep current-prefix-arg))
+   (let ((default (when-let ((proj (project-current)))
+                    (project-name proj))))
+     (list (read-string (format-prompt "New activity name" default) nil nil 
default)
+           :forcep current-prefix-arg)))
   (when (and (not forcep) (member name (activities-names)))
     (user-error "Activity named %S already exists" name))
   (let ((activity (make-activities-activity :name name)))