mirror of
https://github.com/SqrtMinusOne/sqrtminusone.github.io.git
synced 2025-12-10 07:43:03 +03:00
74 lines
2.4 KiB
EmacsLisp
74 lines
2.4 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)
|
|
(setq org-hugo-anchor-functions '(org-hugo-get-page-or-bundle-name
|
|
org-hugo-get-custom-id
|
|
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 "~/dot-stats/img") "dot-stats/img" 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)))
|