Commits

Anonymous committed 0192012

Make crazy-trim slightly less crazy?!

Comments (0)

Files changed (1)

 
 ;; This is only to make Markdown Test happy
 (define (crazy-trim line)
-  (irregex-replace '(seq (submatch (* #\space)) #\newline)
-                   line
-                   (lambda (m)
-                     (let ((s (irregex-match-substring m 1)))
-                       (if (= 1 (string-length s))
-                           " \n"
-                           "\n")))))
+  (if (equal? line "> \n")
+      line
+      (string-append (string-trim-right line) "\n")))
 
 ;; VerbatimChunk = a:StartList
 ;;                 ( BlankLine { a = cons(mk_str("\n"), a); } )*
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.