.emacs.d/site-lisp/eltuki.el
This commit is contained in:
parent
01e05f9d67
commit
df6be90649
1 changed files with 198 additions and 0 deletions
198
.emacs.d/site-lisp/eltuki.el
Normal file
198
.emacs.d/site-lisp/eltuki.el
Normal file
|
|
@ -0,0 +1,198 @@
|
|||
;;; eltuki.el --- Tekuti functions
|
||||
|
||||
;; Copyright (C) 2012 Tom Willemsen
|
||||
|
||||
;; Author: Tom Willemsen <slash@drd>
|
||||
;; Keywords: convenience
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Tekuti functions.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'org)
|
||||
|
||||
(defgroup eltuki
|
||||
nil
|
||||
"tekuti functions in Emacs."
|
||||
:group 'external)
|
||||
|
||||
(defcustom eltuki-blog-dir "~/blog"
|
||||
"Plain blog post directory, not the git repository."
|
||||
:group 'eltuki
|
||||
:type 'string)
|
||||
|
||||
(defcustom eltuki-default-status "publish"
|
||||
"Default status to use when status is unknown."
|
||||
:group 'eltuki
|
||||
:type 'string)
|
||||
|
||||
(defcustom eltuki-default-comment-status "open"
|
||||
"Default status for comments."
|
||||
:group 'eltuki
|
||||
:type 'string)
|
||||
|
||||
(defun eltuki-new-post ()
|
||||
(interactive)
|
||||
(switch-to-buffer (get-buffer-create "*eltuki*"))
|
||||
(org-mode))
|
||||
|
||||
(defun eltuki-get-title ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+TITLE: \\(.*\\)$" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1) (match-end 1))
|
||||
(error "Post has no title."))))
|
||||
|
||||
(defun eltuki-set-title (title)
|
||||
(interactive "MTitle: ")
|
||||
(setq title (concat " " title))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+TITLE:\\(.*\\)$" nil t)
|
||||
(replace-match title t t nil 1)
|
||||
(insert "#+TITLE:" title "\n")
|
||||
(unless (= (char-after) ?\n)
|
||||
(insert-char ?\n)))))
|
||||
|
||||
(defun eltuki-get-timestamp ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+TIMESTAMP: \\([[:digit:]]+\\)$" nil t)
|
||||
(match-string 1)
|
||||
(format-time-string "%s"))))
|
||||
|
||||
(defun eltuki-set-timestamp ()
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(let ((newtime (format-time-string " %s")))
|
||||
(if (re-search-forward "^#\\+TIMESTAMP:\\(.*\\)$" nil t)
|
||||
(replace-match newtime nil t nil 1)
|
||||
(search-forward "\n\n")
|
||||
(backward-char)
|
||||
(insert "#+TIMESTAMP:" newtime "\n")))))
|
||||
|
||||
(defun eltuki-get-tags ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(when (re-search-forward "^#\\+TAGS: \\(.*\\)$" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1) (match-end 1)))))
|
||||
|
||||
(defun eltuki-set-tags (tags)
|
||||
(interactive "MTags: ")
|
||||
(setq tags (concat " " tags))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+TAGS:\\(.*\\)$" nil t)
|
||||
(replace-match tags t t nil 1)
|
||||
(search-forward "\n\n")
|
||||
(backward-char)
|
||||
(insert "#+TAGS:" tags "\n"))))
|
||||
|
||||
(defun eltuki-get-status ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^#\\+STATUS: \\(draft\\|publish\\)$" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1) (match-end 1))
|
||||
eltuki-default-status)))
|
||||
|
||||
(defun eltuki-toggle-status ()
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(let ((newstatus (if (string= (eltuki-get-status) "draft")
|
||||
" publish"
|
||||
" draft")))
|
||||
(if (re-search-forward "^#\\+STATUS:\\(.*\\)$" nil t)
|
||||
(replace-match newstatus t t nil 1)
|
||||
(search-forward "\n\n")
|
||||
(backward-char)
|
||||
(insert "#+STATUS:" newstatus "\n")))))
|
||||
|
||||
(defun eltuki-get-comment-status ()
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward
|
||||
"^#\\+COMMENTSTATUS: \\(open\\|closed\\)$" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1) (match-end 1))
|
||||
eltuki-default-comment-status)))
|
||||
|
||||
(defun eltuki-toggle-comment-status ()
|
||||
(interactive)
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(let ((newstatus (if (string= (eltuki-get-comment-status) "closed")
|
||||
" open"
|
||||
" closed")))
|
||||
(if (re-search-forward "^#\\+COMMENTSTATUS:\\(.*\\)$" nil t)
|
||||
(replace-match newstatus t t nil 1)
|
||||
(search-forward "\n\n")
|
||||
(backward-char)
|
||||
(insert "#+COMMENTSTATUS:" newstatus "\n")))))
|
||||
|
||||
(defun eltuki-slugify-string (str)
|
||||
(while (string-match "[^a-zA-Z0-9 ]+" str)
|
||||
(setq str (replace-match "" nil t str)))
|
||||
(while (string-match " +" str)
|
||||
(setq str (replace-match "-" nil t str)))
|
||||
(downcase str))
|
||||
|
||||
(defun eltuki-get-directory ()
|
||||
(concat
|
||||
eltuki-blog-dir "/"
|
||||
(format-time-string "%Y%%2f%m%%2f%d%%2f")
|
||||
(eltuki-slugify-string (eltuki-get-title))))
|
||||
|
||||
(defun eltuki-write-content (dir)
|
||||
(with-current-buffer (org-export-region-as-html
|
||||
(point-min) (point-max) t "*eltuki-html*")
|
||||
(write-region (point-min) (point-max) (concat dir "/content"))))
|
||||
|
||||
(defun eltuki-write-metadata (dir)
|
||||
(let ((timestamp (eltuki-get-timestamp))
|
||||
(tags (eltuki-get-tags))
|
||||
(status (eltuki-get-status))
|
||||
(title (eltuki-get-title))
|
||||
(name (eltuki-slugify-string (eltuki-get-title)))
|
||||
(commentstatus (eltuki-get-comment-status)))
|
||||
(with-temp-buffer
|
||||
(insert "timestamp: " timestamp "\n"
|
||||
"tags: " tags "\n"
|
||||
"status: " status "\n"
|
||||
"title: " title "\n"
|
||||
"name: " name "\n"
|
||||
"comment_status: " commentstatus)
|
||||
(write-region (point-min) (point-max) (concat dir "/metadata")))))
|
||||
|
||||
(defun eltuki-finish ()
|
||||
(interactive)
|
||||
(let ((buffer (get-buffer "*eltuki*"))
|
||||
(dest (eltuki-get-directory)))
|
||||
(unless (file-exists-p dest)
|
||||
(mkdir dest))
|
||||
|
||||
(eltuki-write-content dest)
|
||||
(eltuki-write-metadata dest)
|
||||
(kill-buffer buffer)))
|
||||
|
||||
(provide 'eltuki)
|
||||
;;; eltuki.el ends here
|
||||
Loading…
Reference in a new issue