qc IRC functions

;; 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))