diff --git a/plugins/twitter.lisp b/plugins/twitter.lisp index 395e535..e905a80 100644 --- a/plugins/twitter.lisp +++ b/plugins/twitter.lisp @@ -75,7 +75,6 @@ coleslaw:post and returns the tweet content.") ;; fallback to chirp for credential erros (chirp:account/verify-credentials) - (when tweet-format (setf *tweet-format* tweet-format))) @@ -87,7 +86,7 @@ coleslaw:post and returns the tweet content.") :do (tweet-new-post file))) (defun tweet-new-post (file) - "Retrieve most recent post from in memory DB and publish it." + "Retrieve content matching FILE from in memory DB and publish it." (let ((post (coleslaw::find-content-by-path file))) (chirp:statuses/update (%format-post 0 post)))) diff --git a/src/conditions.lisp b/src/conditions.lisp deleted file mode 100644 index 2071f01..0000000 --- a/src/conditions.lisp +++ /dev/null @@ -1,9 +0,0 @@ -(in-package :coleslaw) - -(define-condition plugin-conf-error () - ((plugin :initform "Plugin":initarg :plugin :reader plugin) - (message :initform "" :initarg :message :reader message)) - (:report (lambda (condition stream) - (format stream "~A: ~A" (plugin condition) (message condition)))) - (:documentation "Condition to signal when the plugin is misconfigured.")) - diff --git a/src/config.lisp b/src/config.lisp index f0833b0..f484ff9 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -19,6 +19,13 @@ (defparameter *config* nil "A variable to store the blog configuration and plugin settings.") +(define-condition plugin-conf-error () + ((plugin :initarg :plugin :reader plugin) + (message :initarg :message :reader message)) + (:report (lambda (condition stream) + (format stream "~A: ~A" (plugin condition) (message condition)))) + (:documentation "Condition to signal when the plugin is misconfigured.")) + (defun enable-plugin (name args) "Given a plugin, NAME, compile+load it and call its ENABLE function with ARGS." (flet ((plugin-path (sym)