FUEL: fix cmd syntax of call to fuel-scaffold-vocab

[factor.git] / misc / fuel / fuel-scaffold.el

diff --git a/misc/fuel/fuel-scaffold.el b/misc/fuel/fuel-scaffold.el
index 7947cbb095a86bc6973a79e409a41553d3d09aad..ae0091b9333dac69a4705bae4ed37e57321aa1eb 100644 (file)
--- a/misc/fuel/fuel-scaffold.el
+++ b/misc/fuel/fuel-scaffold.el
@@ -27,13 +27,6 @@
   "Options for FUEL's scaffolding."
   :group 'fuel)
 
-(defcustom fuel-scaffold-developer-name nil
-  "The name to be inserted as yours in scaffold templates."
-  :type '(choice string
-                 (const :tag "Factor's value for developer-name" nil))
-  :group 'fuel-scaffold)
-
-\f
 ;;; Auxiliary functions:
 
 (defun fuel-mode--code-file (kind &optional file)
@@ -50,13 +43,15 @@
   (fuel-mode--code-file "tests"))
 
 (defun fuel-scaffold--vocab-roots ()
-  (let ((cmd '(:fuel* (vocab-roots get :get) "fuel")))
-    (fuel-eval--retort-result (fuel-eval--send/wait cmd))))
+  (let ((cmd '(:fuel* (vocab-roots get)
+                      "fuel" ("namespaces" "vocabs.loader"))))
+    (nth 1 (fuel-eval--send/wait cmd))))
 
 (defun fuel-scaffold--dev-name ()
-  (or (let ((cmd '(:fuel* (developer-name get :get) "fuel")))
+  (or (let ((cmd '(:fuel* (developer-name get)
+                          "fuel"
+                          ("namespaces" "tools.scaffold"))))
         (fuel-eval--retort-result (fuel-eval--send/wait cmd)))
-      fuel-scaffold-developer-name
       user-full-name
       "Your name"))
 
@@ -146,8 +141,8 @@ IN: %s
 adds source and authors.txt files. Prompts the user for optional summary,
 tags, help, and test file creation.
 
-You can configure `fuel-scaffold-developer-name' for the name to
-be inserted in the generated files."
+You can configure `user-full-name' for the name to be inserted in
+the generated files."
   (interactive)
   (let* ((name (read-string "Vocab name: " name-hint))
          (root (completing-read "Vocab root: "
@@ -158,8 +153,8 @@ be inserted in the generated files."
          (platforms (read-string "Vocab platforms (empty for all): "))
          (help (y-or-n-p "Scaffold help? "))
          (tests (y-or-n-p "Scaffold tests? "))
-         (cmd `(:fuel* ((,root ,name ,(fuel-scaffold--dev-name)
-                        (fuel-scaffold-vocab)) "fuel")))
+         (cmd `(:fuel* (,root ,name ,(fuel-scaffold--dev-name)
+                              fuel-scaffold-vocab) "fuel"))
          (ret (fuel-eval--send/wait cmd))
          (file (fuel-eval--retort-result ret)))
     (unless file
@@ -184,7 +179,7 @@ be inserted in the generated files."
 scaffolded help for each word in the current vocabulary.
 
 With prefix argument, ask for the vocabulary name. You can
-configure `fuel-scaffold-developer-name' for the name to be
+configure `user-full-name' for the name to be
 inserted in the generated file."
   (interactive "P")
   (let* ((vocab (or (and (not arg) (factor-current-vocab))
@@ -202,8 +197,8 @@ inserted in the generated file."
 vocabulary.
 
 With prefix argument, ask for the vocabulary name. You can
-configure `fuel-scaffold-developer-name' for the name to be
-inserted in the generated file."
+configure `user-full-name' for the name to be inserted in the
+generated file."
   (interactive "P")
   (let* ((vocab (or (and (not arg) (factor-current-vocab))
                     (fuel-completion--read-vocab nil)))
@@ -219,7 +214,7 @@ inserted in the generated file."
 vocabulary.
 
 With prefix argument, ask for the vocabulary name. You can
-configure `fuel-scaffold-developer-name' for the name to be
+configure `user-full-name' for the name to be
 inserted in the generated file."
   (interactive "P")
   (let* ((vocab (or (and (not arg) (factor-current-vocab))