FUEL: remove fuel-scaffold-developer-name

It seem unlikely that someone would need this variable when you can
instead use user-full-name or set developer-name in Factor.
factor-shell
Björn Lindqvist 2018-02-07 19:41:48 +01:00
parent 5d27f004a1
commit f86d9edec3
1 changed files with 6 additions and 14 deletions

View File

@ -27,13 +27,6 @@
"Options for FUEL's scaffolding." "Options for FUEL's scaffolding."
:group 'fuel) :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)
;;; Auxiliary functions: ;;; Auxiliary functions:
(defun fuel-mode--code-file (kind &optional file) (defun fuel-mode--code-file (kind &optional file)
@ -59,7 +52,6 @@
"fuel" "fuel"
("namespaces" "tools.scaffold")))) ("namespaces" "tools.scaffold"))))
(fuel-eval--retort-result (fuel-eval--send/wait cmd))) (fuel-eval--retort-result (fuel-eval--send/wait cmd)))
fuel-scaffold-developer-name
user-full-name user-full-name
"Your name")) "Your name"))
@ -149,8 +141,8 @@ IN: %s
adds source and authors.txt files. Prompts the user for optional summary, adds source and authors.txt files. Prompts the user for optional summary,
tags, help, and test file creation. tags, help, and test file creation.
You can configure `fuel-scaffold-developer-name' for the name to You can configure `user-full-name' for the name to be inserted in
be inserted in the generated files." the generated files."
(interactive) (interactive)
(let* ((name (read-string "Vocab name: " name-hint)) (let* ((name (read-string "Vocab name: " name-hint))
(root (completing-read "Vocab root: " (root (completing-read "Vocab root: "
@ -187,7 +179,7 @@ be inserted in the generated files."
scaffolded help for each word in the current vocabulary. scaffolded help for each word in the current vocabulary.
With prefix argument, ask for the vocabulary name. You can 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." inserted in the generated file."
(interactive "P") (interactive "P")
(let* ((vocab (or (and (not arg) (factor-current-vocab)) (let* ((vocab (or (and (not arg) (factor-current-vocab))
@ -205,8 +197,8 @@ inserted in the generated file."
vocabulary. vocabulary.
With prefix argument, ask for the vocabulary name. You can 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
inserted in the generated file." generated file."
(interactive "P") (interactive "P")
(let* ((vocab (or (and (not arg) (factor-current-vocab)) (let* ((vocab (or (and (not arg) (factor-current-vocab))
(fuel-completion--read-vocab nil))) (fuel-completion--read-vocab nil)))
@ -222,7 +214,7 @@ inserted in the generated file."
vocabulary. vocabulary.
With prefix argument, ask for the vocabulary name. You can 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." inserted in the generated file."
(interactive "P") (interactive "P")
(let* ((vocab (or (and (not arg) (factor-current-vocab)) (let* ((vocab (or (and (not arg) (factor-current-vocab))