From 67c793633bfcd46997155341dd4b1776fb6a6728 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 14 Mar 2022 19:19:24 -0500
Subject: Added help topic explaining icons in printouts

---
 app/app.lisp | 42 +++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 19 deletions(-)

diff --git a/app/app.lisp b/app/app.lisp
index 677eed4..9b313db 100644
--- a/app/app.lisp
+++ b/app/app.lisp
@@ -68,6 +68,16 @@ export EDITOR=/usr/bin/zile
 
 ")
 
+(defparameter +icons-in-printout-docs+
+  "In the printout of oneliners, several unicode \"icons\" appear.
+Their meaning is as follows:
+
+- ⚠ : Indicates that the oneliner is flagged. 
+- 🔒 : Indicates that the oneliner is locked.
+- 📋 : Indicates that the oneliner will be copied to the clipboard.
+
+")
+
 
 ;;; CLON SYNOPSIS DEFINITION 
 
@@ -201,6 +211,8 @@ export EDITOR=/usr/bin/zile
          (text :contents +configure-your-edtior+))
   (group (:header "VARIABLES IN ONELINERS")
          (text :contents +oneliners-variables-help-text+))
+  (group (:header "ICONS IN PRINTOUT")
+         (text :contents +icons-in-printout-docs+))
   (group (:header "HELP MENU")
          (text :contents "Usage: ol help [SECTION]")
          (text :contents " ")
@@ -212,26 +224,18 @@ export EDITOR=/usr/bin/zile
                 #\newline
                 (tabulate-strings
                  40 5
-                 '("search"
-                   "run"
-                   "clip"
-                   "show"
-                   "new"
-                   "edit"
-                   "delete"
-                   "drafts"
-                   "trash"
-                   "publish"
-                   "flag"
-                   "lock"
-                   "redeem"
-                   "invite"
-                   "login"
-                   "whois"
-                   "password"
-                   "signature"))))
+                 '("search"  "run"  "clip"   "show"   "new"  "edit"
+                   "delete"  "drafts"  "trash"  "publish"  "flag"
+                   "lock"  "redeem" "invite" "login"  "whois"
+                   "password" "signature"))))
          (text :contents " ")
-         (text :contents "Additional topics include: editor variables")))
+         (text :contents "Additional topics include:")
+(text :contents
+               (str:join
+                #\newline
+                (tabulate-strings
+                 40 5
+                 '("variables" "editor" "icons"))))))
 
 ;;; HELPERS
 
-- 
cgit v1.2.3