mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

re-enable ox-hugo

Browse Source
This commit is contained in:
MitchMarq42 2023-05-04 21:06:18 -08:00
parent bdbe81dc1e
commit 8db4f9eedd
1 changed files with 34 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
lisp/mitch-packages.el
View File

@ -625,40 +625,40 @@ targets."
:states 'normal
:keymaps 'org-src-mode-map
"ZZ" 'org-edit-src-exit))
;; (use-package ox-hugo
;; :after org
;; :config
;; (defun hugo-dir-above (dir)
;; "Return path of Hugo project root above or at DIR.
;; Return nil if DIR is not in a hugo project at all."
;; (let ((thisdir dir))
;; (let ((lexical-binding t))
;; (if (eq thisdir nil) nil
;; (if (file-exists-p (expand-file-name "config.toml" thisdir))
;; thisdir
;; (let ((updir (file-name-directory (string-trim-right thisdir "/"))))
;; (hugo-dir-above updir)))))))
;; ;; (hugo-dir-above "~/.local/git/mitchmarq42.github.io/content-org/")
;; (defun hugo-compile (&optional dir)
;; (interactive)
;; (if (bound-and-true-p dir) nil
;; (setq dir default-directory))
;; (let ((hugo-dir (hugo-dir-above dir)))
;; (if hugo-dir
;; (progn
;; (if (string-match-p (rx bol (* any) "/content-org" (opt "/") eol)
;; default-directory)
;; (org-hugo-export-wim-to-md))
;; (let* ((default-directory hugo-dir)
;; (buffer (get-buffer-create "*hugo*")))
;; (with-current-buffer buffer
;; ;; (compilation-mode)
;; (let* ((inhibit-read-only t)
;; (status-code (call-process-shell-command "hugo" nil buffer)))
;; (if (zerop status-code)
;; (message "Hugo re-generated!")
;; (error "Hugo exited %s, better change something!" status-code)))))))))
;; (add-hook 'after-save-hook #'hugo-compile))
(use-package ox-hugo
:after org
:config
(defun hugo-dir-above (dir)
"Return path of Hugo project root above or at DIR.
Return nil if DIR is not in a hugo project at all."
(let ((thisdir dir))
(let ((lexical-binding t))
(if (eq thisdir nil) nil
(if (file-exists-p (expand-file-name "config.toml" thisdir))
thisdir
(let ((updir (file-name-directory (string-trim-right thisdir "/"))))
(hugo-dir-above updir)))))))
;; (hugo-dir-above "~/.local/git/mitchmarq42.github.io/content-org/")
(defun hugo-compile (&optional dir)
(interactive)
(if (bound-and-true-p dir) nil
(setq dir default-directory))
(let ((hugo-dir (hugo-dir-above dir)))
(if hugo-dir
(progn
(if (string-match-p (rx bol (* any) "/content-org" (opt "/") eol)
default-directory)
(org-hugo-export-wim-to-md))
(let* ((default-directory hugo-dir)
(buffer (get-buffer-create "*hugo*")))
(with-current-buffer buffer
;; (compilation-mode)
(let* ((inhibit-read-only t)
(status-code (call-process-shell-command "hugo" nil buffer)))
(if (zerop status-code)
(message "Hugo re-generated!")
(error "Hugo exited %s, better change something!" status-code)))))))))
(add-hook 'after-save-hook #'hugo-compile))
(use-package ox-clip
:commands ox-clip-formatted-copy)