style thing: indenting tuple slots

basis/alien/c-types/c-types.factor

@@ -18,21 +18,21 @@ SYMBOLS:
 SINGLETON: void
 
 TUPLE: abstract-c-type
-{ class class initial: object }
+    { class class initial: object }
-{ boxed-class class initial: object }
+    { boxed-class class initial: object }
-{ boxer-quot callable }
+    { boxer-quot callable }
-{ unboxer-quot callable }
+    { unboxer-quot callable }
-{ getter callable }
+    { getter callable }
-{ setter callable }
+    { setter callable }
-{ size integer }
+    { size integer }
-{ signed boolean }
+    { signed boolean }
-{ align integer }
+    { align integer }
-{ align-first integer } ;
+    { align-first integer } ;
 
 TUPLE: c-type < abstract-c-type
-boxer
+    boxer
-unboxer
+    unboxer
-{ rep initial: int-rep } ;
+    { rep initial: int-rep } ;
 
 : <c-type> ( -- c-type )
     \ c-type new ; inline

basis/threads/threads.factor

@@ -51,16 +51,16 @@ PRIVATE>
 SYMBOL: initial-thread
 
 TUPLE: thread
-{ name string }
+    { name string }
-{ quot callable initial: [ ] }
+    { quot callable initial: [ ] }
-{ exit-handler callable initial: [ ] }
+    { exit-handler callable initial: [ ] }
-{ id integer }
+    { id integer }
-{ context box }
+    { context box }
-state
+    state
-runnable
+    runnable
-mailbox
+    mailbox
-{ variables hashtable }
+    { variables hashtable }
-sleep-entry ;
+    sleep-entry ;
 
 : self ( -- thread )
     OBJ-CURRENT-THREAD special-object { thread } declare ; inline

basis/ui/gestures/gestures.factor

@@ -82,20 +82,20 @@ TUPLE: button-up mods # ;   C: <button-up> button-up
 TUPLE: button-down mods # ; C: <button-down> button-down
 
 SINGLETONS:
-motion
+    motion
-mouse-scroll
+    mouse-scroll
-mouse-enter mouse-leave
+    mouse-enter mouse-leave
-lose-focus gain-focus ;
+    lose-focus gain-focus ;
 
 ! Higher-level actions
 SINGLETONS:
-undo-action redo-action
+    undo-action redo-action
-cut-action copy-action paste-action
+    cut-action copy-action paste-action
-delete-action select-all-action
+    delete-action select-all-action
-left-action right-action up-action down-action
+    left-action right-action up-action down-action
-zoom-in-action zoom-out-action
+    zoom-in-action zoom-out-action
-new-action open-action save-action save-as-action
+    new-action open-action save-action save-as-action
-revert-action close-action ;
+    revert-action close-action ;
 
 UNION: action
 undo-action redo-action

core/hash-sets/hash-sets.factor

@@ -8,9 +8,9 @@ vectors ;
 IN: hash-sets
 
 TUPLE: hash-set
-{ count array-capacity }
+    { count array-capacity }
-{ deleted array-capacity }
+    { deleted array-capacity }
-{ array array } ;
+    { array array } ;
 
 <PRIVATE
 

core/hashtables/hashtables.factor

@@ -5,9 +5,9 @@ math.private sequences sequences.private slots.private vectors ;
 IN: hashtables
 
 TUPLE: hashtable
-{ count array-capacity }
+    { count array-capacity }
-{ deleted array-capacity }
+    { deleted array-capacity }
-{ array array } ;
+    { array array } ;
 
 <PRIVATE