cripslock

commit 7eec9e9f1b3610f4c61e38e3d924c71ad99eac31
parent 0d1debaa161e3a846ccca80fbe1da6d220758e08
Author: Daniel Barlow <dan@telent.net>
Date:   Tue,  5 Aug 2025 22:35:04 +0100

strip trailing whitespace

Diffstat:
M
textile.fnl
 | 
9
++++-----

1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/textile.fnl b/textile.fnl
@@ -20,11 +20,10 @@
 
               :pre (* (P "<pre>") (V :pre-body) (P "</pre>")
                       (^ (P "\n") 0))
-              
+
               :pre-body (/  (^ (- (P 1) (P "</pre>")) 1)
                                #(.. "pre. " $1))
 
-
               :para (* (/ (^ (- (P 1) (P "\n\n")) 1) #(.. $1 "\n"))
                        (+ (^ (P "\n") 2) eof))
               })]
@@ -372,7 +371,7 @@ filesystem.  "])
 
 (define-tests :parse-stream
   (expect= (parse-string "h1. Hi") [[:h1 "Hi\n"]])
-  (expect= (parse-string 
+  (expect= (parse-string
 "kernel about the size of sigset_t; given that the kernel puts its idea
 ofa sigset_t onto my stack, it seems a trifle unsporting to arrange
 headers so that i only get access to the glibc version - especially"
@@ -382,7 +381,7 @@ headers so that i only get access to the glibc version - especially"
 ofa sigset_t onto my stack, it seems a trifle unsporting to arrange
 headers so that i only get access to the glibc version - especially
 "]])
-  (expect= (parse-string 
+  (expect= (parse-string
 "was immensely cheered to find that none of the other interviewees -\r
 interesting people, great hackers and luminaries among them - were\r
 ")
@@ -391,7 +390,7 @@ interesting people, great hackers and luminaries among them - were\r
 interesting people, great hackers and luminaries among them - were\r
 
 "]])
-  
+
   (fn convert [name]
     (with-open [f (assert (io.open name :r))]
       (with-open [out (assert (io.tmpfile))]