steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Use the customized developer name in fuel-scaffold-help.

db4
Jose A. Ortega Ruiz 2009-01-11 20:22:08 +01:00
parent 4bb5ad1925
commit 5c8a09eb52
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/fuel/fuel.factor
View File

@ -375,7 +375,8 @@ MEMO: (fuel-get-vocabs/tag) ( tag -- element )
[ scaffold-vocab ] 2keep [ (normalize-path) ] dip dup [ scaffold-vocab ] 2keep [ (normalize-path) ] dip dup
append-path append-path ".factor" append fuel-eval-set-result ; append-path append-path ".factor" append fuel-eval-set-result ;
: fuel-scaffold-help ( name -- ) : fuel-scaffold-help ( name devname -- )
developer-name set
dup require dup scaffold-help vocab-docs-path dup require dup scaffold-help vocab-docs-path
(normalize-path) fuel-eval-set-result ; (normalize-path) fuel-eval-set-result ;

7
misc/fuel/fuel-scaffold.el
View File

@ -65,11 +65,14 @@ You can configure `fuel-scaffold-developer-name' (set by default to
"Creates, if it does not already exist, a help file with "Creates, if it does not already exist, a help file with
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." With prefix argument, ask for the vocabulary name.
You can configure `fuel-scaffold-developer-name' (set by default to
`user-full-name') for the name to be inserted in the generated file."
(interactive "P") (interactive "P")
(let* ((vocab (or (and (not arg) (fuel-syntax--current-vocab)) (let* ((vocab (or (and (not arg) (fuel-syntax--current-vocab))
(fuel-edit--read-vocabulary-name nil))) (fuel-edit--read-vocabulary-name nil)))
(cmd `(:fuel* (,vocab fuel-scaffold-help) "fuel")) (cmd `(:fuel* (,vocab ,fuel-scaffold-developer-name fuel-scaffold-help)
"fuel"))
(ret (fuel-eval--send/wait cmd)) (ret (fuel-eval--send/wait cmd))
(file (fuel-eval--retort-result ret))) (file (fuel-eval--retort-result ret)))
(unless file (unless file