FUEL: developer-name is not overriden in scaffolds if so desired.

Jose A. Ortega Ruiz 2009-06-01 23:09:30 +02:00
parent 0aa4aed1d3
commit 36226abd21
2 changed files with 8 additions and 5 deletions

View File

@ -134,14 +134,16 @@ PRIVATE>
! Scaffold support ! Scaffold support
: fuel-scaffold-name ( devname -- )
[ developer-name set ] when* ;
: fuel-scaffold-vocab ( root name devname -- ) : fuel-scaffold-vocab ( root name devname -- )
developer-name set dup [ scaffold-vocab ] dip [ fuel-scaffold-name dup [ scaffold-vocab ] dip ] with-scope
dup require vocab-source-path (normalize-path) fuel-eval-set-result ; dup require vocab-source-path (normalize-path) fuel-eval-set-result ;
: fuel-scaffold-help ( name devname -- ) : fuel-scaffold-help ( name devname -- )
developer-name set [ fuel-scaffold-name dup require dup scaffold-help ] with-scope
dup require dup scaffold-help vocab-docs-path vocab-docs-path (normalize-path) fuel-eval-set-result ;
(normalize-path) fuel-eval-set-result ;
: fuel-scaffold-get-root ( name -- ) find-vocab-root fuel-eval-set-result ; : fuel-scaffold-get-root ( name -- ) find-vocab-root fuel-eval-set-result ;

View File

@ -28,7 +28,8 @@
(defcustom fuel-scaffold-developer-name user-full-name (defcustom fuel-scaffold-developer-name user-full-name
"The name to be inserted as yours in scaffold templates." "The name to be inserted as yours in scaffold templates."
:type 'string :type '(choice string
(const :tag "Factor's value for developer-name" nil))
:group 'fuel-scaffold) :group 'fuel-scaffold)