- printed a minimal list of keychords on the welcome window.

src/constants.lisp

@@ -50,7 +50,7 @@ For bug report please point your browser to:
 
 (define-constant +welcome-message+
   (format nil
- "
+ "[ Note: this window can be scrolled using using ⇧ and ⇩ ]
                         _______
                        /_  __(_)___  ____ ___  ____  ____
                         / / / / __ \\/ __ `__ \\/ __ \\/ __ \\
@@ -59,11 +59,12 @@ For bug report please point your browser to:
                                                  /_/
 
 
+
 Welcome to ~a! A gemini, pleroma and kami client.
 
 - for available keychords (sequence of keys to fire a command) help type '?';
 
-- for searching in the help type: 'C-h a' (control and 'h' keys toghether, then 'a');
+- for searching in the help type: 'C-h a' (control and 'h' keys together, then 'a');
   [if this keychords  does not works, ask to your system administrator]
 
 - documentation is available in man format. Type 'man tinmop' at shell's prompt
@@ -74,22 +75,31 @@ Welcome to ~a! A gemini, pleroma and kami client.
 - if you need more help or for bug report: ~a
   (collaborations are welcome too!).
 
-Some useful keybinding to start (manpage contains the full list):
+Some useful keycords to start (the man page contains the full list):
+
+· general use
+  - 'q' quit program
+  - '/' search
 
 · gemini
   - '>' open URL (also kami is supported)
   - 'l' open link window
   - 'b' go back in history of visited URLs
   - '!' search geminispace (contacts gemini://geminispace.info/search)
+
 · pleroma
   - 'C-t u' update current timeline
   - 'C-t c' change timeline
+  - 'v'     view post's attachments
+  - 'l'     open a window containing the links in the post
 
 · kamid
   - 'newline' open node
   - 'e'       edit node
   - 'd'       download file
   - 'u'       upload file
+  - 'M-u'     mirror local tree on server
+  - 'M-d'     mirror remote tree on local computer
 
 Enjoy!
 

src/line-oriented-window.lisp

@@ -540,6 +540,7 @@ will fire the `callback' function (with the selected field from `all-fields'
              ((string= c "^J")
               (let ((selected-fields (selected-row-fields high-level-window))
                     (selected-text   (selected-text (selected-row high-level-window))))
-                (funcall callback selected-text selected-fields))))
+                (when callback
+                  (funcall callback selected-text selected-fields)))))
            (draw))
       (win-close high-level-window))))

src/ui-goodies.lisp

@@ -1716,15 +1716,12 @@ certificate).
 
 (defun show-welcome-window ()
   "Show an informative window about this program"
-  (let ((lines (text-utils:split-lines +welcome-message+))
+  (let ((lines (text-utils:split-lines +welcome-message+)))
-        (bg    (swconf:win-bg swconf:+key-help-dialog+))
+    (line-oriented-window:make-blocking-list-dialog-window *main-window*
-        (fg    (swconf:win-fg swconf:+key-help-dialog+)))
+                                                           lines
-    (windows:make-blocking-message-dialog *main-window*
+                                                           lines
-                                          nil
+                                                           nil
-                                          (_ " Welcome ")
+                                                           (_ " Welcome "))))
-                                          lines
-                                          bg
-                                          fg)))
 
 (defun reset-timeline-pagination ()
   "Removes the pagination data for current timeline and folder