diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor index 5d4149867b..ded10b66cb 100644 --- a/extra/fuel/fuel.factor +++ b/extra/fuel/fuel.factor @@ -134,14 +134,16 @@ PRIVATE> ! Scaffold support +: fuel-scaffold-name ( devname -- ) + [ developer-name set ] when* ; + : 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 ; : fuel-scaffold-help ( name devname -- ) - developer-name set - dup require dup scaffold-help vocab-docs-path - (normalize-path) fuel-eval-set-result ; + [ fuel-scaffold-name dup require dup scaffold-help ] with-scope + vocab-docs-path (normalize-path) fuel-eval-set-result ; : fuel-scaffold-get-root ( name -- ) find-vocab-root fuel-eval-set-result ; diff --git a/misc/fuel/fuel-scaffold.el b/misc/fuel/fuel-scaffold.el index ac400c5622..711862b615 100644 --- a/misc/fuel/fuel-scaffold.el +++ b/misc/fuel/fuel-scaffold.el @@ -28,7 +28,8 @@ (defcustom fuel-scaffold-developer-name user-full-name "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) diff --git a/misc/fuel/fuel-syntax.el b/misc/fuel/fuel-syntax.el index 61aa2b7cdd..3fc16e7af6 100644 --- a/misc/fuel/fuel-syntax.el +++ b/misc/fuel/fuel-syntax.el @@ -59,7 +59,7 @@ "POSTPONE:" "PREDICATE:" "PRIMITIVE:" "PRIVATE>" "PROVIDE:" "QUALIFIED-WITH:" "QUALIFIED:" "read-only" "RENAME:" "REQUIRE:" "REQUIRES:" - "SINGLETON:" "SINGLETONS:" "SLOT:" "SYMBOL:" "SYMBOLS:" + "SINGLETON:" "SINGLETONS:" "SLOT:" "SYMBOL:" "SYMBOLS:" "SYNTAX:" "TUPLE:" "t" "t?" "TYPEDEF:" "UNION:" "USE:" "USING:" "VARS:")) @@ -109,7 +109,7 @@ (format "\\_<\\(%s\\)?: +\\_<\\(\\w+\\)\\_>" (regexp-opt '(":" "GENERIC" "DEFER" "HOOK" "MAIN" "MATH" "POSTPONE" - "SYMBOL" "RENAME")))) + "SYMBOL" "SYNTAX" "RENAME")))) (defconst fuel-syntax--alias-definition-regex "^ALIAS: +\\(\\_<.+?\\_>\\) +\\(\\_<.+?\\_>\\)") @@ -156,6 +156,7 @@ "INTERSECTION:" "M" "MACRO" "MACRO:" "MEMO" "MEMO:" "METHOD" + "SYNTAX" "PREDICATE" "PRIMITIVE" "UNION"))