various cosmetic tidying

cache.rkt

@@ -44,6 +44,3 @@
     (cache path))
   
   (hash-ref (cache-ref path) key))
-
-
-

file.rkt

@@ -111,6 +111,7 @@
   (coerce/symbol? . -> . (listof complete-path?))
   (map ->complete-path (filter (λ(i) (has-ext? i ext)) (directory-list (world:current-project-root)))))
 
+
 (define+provide (racket-source? x)
   (->boolean (and (pathish? x) (has-ext? (->path x) 'rkt))))
 
@@ -119,10 +120,12 @@
 (define (unsaved-source? path-string)
   ((substring (->string path-string) 0 7) . equal? . "unsaved"))
 
+
 (define+provide (magic-directory? path)
   (and (directory-exists? path) 
        (or (ends-with? (path->string path) "compiled"))))
 
+
 (define+provide (pollen-related-file? file)
   (ormap (λ(proc) (proc file)) (list
                                 preproc-source? 

main.rkt

@@ -4,4 +4,5 @@
 
 (module reader racket/base
   (require pollen/reader-base)
-  (define+provide-reader-in-mode world:mode-auto)) ; because default mode in file is auto
+  ;; because default mode in file is auto
+  (define+provide-reader-in-mode world:mode-auto)) 

markdown.rkt

@@ -1,5 +1,6 @@
 #lang racket/base
 (require pollen/main-base)
+
 (define+provide-module-begin-in-mode world:mode-markdown)
 
 (module reader racket/base

markup.rkt

@@ -1,5 +1,6 @@
 #lang racket/base
 (require pollen/main-base)
+
 (define+provide-module-begin-in-mode world:mode-markup)
 
 (module reader racket/base

pre.rkt

@@ -1,5 +1,6 @@
 #lang racket/base
 (require pollen/main-base)
+
 (define+provide-module-begin-in-mode world:mode-preproc)
 
 (module reader racket/base

ptree.rkt

@@ -1,5 +1,6 @@
 #lang racket/base
 (require pollen/main-base)
+
 (define+provide-module-begin-in-mode world:mode-pagetree)
 
 (module reader racket/base

reader-base.rkt

@@ -3,6 +3,7 @@
 
 (provide define+provide-reader-in-mode (all-from-out pollen/world))
 
+
 (define (make-custom-read custom-read-syntax-proc) 
   (λ(p)
     (syntax->datum

server-extras/poldash.css

@@ -90,6 +90,7 @@ a:active {
     text-decoration: underline;
 }
 
+
 tt {
     font-family: "Source Code Pro";
     font-size: 100%;

server.rkt

@@ -12,7 +12,6 @@
 (provide start-server)
 
 (define (start-server)
-  
   (define-values (pollen-servlet _)
     (dispatch-rules
      [((string-arg) ... (? pagetree-source?)) route-dashboard]

tag.rkt

@@ -27,5 +27,3 @@
       `(,id ,@(if (equal? attrs null) null (list (reverse attrs))) ,@body)))
   
   (apply compose1 (map make-one-tag ids)))
-
-

template.rkt

@@ -85,4 +85,3 @@
                       (with-handlers ([exn:fail? (λ(exn) (error (format "within when/block, ~a" (exn-message exn))))])
                         (map ->string (list body ...)))) 
            "")]))
-

tmpl.rkt

@@ -1,5 +1,6 @@
 #lang racket/base
 (require pollen/main-base)
+
 (define+provide-module-begin-in-mode world:mode-template)
 
 (module reader racket/base