mirror of
https://github.com/SqrtMinusOne/sqrtminusone.github.io.git
synced 2025-12-10 15:53:03 +03:00
108 lines
3.5 KiB
EmacsLisp
108 lines
3.5 KiB
EmacsLisp
(require 'package)
|
|
(require 'vc)
|
|
(require 'files)
|
|
|
|
(message (concat (vc-find-root default-directory ".git") "org/configs"))
|
|
(cd (concat (vc-find-root default-directory ".git") "org/configs"))
|
|
|
|
(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))
|
|
|
|
(setq package-user-dir (expand-file-name "./.packages"))
|
|
|
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
|
("elpa" . "https://elpa.gnu.org/packages/")))
|
|
|
|
(unless (package-installed-p 'use-package)
|
|
(package-install 'use-package))
|
|
(require 'use-package)
|
|
|
|
(use-package ox-hugo
|
|
:ensure t)
|
|
|
|
(use-package org-make-toc
|
|
:ensure t)
|
|
|
|
(setq org-make-toc-link-type-fn #'org-make-toc--link-entry-org)
|
|
|
|
(defvar-local my/org-hugo-heading-slugs nil)
|
|
|
|
(defun my/increase-slug (string)
|
|
(if (string-match (rx "-" (1+ num) eos) string)
|
|
(replace-match
|
|
(concat
|
|
"-"
|
|
(thread-first
|
|
(match-string 0 string)
|
|
(substring 1)
|
|
(string-to-number)
|
|
(+ 1)
|
|
(number-to-string)))
|
|
t t string)
|
|
(concat string "-" "1")))
|
|
|
|
(defun my/org-hugo-get-heading-slug (element info)
|
|
(let* ((title (org-export-data-with-backend
|
|
(org-element-property :title element) 'md info))
|
|
(slug (org-string-nw-p (org-hugo-slug title :allow-double-hyphens))))
|
|
(unless my/org-hugo-heading-slugs
|
|
(setq my/org-hugo-heading-slugs (make-hash-table :test 'equal)))
|
|
(unless (or (null slug) (string-empty-p slug))
|
|
(while (gethash slug my/org-hugo-heading-slugs)
|
|
(setq slug (my/increase-slug slug)))
|
|
(puthash slug t my/org-hugo-heading-slugs))
|
|
slug))
|
|
|
|
(setq org-hugo-anchor-functions '(org-hugo-get-page-or-bundle-name
|
|
org-hugo-get-custom-id
|
|
my/org-hugo-get-heading-slug
|
|
org-hugo-get-md5))
|
|
|
|
(setq org-hugo-section "configs")
|
|
(setq org-hugo-base-dir (vc-find-root default-directory ".git"))
|
|
|
|
;; (setq org-hugo-export-with-toc 6)
|
|
|
|
(setq my/config-files '("README.org"
|
|
"Emacs.org"
|
|
"Desktop.org"
|
|
"Console.org"
|
|
"Mail.org"
|
|
"Guix.org"))
|
|
|
|
|
|
(dolist (file my/config-files)
|
|
(copy-file (expand-file-name
|
|
(format "%s/repos/dotfiles/%s"
|
|
(vc-find-root default-directory ".git")
|
|
file))
|
|
file 'overwrite))
|
|
|
|
(copy-directory
|
|
(expand-file-name
|
|
(format "%s/repos/dotfiles/dot-imgs/"
|
|
(vc-find-root default-directory ".git")))
|
|
"dot-imgs" t t)
|
|
|
|
(dolist (file my/config-files)
|
|
(with-temp-buffer
|
|
(org-mode)
|
|
(insert-file-contents file)
|
|
(unless (string-equal file "README.org")
|
|
(org-make-toc))
|
|
(replace-string "conf-space" "vim" t (point-min) (point-max))
|
|
(replace-string "conf-unix" "ini" t (point-min) (point-max))
|
|
(replace-string "conf-windows" "ini" t (point-min) (point-max))
|
|
(replace-string "conf-xdefaults" "vim" t (point-min) (point-max))
|
|
(replace-string "conf-toml" "toml" t (point-min) (point-max))
|
|
(replace-string ":noweb yes" ":noweb no-export" nil (point-min) (point-max))
|
|
(setq-local buffer-file-name file)
|
|
(message "Publish %s" file)
|
|
(org-hugo-export-to-md)))
|