docs: improve haskell example (thanks @imcotton)

charmbracelet · Aug 26, 2024 · 2d17a39 · 2d17a39
1 parent 4c01593
commit 2d17a39
Show file tree

Hide file tree

Showing 12 changed files with 19 additions and 13 deletions.
diff --git a/.gitattributes b/.gitattributes
@@ -1 +1,9 @@
 *.golden linguist-generated
+styles/gallery/auto.png filter=lfs diff=lfs merge=lfs -text
+styles/gallery/dark.png filter=lfs diff=lfs merge=lfs -text
+styles/gallery/dracula.png filter=lfs diff=lfs merge=lfs -text
+styles/gallery/light.png filter=lfs diff=lfs merge=lfs -text
+styles/gallery/notty.png filter=lfs diff=lfs merge=lfs -text
+styles/gallery/pink.png filter=lfs diff=lfs merge=lfs -text
+styles/gallery/tokyo-night.png filter=lfs diff=lfs merge=lfs -text
+styles/gallery/ascii.png filter=lfs diff=lfs merge=lfs -text
diff --git a/README.md b/README.md
@@ -11,7 +11,7 @@
 
 Stylesheet-based markdown rendering for your CLI apps.
 
-![Glamour dark style example](https://stuff.charm.sh/glamour/glamour-example.png)
+![Glamour dark style example](https://github.com/user-attachments/assets/6a1a08c5-132c-4c9b-ab01-7fd7899eab97)
 
 `glamour` lets you render [markdown](https://en.wikipedia.org/wiki/Markdown)
 documents & templates on [ANSI](https://en.wikipedia.org/wiki/ANSI_escape_code)

diff --git a/examples/artichokes/artichokes.md b/examples/artichokes/artichokes.md
@@ -51,16 +51,15 @@ Remember that to compile Haskell you’ll need `ghc`.
 ```haskell
 module Main where
 
-import Data.Function ( (&) )
-import Data.List ( intercalculate )
+import Data.List (intercalate)
 
 hello :: String -> String
-hello s =
-    "Hello, " ++ s ++ "."
+hello s = "Hello, " <> s <> "."
 
 main :: IO ()
-main =
-    map hello [ "artichoke", "alcachofa" ] & intercalculate "\n" & putStrLn
+main = putStrLn
+     $ intercalate "\n"
+     $ hello <$> [ "artichoke", "alcachofa" ]
 ```
 
 ***

diff --git a/styles/gallery/ascii.png b/styles/gallery/ascii.png
diff --git a/styles/gallery/auto.png b/styles/gallery/auto.png
diff --git a/styles/gallery/dark.png b/styles/gallery/dark.png
diff --git a/styles/gallery/dracula.png b/styles/gallery/dracula.png
diff --git a/styles/gallery/light.png b/styles/gallery/light.png
diff --git a/styles/gallery/notty.png b/styles/gallery/notty.png
diff --git a/styles/gallery/pink.png b/styles/gallery/pink.png
diff --git a/styles/gallery/tokyo-night.png b/styles/gallery/tokyo-night.png
diff --git a/testdata/example.md b/testdata/example.md
@@ -51,16 +51,15 @@ Remember that to compile Haskell you’ll need `ghc`.
 ```haskell
 module Main where
 
-import Data.Function ( (&) )
-import Data.List ( intercalculate )
+import Data.List (intercalate)
 
 hello :: String -> String
-hello s =
-    "Hello, " ++ s ++ "."
+hello s = "Hello, " <> s <> "."
 
 main :: IO ()
-main =
-    map hello [ "artichoke", "alcachofa" ] & intercalculate "\n" & putStrLn
+main = putStrLn
+     $ intercalate "\n"
+     $ hello <$> [ "artichoke", "alcachofa" ]
 ```
 
 ***