mirror of https://codeberg.org/cage/tinmop/
- added command 'print-post-id';
- removed importing of alexandria in modules, used local-nickname, instead.
This commit is contained in:
parent
72cef9943b
commit
718690b323
|
@ -256,6 +256,14 @@
|
||||||
|
|
||||||
;; thread window keymap
|
;; 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 "up" #'thread-go-up *thread-keymap*)
|
||||||
|
|
||||||
(define-key "down" #'thread-go-down *thread-keymap*)
|
(define-key "down" #'thread-go-down *thread-keymap*)
|
||||||
|
|
|
@ -17,7 +17,7 @@
|
||||||
(in-package :modules)
|
(in-package :modules)
|
||||||
|
|
||||||
(defun mark-message-deleted-by-regex (regex)
|
(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)
|
(with-accessors ((row-selected-index row-selected-index)
|
||||||
(timeline-type thread-window:timeline-type)
|
(timeline-type thread-window:timeline-type)
|
||||||
(timeline-folder thread-window:timeline-folder)) *thread-window*
|
(timeline-folder thread-window:timeline-folder)) *thread-window*
|
||||||
|
|
|
@ -18,9 +18,9 @@
|
||||||
(in-package :modules)
|
(in-package :modules)
|
||||||
|
|
||||||
(defun load-sys-module (path &key (not-found-signal-error t))
|
(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)
|
(get-sys-config-file path)
|
||||||
(ignore-errors (get-sys-config-file path)))))
|
(ignore-errors (get-sys-config-file path)))))
|
||||||
(load file :verbose nil :print nil)))
|
(load file :verbose nil :print nil)))
|
||||||
|
|
||||||
(defun load-module (path &key (not-found-signal-error t))
|
(defun load-module (path &key (not-found-signal-error t))
|
||||||
|
|
|
@ -2973,7 +2973,6 @@
|
||||||
(defpackage :modules
|
(defpackage :modules
|
||||||
(:use
|
(:use
|
||||||
:cl
|
:cl
|
||||||
:alexandria
|
|
||||||
:cl-ppcre
|
:cl-ppcre
|
||||||
:config
|
:config
|
||||||
:constants
|
:constants
|
||||||
|
@ -2986,6 +2985,7 @@
|
||||||
:keybindings
|
:keybindings
|
||||||
:program-events
|
:program-events
|
||||||
:ui-goodies)
|
:ui-goodies)
|
||||||
|
(:local-nicknames (:a :alexandria))
|
||||||
(:shadowing-import-from :resources-utils :init)
|
(:shadowing-import-from :resources-utils :init)
|
||||||
(:export
|
(:export
|
||||||
:load-sys-module
|
:load-sys-module
|
||||||
|
|
Loading…
Reference in New Issue