- added command 'print-post-id';

- removed importing of alexandria in modules, used local-nickname, instead.

etc/init.lisp

@@ -256,6 +256,14 @@
 
 ;; thread window keymap
 
+(defun print-post-id ()
+  "Print the post's ID to the command window"
+  (a:when-let* ((selected-row (line-oriented-window:selected-row-fields specials:*thread-window*))
+                (status-id    (db:row-message-status-id selected-row)))
+    (ui:info-message (format nil "ID: ~a" status-id))))
+
+(define-key "I"         #'print-post-id                             *thread-keymap*)
+
 (define-key "up"        #'thread-go-up                                *thread-keymap*)
 
 (define-key "down"      #'thread-go-down                              *thread-keymap*)

modules/delete-by-regex.lisp

@@ -17,7 +17,7 @@
 (in-package :modules)
 
 (defun mark-message-deleted-by-regex (regex)
-  (when-let ((scanner (ignore-errors (create-scanner regex))))
+  (a:when-let ((scanner (ignore-errors (create-scanner regex))))
     (with-accessors ((row-selected-index row-selected-index)
                      (timeline-type      thread-window:timeline-type)
                      (timeline-folder    thread-window:timeline-folder)) *thread-window*

src/modules.lisp

@@ -18,7 +18,7 @@
 (in-package :modules)
 
 (defun load-sys-module (path &key (not-found-signal-error t))
-  (when-let ((file (if not-found-signal-error
+  (a:when-let ((file (if not-found-signal-error
                          (get-sys-config-file path)
                          (ignore-errors (get-sys-config-file path)))))
     (load file :verbose nil :print nil)))

src/package.lisp

@@ -2973,7 +2973,6 @@
 (defpackage :modules
   (:use
    :cl
-   :alexandria
    :cl-ppcre
    :config
    :constants
@@ -2986,6 +2985,7 @@
    :keybindings
    :program-events
    :ui-goodies)
+  (:local-nicknames (:a :alexandria))
   (:shadowing-import-from :resources-utils :init)
   (:export
    :load-sys-module