Support no args code view claims

Author: cwervo

virtual-programs/code-view.folk

@@ -1,6 +1,7 @@
 namespace eval ::codeView {
   # TODO: also don't hardcode this? Or make it in meters once that's simple
   variable marginInPx 10
+  variable defaults { widthScale 1 heightScale 1 textScale 0.6 }
 
   proc getEmAndAdvance {textScale} {
     set em [expr {$textScale * 25}]
@@ -32,10 +33,13 @@ namespace eval ::codeView {
   }
 }
 
+When /someone/ claims /view/ is a code view {
+    Claim $view is a code view with {*}$codeView::defaults
+}
+
 # initial setup
 When /view/ is a code view with /...options/ {
-  set defaults { widthScale 1 heightScale 1 textScale 0.6 }
-  set options [dict merge $defaults $options]
+  set options [dict merge $codeView::defaults $options]
 
   # select which program the view is viewing
   When $view points up at /program/ {