#!/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)