From ec7de1aa1ad2bc14b3b1572ea4cc5024a6c662ae Mon Sep 17 00:00:00 2001 From: Uko Kokņevičs Date: Sat, 18 Oct 2025 03:06:09 +0300 Subject: Add ocicl lint --- src/main.lisp | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'src/main.lisp') diff --git a/src/main.lisp b/src/main.lisp index 2e01411..ba3e343 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -9,7 +9,8 @@ (:import-from :ukkoclot/db :with-db) (:import-from :ukkoclot/serializing :fixup-value) (:import-from :ukkoclot/state :make-bot :bot-config :bot-power-on) - (:import-from :ukkoclot/strings :escape-xml :is-tg-whitespace :is-tg-whitespace-str :starts-with :starts-with-ignore-case) + (:import-from :ukkoclot/strings + :escape-xml :is-tg-whitespace :is-tg-whitespace-str :starts-with :starts-with-ignore-case) (:local-nicknames (:jzon :com.inuoe.jzon)) (:export :main)) @@ -26,7 +27,9 @@ (defun start-swank (port) (log:info "Starting a SWANK server on port ~A..." port) (swank:create-server :port port :dont-close t) - (log:info "SWANK started. You can connect to it by forwarding ports via SSH: `ssh -L~A:127.0.0.1:~A username@server.com'" port port) + (log:info + "SWANK started. You can connect to it by forwarding ports via SSH: `ssh -L~A:127.0.0.1:~A username@server.com'" + port port) (log:info "And then afterwards M-x slime-connect giving localhost and ~A" port)) (defun stop-swank (port) @@ -214,9 +217,10 @@ (reply-message bot msg "OwO")) ((string-equal text "waow") - (reply-message bot - (or (message-reply-to-message msg) msg) - "BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED")) + (reply-message + bot + (or (message-reply-to-message msg) msg) + "BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED BASED")) ((string-equal text "what") (reply-message bot msg @@ -232,8 +236,7 @@ (write-string "GIR" s)) (if (char= (elt text 3) #\t) (write-char #\l s) - (write-char #\L s))))) - ))) + (write-char #\L s)))))))) (defun simplify-cmd (bot cmd) (let ((at-idx (position #\@ cmd))) @@ -273,9 +276,7 @@ Send time: ...")) (message-from msg) (= (user-id (message-from msg)) (config-owner (bot-config bot)))) (setf (bot-power-on bot) nil) - (reply-message bot msg "Initialising shutdown..." :allow-sending-without-reply t)) - - ))) + (reply-message bot msg "Initialising shutdown..." :allow-sending-without-reply t))))) (defun report-error (bot evt err) (log:error "While handling ~A: ~A" evt err) -- cgit v1.2.3