diff options
Diffstat (limited to 'org-publish.el')
| -rwxr-xr-x | org-publish.el | 358 |
1 files changed, 0 insertions, 358 deletions
diff --git a/org-publish.el b/org-publish.el deleted file mode 100755 index ee0a618..0000000 --- a/org-publish.el +++ /dev/null @@ -1,358 +0,0 @@ -#!/usr/bin/emacs --script -;; Lots of code were taken from: -;; - https://gitlab.com/to1ne/blog/-/blob/master/elisp/publish.el -;; - https://github.com/dmacvicar/site.org/blob/master/publish.el - -;; I don't want this script, especially package, to mess my Emacs directory. -(setq user-emacs-directory (expand-file-name ".cache/" default-directory)) -(load-file (expand-file-name "elisp/no-littering.el" default-directory)) - -(setq package-user-dir (with-no-warnings (no-littering-expand-var-file-name "package/"))) -(require 'package) -(package-initialize) - -(unless package-archive-contents - (add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t) - (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) - (package-refresh-contents)) - -(dolist (pkg '(org-plus-contrib htmlize)) - (unless (package-installed-p pkg) - (package-install pkg))) - -(require 'cl-lib) -(require 'sh-script) -(require 'ox) -(require 'ox-publish) -(require 'ox-rss) - -;; Taken from doom-emacs -(defmacro c/pushnew! (place &rest values) - "Push VALUES sequentially into PLACE, if they aren't already present. -This is a variadic `cl-pushnew'." - (let ((var (make-symbol "result"))) - `(dolist (,var (list ,@values) (with-no-warnings ,place)) - (cl-pushnew ,var ,place :test #'equal)))) - - -;; Some Quality of Life link abbrevations. -(c/pushnew! org-link-abbrev-alist - '("carbs-pkg" . "https://git.sr.ht/~carbslinux/repository/tree/master/item/%s") - '("srht" . "https://git.sr.ht/%s") - '("ml" . "https://lists.sr.ht/~carbslinux/%s") - '("mlto" . "mailto:~carbslinux/%s@lists.sr.ht") - '("github" . "https://github.com/%s")) - -(defvar carbs--src-directory (expand-file-name "src/" default-directory) - "Directory for most of the static webpage content.") - -(defvar carbs--publish-directory (expand-file-name "docs/" default-directory) - "Root directory of the published website.") - -(defvar carbs--news-directory (expand-file-name "news/" default-directory) - "Directory for news posts.") - -(defvar carbs--blog-directory (expand-file-name "blog/" default-directory) - "Directory for blog posts.") - -(defvar carbs--template-directory (expand-file-name "templates/" default-directory) - "Directory for all types of templates") - -(defun carbs--insert-template (file) - "Insert FILE from `carbs--template-directory'." - (with-temp-buffer - (insert-file-contents (expand-file-name file carbs--template-directory)) - (buffer-string))) - -(defun carbs/org-html-publish-to-html (plist filename pub-dir) - "Wrapper function that adds publishing date as a subtitle. - -PLIST contains the properties, FILENAME the source file and - PUB-DIR the output directory." - (let ((project (cons 'rw plist))) - (plist-put plist :subtitle - (carbs/format-date-subtitle filename project)) - (org-html-publish-to-html plist filename pub-dir))) - -(defun carbs/org-html-publish-blog-index (plist filename pub-dir) - "Wrapper function to publish only the index file to html. -PLIST contains the properties, FILENAME the source file and PUB-DIR the output -directory." - (if (equal "index.org" (file-name-nondirectory filename)) - (org-html-publish-to-html plist filename pub-dir))) - -(defun carbs/format-rss-feed-entry (entry style project) - "Format ENTRY for the RSS feed. -ENTRY is a file name. STYLE is either 'list' or 'tree'. -PROJECT is the current project." - (cond ((not (directory-name-p entry)) - (let* ((file (org-publish--expand-file-name entry project)) - (title (org-publish-find-title entry project)) - (date (format-time-string "%Y-%m-%d" (org-publish-find-date entry project))) - (link (concat (file-name-sans-extension entry) ".html"))) - (with-temp-buffer - (insert (format "* %s\n" title)) - (org-set-property "RSS_PERMALINK" link) - (org-set-property "PUBDATE" date) - (insert-file-contents file) - (buffer-string)))) - ((eq style 'tree) - ;; Return only last subdir. - (file-name-nondirectory (directory-file-name entry))) - (t entry))) - -(defun carbs/format-rss-feed (title list) - "Generate RSS feed, as a string. -TITLE is the title of the RSS feed. LIST is an internal -representation for the files to include, as returned by -`org-list-to-lisp'. PROJECT is the current project." - (concat "#+TITLE: " title "\n" - "#+DESCRIPTION: a simple Linux distribution\n\n" - (org-list-to-subtree list 1 '(:icount "" :istart "")))) - -(defun carbs/org-rss-publish-to-rss (plist filename pub-dir) - "Publish RSS with PLIST, only when FILENAME is 'rss.org'. -PUB-DIR is when the output will be placed." - (org-rss-publish-to-rss plist filename pub-dir)) - -(defun carbs/format-date-subtitle (file project) - "Format the date found in FILE of PROJECT." - (format-time-string "posted on %b %d, %Y" (org-publish-find-date file project))) - -(defun carbs--pre/postamble-format (type) - "Return the content for the pre/postamble of TYPE." - `(("en" ,(carbs--insert-template (format "%s.html" type))))) - -(defun carbs/org-publish-sitemap (title list) - "Generate sitemap as a string, having TITLE. -LIST is an internal representation for the files to include, as -returned by `org-list-to-lisp'." - (let ((filtered-list (cl-remove-if (lambda (x) - (and (sequencep x) (null (car x)))) - list))) - (concat (carbs--insert-template "blog.org") - (org-list-to-org filtered-list) "\n"))) - -(defun carbs/org-publish-latest-blog (title list) - "Generate sitemap as a string, having TITLE. -LIST is an internal representation for the files to include, as returned by -`org-list-to-lisp'." - (let* ((filtered-list (cl-remove-if (lambda (x) - (and (sequencep x) (null (car x)))) - list)) - (latest-posts (seq-subseq filtered-list 0 (min (length filtered-list) 4)))) - (concat (org-list-to-org latest-posts) "\n"))) - -(defun carbs/org-publish-latest-blog-entry (entry style project) - "Format for sitemap ENTRY, as a string. -ENTRY is a file name. STYLE is the style of the sitemap. -PROJECT is the current project." - (unless (equal entry "404.org") - (format "%s - [[file:%s][%s]]" - (format-time-string "%b %d, %Y" (org-publish-find-date entry project)) - entry - (org-publish-find-title entry project)))) - -(defun carbs/org-publish-sitemap-entry (entry style project) - "Format for sitemap ENTRY, as a string. -ENTRY is a file name. STYLE is the style of the sitemap. -PROJECT is the current project." - (unless (equal entry "404.org") - (format "[[file:%s][%s]] /%s/" - entry - (org-publish-find-title entry project) - (carbs/format-date-subtitle entry project)))) - -(defun carbs/org-publish-news (title list) - "Generate sitemap as a string, having TITLE. -LIST is an internal representation for the files to include, as -returned by `org-list-to-lisp'." - (let ((filtered-list (cl-remove-if (lambda (x) - (and (sequencep x) (null (car x)))) - list))) - (concat "#+TITLE: News Index\n\n" - (org-list-to-subtree filtered-list 1 '(:istart "" :icount "")) "\n"))) - -(defun carbs/org-publish-news-latest (title list) - "Generate sitemap as a string, having TITLE. -LIST is an internal representation for the files to include, as -returned by `org-list-to-lisp'." - (let* ((filtered-list (cl-remove-if (lambda (x) - (and (sequencep x) (null (car x)))) - list)) - (latest-posts (seq-subseq filtered-list 0 (min (length filtered-list) 6)))) - (concat - (org-list-to-subtree latest-posts 1 '(:istart "" :icount "")) "\n"))) - -(defun carbs/org-publish-news-entry (entry style project) - "Format for sitemap ENTRY, as a string. -ENTRY is a file name. STYLE is the style of the sitemap. -PROJECT is the current project." - (cond ((not (directory-name-p entry)) - (let* ((file (org-publish--expand-file-name entry project)) - (date (format-time-string "%b %d, %Y" (org-publish-find-date entry project))) - (link (concat (file-name-sans-extension entry) ".html"))) - (with-temp-buffer - (insert (format "* [[file:%s][%s]]\n" link date)) - (insert-file-contents file) - (buffer-string)))) - ((eq style 'tree) - ;; Return only last subdir. - (file-name-nondirectory (directory-file-name entry))) - (t entry))) - -(setq user-full-name "Cem Keylan" - user-mail-address "root@carbslinux.org" - org-publish-timestamp-directory (with-no-warnings (no-littering-expand-var-file-name "timestamps/")) - org-html-doctype "html5" - org-html-head (concat "<link rel=\"stylesheet\" type=\"text/css\" href=\"/style.css\">\n" - "<link rel=icon href='data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAMAAACdt4HsAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACUlBMVEUKHisJHisJHioIHSoJHSoHHSkLHisSIS8bJTQjKDknKjsmKTsgJzcXIzINHy0VIjEzL0JaPld8TGuVVnikXIGsX4WvYYevYIeqXoSdWX2GUHBhQVw2MEMUIjAkKDleQFqWVnm1Y4vAZ5HCaJLCaJHBaJHAaJG2Y4uTVXdTO1QZJDQdJjZlQl2oXoPAZ5C/Z5C+Z4+ZV3pHNk0OIC1BNEmbWHy5ZIx1SWYcJTUQIC5gQVu0Y4qPVHVwR2O8Zo6+Zo+LUnNuRmNbP1hSO1NfQFp3SmgeJjYPIC5tRmK7ZY6QVHZQOlI3MESyYomHUHAYIzJbPlijW4BOOVETIjAHHSoLHyw2MEQ6MUaxYYgYJDNzSGWfWn4pKzwZJDOUVniFT28RIS9cP1g1L0NdP1mUVXghJzitYIYzLkFcP1liQVw9Mke5ZY0oKjsUIjGXV3oOHy0qKz1ZPldGNky9Zo+2ZIumXYJ4SmiKUXKBTm2VVnkWIzJpRGCgW39kQl2hW39nRF+aWHtwR2R9TGsMHyyCTm6OU3VvRmMaJDRWPFUtLD46MUVNOVCoXYOIUXGiW4BJN04rKz2KUnKDT25DNUtCNUoSITCMUnNsRmI+M0i4ZIxVPFR0SGZUPFQiKDiJUXJ5S2kfJjeZWHs7MkaqX4SYV3pMOE8LHiwoKjy3ZIw7MUZqRGBANEkrKz5KOE97S2qrX4WpXoSlXIG7ZY1rRWEzLkKwYYhYPVaSVXY4MEQyLkF6S2muYIecWXxWPVWNU3S6ZY23ZIt+TWxjQlxvR2NgQFv///+cltOiAAAAAWJLR0TFYwsrdwAAAAd0SU1FB+MMAwYuBxqvYV4AAAM/SURBVFjD7VdpW9NAEE6ySVtu0QoUPDDJBhRNixUsggXkRhGVoBREa1E8ERQvUFGsgoqKAop4i/eJinjf+sPMbotC4XnSro/fmA/90GdnMvO+M7PvUtSE/WejGQAASxM6A06nNwQFh4SGhQMQcBAAIiZFTp5inBoVHWOKjZs2HTCBuLP0jJnxs3hBhBLPS1CACYmz54AAPp80dx4PZfNfk0VL8nwr62fxugUpMjT7GkxdaPMrCSZtUbrXXRIEKMtqBTgZWcoI8SMHRr/Yzns+mRmTlb0kJyc3LzkB4r/E+HxNKOmCwkz8PVhUvDSoAHCqURHL8kpQUnB5qTadK4o8/itXlXHDJdNK+eoMswwTQzVBAGsqJFxvVvDo3lEclZlVazX9mep1GD9pvcH3LOvc4NImga3xwLcxf+xZmtKun91kRAlItZsVzbPjI7DF031bA+r7EUmGJWOyqpL87FlfU7ZtxwzkBjA2o4zJFlV/vnYHYQC6bieqQIitJ0wANFSgjpd3cYQBuN2NyH+Pi5BDSonDHOzNJ+SAovYJaGQTnaT+9ftRAOFAOaE/rW9CLAqVhG1I0c0mzOJB4jZyHMIgHiYlgalu+bcAdGkVCiAeIS2BrjuKMWglboO0YkzjMR1pAPdxHOBEAWkA0IYCwJZ20kbgTqKFJpecIkWRO52KFpKlg3Sc2dAzmIY8Ugwo61kMwjkbKQhKJN7q9k7SGsD5KLTTxAtOQl1GWbtQDXJqN2kKSg++GGBT+7jtzGgmRl+8JOK7rdc9zllQ7dAcE3A5ATdT35WxVzEwxHaVakYIv4r1AZ9+ze1zVrl+Q5JvlmkxDG7d9iiMvl4DN+Iw0PWjYbe06rVwAK47OIJsvnvPATjA0Krg5u4/aMMqS3r4SHNQ2O5oj0qE9pTHT4INzc22p8+eD2CdJzdma2agktXzQvRqU1gUZTSZXpY0Clh5Sa8Gnf50OXjdxPNefctD1byiWRx6Y/VvSoBtcEgcDvFHKlvevvNDZnlx0L3/8JH35I0RhYL90+ewQBYNcDfUfBn4aoaCqrfN34zfO9sDe3GgJ0taUH/Oj8Kfg786XDY3R7IjVKWtqI8u9Zd0w0yYf/YbyvG41mgreo8AAAAldEVYdGRhdGU6Y3JlYXRlADIwMTktMTItMDNUMDY6NDU6NTIrMDA6MDDFY+wcAAAAJXRFWHRkYXRlOm1vZGlmeQAyMDE5LTEyLTAzVDA2OjQ1OjUyKzAwOjAwtD5UoAAAAABJRU5ErkJggg=='>") - org-html-head-include-scripts nil - org-html-metadata-timestamp-format "%Y-%m-%d" - org-html-head-include-default-style nil - org-html-html5-fancy t - org-html-htmlize-output-type 'css - org-export-with-toc nil - org-export-with-section-numbers nil - - org-publish-project-alist - (list - (list "news" - :author "" - :base-directory carbs--news-directory - :html-preamble t - :html-postamble t - :html-preamble-format (carbs--pre/postamble-format 'preamble) - :html-postamble-format (carbs--pre/postamble-format 'postamble) - :publishing-directory (expand-file-name "news/" carbs--publish-directory) - :publishing-function '(org-html-publish-to-html org-ascii-publish-to-ascii) - :exclude (regexp-opt '("index.org" "news.org" "latest-news.org")) - :auto-sitemap t - :sitemap-filename "index.org" - :sitemap-style 'list - :sitemap-title "Carbs Linux news" - :sitemap-sort-files 'anti-chronologically - :sitemap-function 'carbs/org-publish-news - :sitemap-format-entry 'carbs/org-publish-news-entry) - (list "news-rss-generate" - :base-directory carbs--news-directory - :publishing-directory carbs--publish-directory - :publishing-function 'ignore - :exclude (regexp-opt '("index.org" "news.org" "latest-news.org")) - :html-link-home "https://carbslinux.org/news" - :auto-sitemap t - :sitemap-filename "news.org" - :sitemap-style 'list - :sitemap-title "Carbs Linux news" - :sitemap-sort-files 'anti-chronologically - :sitemap-function 'carbs/format-rss-feed - :sitemap-format-entry 'carbs/format-rss-feed-entry) - (list "latest-news" - :base-directory carbs--news-directory - :publishing-directory carbs--publish-directory - :publishing-function 'ignore - :exclude (regexp-opt '("index.org" "news.org" "latest-news.org")) - :auto-sitemap t - :sitemap-filename "latest-news.org" - :sitemap-style 'list - :sitemap-title "Carbs Linux news" - :sitemap-sort-files 'anti-chronologically - :sitemap-function 'carbs/org-publish-news-latest - :sitemap-format-entry 'carbs/org-publish-news-entry) - (list "news-rss-publish" - :base-directory carbs--news-directory - :exclude "." - :include '("news.org") - :rss-extension "xml" - :recursive t - :html-link-home "https://carbslinux.org/news" - :publishing-directory carbs--publish-directory - :publishing-function 'carbs/org-rss-publish-to-rss) - (list "blog-latest" - :base-directory carbs--blog-directory - :publishing-directory carbs--publish-directory - :publishing-function 'ignore - :exclude (regexp-opt '("index.org" "rss.org" "latest-blog.org")) - :auto-sitemap t - :sitemap-filename "latest-blog.org" - :sitemap-style 'list - :sitemap-sort-files 'anti-chronologically - :sitemap-function 'carbs/org-publish-latest-blog - :sitemap-format-entry 'carbs/org-publish-latest-blog-entry) - (list "home" - :base-directory carbs--src-directory - :html-preamble t - :html-postamble t - :html-preamble-format (carbs--pre/postamble-format 'preamble) - :html-postamble-format (carbs--pre/postamble-format 'postamble) - :publishing-directory carbs--publish-directory - :publishing-function 'org-html-publish-to-html) - (list "blog-index-publish" - :base-directory carbs--blog-directory - :publishing-directory (expand-file-name "blog/" carbs--publish-directory) - :publishing-function 'carbs/org-html-publish-blog-index - :html-preamble t - :html-postamble t - :html-preamble-format (carbs--pre/postamble-format 'preamble) - :html-postamble-format (carbs--pre/postamble-format 'postamble) - :html-link-org-files-as-html t - :exclude (regexp-opt '("rss.org" "index.org" "latest-blog.org")) - :auto-sitemap t - :sitemap-filename "index.org" - :sitemap-style 'list - :sitemap-title "Carbs Linux blog" - :sitemap-sort-files 'anti-chronologically - :sitemap-function 'carbs/org-publish-sitemap - :sitemap-format-entry 'carbs/org-publish-sitemap-entry) - (list "blog" - :base-directory carbs--blog-directory - :publishing-directory (expand-file-name "blog/" carbs--publish-directory) - :publishing-function 'carbs/org-html-publish-to-html - :html-preamble t - :html-postamble t - :html-preamble-format (carbs--pre/postamble-format 'preamble) - :html-postamble-format (carbs--pre/postamble-format 'postamble) - :exclude (regexp-opt '("rss.org" "index.org" "latest-blog.org")) - :html-link-org-files-as-html t) - (list "blog-generate-rss-sitemap" - :base-extension "org" - :base-directory carbs--blog-directory - :html-link-home "https://carbslinux.org/blog" - :exclude (regexp-opt '("rss.org" "index.org" "latest-blog.org")) - :publishing-function 'ignore - :publishing-directory (expand-file-name "blog/" carbs--publish-directory) - :rss-extension "xml" - :auto-sitemap t - :html-link-org-files-as-html t - :sitemap-filename "rss.org" - :sitemap-title "Carbs Linux blog" - :sitemap-style 'list - :sitemap-sort-files 'anti-chronologically - :sitemap-function 'carbs/format-rss-feed - :sitemap-format-entry 'carbs/format-rss-feed-entry) - (list "blog-publish-rss-sitemap" - :base-directory carbs--blog-directory - :rss-extension "xml" - :recursive t - :exclude "." - :include '("rss.org") - :publishing-directory carbs--publish-directory - :publishing-function 'carbs/org-rss-publish-to-rss - :html-link-home "https://carbslinux.org/blog" - :html-link-use-abs-url t) - (list "plaintext" - :author "" - :base-directory carbs--src-directory - :publishing-directory carbs--publish-directory - :publishing-function 'org-ascii-publish-to-ascii - :base-extension "org" - :exclude (regexp-opt '("rss.org" "latest-blog.org")) - :recursive t) - (list "blog-txt" - :base-directory carbs--blog-directory - :base-extension "org" - :exclude (regexp-opt '("rss.org" "latest-blog.org")) - :publishing-directory (expand-file-name "blog/" carbs--publish-directory) - :publishing-function 'org-ascii-publish-to-ascii))) - -(org-publish-all) |