1
0
Fork 0

- added command 'print-post-id';

- removed importing of alexandria in modules, used local-nickname, instead.
This commit is contained in:
cage 2022-09-06 18:33:20 +02:00
parent 72cef9943b
commit 718690b323
4 changed files with 13 additions and 5 deletions

View File

@ -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*)

View File

@ -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*

View File

@ -18,9 +18,9 @@
(in-package :modules)
(defun load-sys-module (path &key (not-found-signal-error t))
(when-let ((file (if not-found-signal-error
(get-sys-config-file path)
(ignore-errors (get-sys-config-file path)))))
(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)))
(defun load-module (path &key (not-found-signal-error t))

View File

@ -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