blob: 537d5e19456a5e724b962dcd4f156f1efcc8d5ba (
plain)
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
(require 'ox-publish)
(require 'package)
(setq package-user-dir (expand-file-name "./.packages"))
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("elpa" . "https://elpa.gnu.org/packages/")))
;; Initialize the package system
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
;; Install dependencies
(package-install 'htmlize)
;; Install rust-mode if not already installed
(unless (package-installed-p 'rust-mode)
(package-refresh-contents)
(package-install 'rust-mode))
(defun get-org-file-title(entry style project)
(setq timestamp (org-timestamp-format (car (org-publish-find-property entry :date project)) "%B %d, %Y"))
(setq tag-list (org-publish-find-property entry :filetags project))
(setq tag-list-str (mapconcat 'identity tag-list ","))
(setq result (format "%s\n #+begin_sitemap_date\n%s\n#+end_sitemap_date\n#+begin_sitemap_tag\n%s\n#+end_sitemap_tag\n" (org-publish-sitemap-default-entry entry style project) timestamp tag-list-str))
)
(defun my-sitemap-function (title list)
(concat "#+TITLE: " title "\n\n"
"#+DATE: " (format-time-string "%Y-%m-%d at %H:%M") "\n\n"
"#+HTML_LINK_HOME: /\n\n"
"#+HTML_LINK_UP: /\n\n"
(org-list-to-org list)))
(setq org-publish-project-alist
(list
(list "matthewkosarek.xyz"
:recursive t
:base-directory "./_posts"
:publishing-directory "./posts"
:publishing-function 'my-org-html-publish-to-html
:with-toc nil
:with-author nil
:section-numbers nil
:time-stamp-file nil
:with-title nil
:with-date nil
:html-preamble-format '(("en" "
<div class=\"org-article-title\">
<h1>%t</h1>
<span>Last modified: %d</span>
<span><a href=\"/posts/feed.xml\">RSS Feed</a></span>
</div>
"))
:auto-sitemap t
:sitemap-sort-files 'anti-chronologically
:sitemap-title "Matthew's Blog Posts"
:sitemap-format-entry (lambda (entry style project) (get-org-file-title entry style project))
:sitemap-function (lambda (title list) (my-sitemap-function title list))
)))
(setq org-html-htmlize-output-type 'css)
(setq org-html-htmlize-font-prefix "org-")
(defun my-org-html-publish-to-html (plist filename pub-dir)
"Custom HTML publish function that conditionally adds sitemap.css."
(let* ((is-sitemap (string-match-p "sitemap\\.org$" filename))
(org-html-head-extra (when is-sitemap
"<link rel=\"stylesheet\" href=\"/posts/sitemap.css\" />")))
(org-html-publish-to-html plist filename pub-dir)))
(setq org-html-validation-link nil
org-html-head-include-scripts nil ;; Use our own scripts
org-html-head-include-default-style nil ;; Use our own styles
org-html-head "
<link rel=\"stylesheet\" href=\"/index.css\" />
<link rel=\"stylesheet\" href=\"/posts/post.css\" />
<link rel=\"shortcut icon\" href=\"/favicon/favicon.ico\" type=\"image/x-icon\">
<script src='/posts/post.js'></script>
"
org-html-inline-images t
org-html-link-home "/"
org-html-link-up "/posts/sitemap.html"
org-html-html5-fancy t
org-html-home/up-format "<div id=\"org-div-home-and-up\">
<a accesskey=\"h\" href=\"%s\"> UP </a>
<a accesskey=\"H\" href=\"%s\"> HOME </a>
</div>"
)
(defun update-rss-feed ()
"Update the RSS feed with the newest post from _posts directory."
(let* ((posts-dir (expand-file-name "_posts"))
(feed-file (expand-file-name "posts/feed.xml"))
(org-files (seq-filter (lambda (f) (not (string-match-p "sitemap\\.org$" f)))
(directory-files posts-dir t "\\.org$")))
(newest-file (car (sort org-files (lambda (a b) (time-less-p (file-attribute-modification-time (file-attributes b))
(file-attribute-modification-time (file-attributes a)))))))
title date-str filename-base)
(when newest-file
;; Parse the newest org file
(with-temp-buffer
(insert-file-contents newest-file)
(goto-char (point-min))
;; Extract title
(when (re-search-forward "^#\\+TITLE:\\s-*\\(.+\\)$" nil t)
(setq title (match-string 1)))
;; Extract date
(goto-char (point-min))
(when (re-search-forward "^#\\+DATE:\\s-*<\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\)\\s-+\\w+\\s-+\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)>" nil t)
(let ((year (match-string 1))
(month (match-string 2))
(day (match-string 3))
(hour (match-string 4))
(minute (match-string 5))
(month-names ["" "January" "February" "March" "April" "May" "June"
"July" "August" "September" "October" "November" "December"])
(day-names ["Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"]))
(setq date-str (format "%s, %s %s %s %s:%s:00 -0400"
(aref day-names (string-to-number (format-time-string "%w" (encode-time 0 0 0 (string-to-number day) (string-to-number month) (string-to-number year)))))
day
(aref month-names (string-to-number month))
year
hour
minute)))))
;; Get filename without extension
(setq filename-base (file-name-sans-extension (file-name-nondirectory newest-file)))
;; Create RSS item
(when (and title date-str filename-base)
(let ((rss-item (format " <item>
<title>%s</title>
<link>https://matthewkosarek.xyz/posts/%s.html</link>
<guid>https://matthewkosarek.xyz/posts/%s.html</guid>
<pubDate>%s</pubDate>
<description>%s</description>
</item>\n"
title filename-base filename-base date-str title)))
;; Read current feed
(with-temp-buffer
(insert-file-contents feed-file)
(goto-char (point-min))
;; Update lastBuildDate to current time
(let* ((current-time (current-time))
(decoded-time (decode-time current-time))
(day (nth 3 decoded-time))
(month (nth 4 decoded-time))
(year (nth 5 decoded-time))
(hour (nth 2 decoded-time))
(minute (nth 1 decoded-time))
(month-names ["" "January" "February" "March" "April" "May" "June"
"July" "August" "September" "October" "November" "December"])
(day-names ["Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"])
(current-date-str (format "%s, %02d %s %s %02d:%02d:00 -0400"
(aref day-names (nth 6 decoded-time))
day
(aref month-names month)
year
hour
minute)))
(when (re-search-forward "<lastBuildDate>\\(.*\\)</lastBuildDate>" nil t)
(replace-match (format "<lastBuildDate>%s</lastBuildDate>" current-date-str))))
;; Check if this item already exists
(goto-char (point-min))
(unless (search-forward (format "<link>https://matthewkosarek.xyz/posts/%s.html</link>" filename-base) nil t)
;; Insert new item after lastBuildDate
(goto-char (point-min))
(when (re-search-forward "<lastBuildDate>.*</lastBuildDate>\n" nil t)
(insert "\n")
(insert rss-item)
(message "Added RSS item for: %s" title)))
;; Write updated feed
(write-region (point-min) (point-max) feed-file)))))))
(org-publish-all t)
;; Update RSS feed after publishing
(update-rss-feed)
(message "Build Complete")
|
