From a1192bf88acbe39680a56844a38c76769626347d Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Tue, 17 Aug 2021 14:04:07 +0300
Subject: [PATCH 1/2] Add Emacs Unicode from lockywolf

---
 recipes/display-unicode-symbols-in-emacs.md | 36 +++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

diff --git a/recipes/display-unicode-symbols-in-emacs.md b/recipes/display-unicode-symbols-in-emacs.md
index e242198..ff0a400 100644
--- a/recipes/display-unicode-symbols-in-emacs.md
+++ b/recipes/display-unicode-symbols-in-emacs.md
@@ -7,9 +7,11 @@ special Unicode characters like `λ` and `≥`.
 
 ## Solution
 
-The following works in modern versions of GNU Emacs:
+The following solutions work in modern versions of GNU Emacs.
 
-```Emacs Lisp
+### Arrows and lambda
+
+```Emacs-Lisp
 (defvar pretty-scheme-keywords
   (mapcar (lambda (pair)
             (cons (concat "\\(" (regexp-quote (car pair)) "\\)")
@@ -38,3 +40,33 @@ The following works in modern versions of GNU Emacs:
 ```
 
 Credit: [Arthur A. Gleckler](https://speechcode.com/)
+
+### APL-like characters
+
+```Emacs-Lisp
+(add-hook
+ 'scheme-mode-hook
+ (lambda ()
+   (setq prettify-symbols-alist
+         (append
+          prettify-symbols-alist
+          '(("<="       . ?≤)
+            (">="       . ?≥)
+            ("define"   . ?≝)
+            ("set!"     . ?≐)
+            ("set-car!" . ?≔)
+            ("set-cdr!" . ?≕)
+            ("#t"       . ?✓)
+            ("#f"       . ?✗)
+            ("'()"      . ?∅)
+            ("if"       . ?⁇)
+            ("or"       . ?∨)
+            ("and"      . ?∧))))))
+```
+
+Credit: [Vladimir Nikishkin](https://lockywolf.net/)
+
+### Greek letters
+
+A [`prettify-greek`](https://melpa.org/#/prettify-greek) package can
+be installed from MELPA.

From 5ffc6a15ffca1d17e35c9164a66b1100b09228bd Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Tue, 17 Aug 2021 18:28:48 +0300
Subject: [PATCH 2/2] Use seq-concatenate by request

---
 recipes/display-unicode-symbols-in-emacs.md | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/recipes/display-unicode-symbols-in-emacs.md b/recipes/display-unicode-symbols-in-emacs.md
index ff0a400..ba095cd 100644
--- a/recipes/display-unicode-symbols-in-emacs.md
+++ b/recipes/display-unicode-symbols-in-emacs.md
@@ -48,8 +48,8 @@ Credit: [Arthur A. Gleckler](https://speechcode.com/)
  'scheme-mode-hook
  (lambda ()
    (setq prettify-symbols-alist
-         (append
-          prettify-symbols-alist
+         (seq-concatenate
+          'list
           '(("<="       . ?≤)
             (">="       . ?≥)
             ("define"   . ?≝)
@@ -61,7 +61,8 @@ Credit: [Arthur A. Gleckler](https://speechcode.com/)
             ("'()"      . ?∅)
             ("if"       . ?⁇)
             ("or"       . ?∨)
-            ("and"      . ?∧))))))
+            ("and"      . ?∧))
+          prettify-symbols-alist))))
 ```
 
 Credit: [Vladimir Nikishkin](https://lockywolf.net/)