From e11ce9bdb2b8a54865edb93dc896479dfafba173 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 5 Nov 2021 23:22:55 +0530
Subject: doc: Add spell check workflow to tutorial.

* doc/ccwl.skb (Tutorial)[Let's write a spell check workflow]: New
section.
* Makefile.am (doc/spell-check.out): New target.
(EXTRA_DIST): Add doc/spell-check-text.txt and doc/dictionary.
* doc/dictionary, doc/spell-check-text.txt,
doc/spell-check-workflow-1.scm, doc/spell-check-workflow-2.scm,
doc/spell-check.scm: New files.
---
 doc/spell-check-workflow-2.scm | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 doc/spell-check-workflow-2.scm

(limited to 'doc/spell-check-workflow-2.scm')

diff --git a/doc/spell-check-workflow-2.scm b/doc/spell-check-workflow-2.scm
new file mode 100644
index 0000000..15b380f
--- /dev/null
+++ b/doc/spell-check-workflow-2.scm
@@ -0,0 +1,7 @@
+(workflow (text-file dictionary)
+  (tee (pipe (split-words #:text text-file)
+                   (downcase #:words words)
+                   (sort (sort-words) #:words downcased-words)
+                   (rename #:sorted-words sorted))
+             (pipe (sort (sort-dictionary) #:words dictionary)
+                   (rename #:sorted-dictionary sorted))))
-- 
cgit v1.2.3