diff options
Diffstat (limited to 'custom/jao-custom-blog.el')
| -rw-r--r-- | custom/jao-custom-blog.el | 74 |
1 files changed, 36 insertions, 38 deletions
diff --git a/custom/jao-custom-blog.el b/custom/jao-custom-blog.el index a11c5c0..7515440 100644 --- a/custom/jao-custom-blog.el +++ b/custom/jao-custom-blog.el @@ -1,34 +1,37 @@ ;; -*- lexical-binding: t -*- ;;; Vars and setup -(jao-load-path "org-static-blog") -(when (> emacs-major-version 26) (use-package htmlize :ensure t)) -(defvar jao-blog-base-dir "~/doc/jao.io") +(use-package htmlize :ensure t) + +(defvar jao-blog-base-dir (expand-file-name "www" jao-doc-dir)) +(defvar jao-blog-publish-dir (expand-file-name "jao.io" jao-blog-base-dir)) (defun jao-blog-dir (p) (expand-file-name p jao-blog-base-dir)) +(defun jao-blog-publish-dir (p) (expand-file-name p jao-blog-publish-dir)) + + +(defvar jao-org-blog-tag-files + (seq-difference (directory-files (jao-blog-publish-dir "blog") nil "tag-.*") + "tag-norss.html")) + +(defvar jao-org-blog-tags + (mapcar (lambda (f) + (string-match "tag-\\(.+\\)\\.html" f) + (format "<a href=\"/blog/%s\">%s</a>" + f (match-string 1 f))) + jao-org-blog-tag-files)) + +(defvar jao-org-blog-tag-rss + (mapcar (lambda (f) + (string-match "\\(.+\\)-rss\\.xml" f) + (format "<a href=\"/blog/%s\">%s</a>" + f (match-string 1 f))) + (directory-files (jao-blog-publish-dir "blog") nil ".*-rss.xml"))) -(setq jao-org-blog-tag-files - (seq-difference (directory-files (jao-blog-dir "blog") nil "tag-.*") - "tag-norss.html") - - jao-org-blog-tags - (mapcar (lambda (f) - (string-match "tag-\\(.+\\)\\.html" f) - (format "<a href=\"/blog/%s\">%s</a>" - f (match-string 1 f))) - jao-org-blog-tag-files) - - jao-org-blog-tag-rss - (mapcar (lambda (f) - (string-match "\\(.+\\)-rss\\.xml" f) - (format "<a href=\"/blog/%s\">%s</a>" - f (match-string 1 f))) - (directory-files (jao-blog-dir "blog") nil ".*-rss.xml")) - - jao-org-blog-tag-names - (mapcar (lambda (f) - (string-match "tag-\\(.+\\)\\.html" f) - (match-string 1 f)) - jao-org-blog-tag-files)) +(defvar jao-org-blog-tag-names + (mapcar (lambda (f) + (string-match "tag-\\(.+\\)\\.html" f) + (match-string 1 f)) + jao-org-blog-tag-files)) ;;; Header (setq org-static-blog-page-header @@ -94,7 +97,7 @@ org-static-blog-publish-title "programming (and other) musings" org-static-blog-posts-directory (jao-blog-dir "posts/") org-static-blog-drafts-directory (jao-blog-dir "pages/") - org-static-blog-publish-directory (jao-blog-dir "blog/") + org-static-blog-publish-directory (jao-blog-publish-dir "blog/") org-static-blog-rss-extra "" ; "<author>mail@jao.io</author>\n" org-static-blog-rss-max-entries 30 org-static-blog-rss-excluded-tag "norss" @@ -117,11 +120,7 @@ ;;; New entries (defun jao-org-blog-publish-file (fname) - (interactive (list (read-file-name "Publish: " - nil - (buffer-file-name) - t - (buffer-file-name)))) + (interactive (list (read-file-name "Publish: " nil (buffer-file-name) t))) (let ((geiser-active-implementations '(guile)) (geiser-default-implementation 'guile) (whitespace-style nil)) @@ -152,12 +151,11 @@ ;;; Drafts (defun jao-org-static-blog-update-date () (interactive) - (when (y-or-n-p "Update date? ") - (goto-char (point-min)) - (when (re-search-forward "^#\\+date: " nil t) - (delete-line) - (insert (format-time-string "<%Y-%m-%d %H:%M>")) - (save-buffer)))) + (goto-char (point-min)) + (when (re-search-forward "^#\\+date: " nil t) + (org-kill-line) + (insert (format-time-string "<%Y-%m-%d %H:%M>")) + (save-buffer))) (defun jao-org-static-blog-create-new-draft () (interactive) |