-
Notifications
You must be signed in to change notification settings - Fork 0
/
davep-org-2.0.el
48 lines (37 loc) · 1.37 KB
/
davep-org-2.0.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
;;; davep-org.el --- Tools for managing my web sites.
;; Copyright 2001-2017 by Dave Pearson <davep@davep.org>
;; Author: Dave Pearson <davep@davep.org>
;; Version: 2.0
;; Keywords: convenience
;; URL: https://github.com/davep/davep-org.el
;;; Commentary:
;;
;; davep-org.el provides a handful of tools that help me when I'm working on
;; my personal websites.
;;; Code:
(defvar davep-org-root "~/Sites/www.davep.org/"
"Root directory of www.davep.org sources.")
(defun davep-org-path (path)
"Return PATH within `davep-org-root'."
(format "%s/%s" davep-org-root path))
(defvar davep-org-wxw-root "~/Sites/wxw.davep.org/"
"Root directory of wxw.davep.org sources.")
(defun davep-org-wxw-path (path)
"Return PATH within `wxw-davep-org-root'."
(format "%s/%s" davep-org-wxw-root path))
;;;###autoload
(defun davep-org-changelog ()
"Add an entry to the www.davep.org ChangeLog."
(interactive)
(let ((add-log-time-format 'add-log-iso8601-time-string))
(with-temp-buffer
(add-change-log-entry nil (davep-org-path "site/ChangeLog/ChangeLog")))))
;;;###autoload
(defun davep-org-wxw-changelog ()
"Add an entry to the wxw.davep.org ChangeLog."
(interactive)
(let ((add-log-time-format 'add-log-iso8601-time-string))
(with-temp-buffer
(add-change-log-entry nil (davep-org-wxw-path "site/ChangeLog/ChangeLog")))))
(provide 'davep-org)
;;; davep-org.el ends here