diff options
| -rw-r--r-- | ennu.el | 42 |
1 files changed, 16 insertions, 26 deletions
diff --git a/ennu.el b/ennu.el index 46b3f42..954ee75 100644 --- a/ennu.el +++ b/ennu.el @@ -270,38 +270,28 @@ last form in BODY." (defun ennu-setting (property) (pcase property - (:blog-scheme - (or (plist-get ennu-blog :blog-scheme) - "https")) - (:atom-feed-file - (or (plist-get ennu-blog :atom-feed-file) - "blog.atom")) - (:index-posts-per-page - (or (plist-get ennu-blog :index-posts-per-page) - 12)) - (:atom-feed-number-of-posts - (or (plist-get ennu-blog :atom-feed-number-of-posts) - 12)) - (:thumbnail-image-width - (or (plist-get ennu-blog :thumbnail-image-width) - 320)) - (:default-image-width - (or (plist-get ennu-blog :default-image-width) - 640)) - (:image-link-width - (or (plist-get ennu-blog :image-link-width) - 1024)) - (:tag-directory - (or (plist-get ennu-blog :tag-directory) - "tag")) ((or :blog-domain :blog-license :blog-title :images-directory :output-directory :posts-directory :static-directory :tag-directory :video-directory :working-directory) (or (plist-get ennu-blog property) (user-error "Property %s not defined" property))) - (:other-files-directory - (plist-get ennu-blog property)) + ((or :atom-feed-number-of-posts :atom-feed-file + :blog-scheme :default-image-width + :image-link-width :index-posts-per-page + :other-files-directory :tag-directory + :thumbnail-image-width) + (plist-get (org-combine-plists + (list :atom-feed-number-of-posts 12 + :atom-feed-file "blog.atom" + :blog-scheme "https" + :default-image-width 640 + :image-link-width 1024 + :index-posts-per-page 12 + :tag-directory "tag" + :thumbnail-image-width 320) + ennu-blog) + property)) (_ (error "Unknown property %s" property)))) (defun ennu-image-output-filename (image width) |