Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; For silly IRC usage
- (defun qc-shout (str &optional &key comic-id)
- (if comic-id
- (format "https://questionablecontent.net/view.php?comic=%i: %s"
- comic-id (upcase str))
- (upcase str)))
- (defun qc-action (str &optional &key comic-id)
- (funcall #'qc-shout (format "/me %s" str) comic-id))
- (defun qc-meta (panel str &optional &key comic-id)
- (funcall #'qc-shout (format "Feature of Panel %i: %s" panel str) comic-id))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement