From 1d03a2ad528aece1b417246c16eeb2aac37cf6a6 Mon Sep 17 00:00:00 2001
From: haskal <haskal@awoo.systems>
Date: Sun, 6 Jun 2021 23:33:18 -0400
Subject: [PATCH] fix name.function style

---
 ext-syntax/css/syntax.scss |  2 +-
 xtemplate.rkt              | 12 ++++--------
 2 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/ext-syntax/css/syntax.scss b/ext-syntax/css/syntax.scss
index 851faa5..e0f58d9 100644
--- a/ext-syntax/css/syntax.scss
+++ b/ext-syntax/css/syntax.scss
@@ -50,7 +50,7 @@ pre.highlight, .highlight {
   .nd { color: $hue-6-2; } /* Name.Decorator */
   .ni { color: $hue-6-2; } /* Name.Entity */
   .ne { color: $hue-6-2; } /* Name.Exception */
-  .nf { color: $mono-1; } /* Name.Function */
+  .nf { color: $hue-2; } /* Name.Function */
   .nl { color: $hue-6-2; } /* Name.Label */
   .nn { color: $mono-1; } /* Name.Namespace */
   .nx { color: $mono-1; } /* Name.Other */
diff --git a/xtemplate.rkt b/xtemplate.rkt
index f6735f7..cedcd7b 100644
--- a/xtemplate.rkt
+++ b/xtemplate.rkt
@@ -29,15 +29,11 @@
   #:with #%template-args (datum->syntax #'body '#%template-args)
   #:with execute-fn #'(λ (#%template-args) body)
   #:with expanded-execute-fn #'execute-fn
-  ; #:with expanded-execute-fn (begin
-  ;                              (displayln "expanding!")
-  ;                              (local-expand #'execute-fn (syntax-local-context) '()))
+  ; #:with expanded-execute-fn (local-expand #'execute-fn (syntax-local-context) '())
   ; #:with (unbound-ids ...)
-  ;   (begin
-  ;     (displayln "collecting unbounds")
-  ;     (map (λ (stx) #`(quote #,stx)) (set->list (collect-unbounds #'expanded-execute-fn))))
+  ;   (map (λ (stx) #`(quote #,stx)) (set->list (collect-unbounds #'expanded-execute-fn)))
   (#%module-begin
-   ;(provide required-ids)
-   ;(define required-ids (list unbound-ids ...))
+   ; (provide required-ids)
+   ; (define required-ids (list unbound-ids ...))
    (provide execute)
    (define execute expanded-execute-fn)))