byteio/nixos-config
1
0
Fork 0
mirror of https://github.com/librephoenix/nixos-config synced 2025-04-21 01:34:34 +05:30
Code Issues Packages Projects Releases Wiki Activity

Added weird but functional jekyll post name edit func

Browse source
This commit is contained in:
Emmet 2023-12-01 18:12:49 -06:00
parent bc4e360eb4
commit fe23c155eb
2 changed files with 40 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
user/app/doom-emacs/config.el
View file

@ -541,13 +541,32 @@ same directory as the org-buffer and insert a link to this file."
)) (org-capture)) )) (org-capture))
) )
(defun org-jekyll-rename-post ()
(interactive)
(setq new-blog-post-title (read-from-minibuffer "Post name: "))
(setq new-blog-post-date (format-time-string "%Y-%m-%d" (date-to-time (org-read-date))))
(setq new-blog-post-slug (downcase (replace-regexp-in-string "[^[:alpha:][:digit:]_-]" "" (string-replace " " "-" new-blog-post-title))))
(org-roam-set-keyword "title" new-blog-post-title)
(replace-regexp "permalink: .*\n" (concat "permalink: " new-blog-post-date "-" new-blog-post-slug "\n") nil (point-min) (point-max))
(replace-regexp "title: .*\n" (concat "title: " new-blog-post-title "\n") nil (point-min) (point-max))
(setq prev-blog-post-filename-base (file-name-base (buffer-file-name)))
(doom/move-this-file (concat new-blog-post-date "-" new-blog-post-slug ".org"))
(shell-command (concat "sed -i s/" prev-blog-post-filename-base "/" (file-name-base (buffer-file-name)) "/g *.org") nil)
(replace-regexp prev-blog-post-filename-base (file-name-base (buffer-file-name)) nil (point-min) (point-max))
(save-buffer)
)
;; TODO make function to edit title or date post post creation ;; TODO make function to edit title or date post post creation
(map! :leader (map! :leader
:prefix ("N") :prefix ("N")
:desc "New blog post" :desc "New blog post"
"p" #'org-jekyll-new-post) "p" #'org-jekyll-new-post
:desc "Rename or redate blog post and update links accordingly"
"e" #'org-jekyll-rename-post
)
;;;------ Org roam configuration ------;;; ;;;------ Org roam configuration ------;;;
(require 'org-roam) (require 'org-roam)

21
user/app/doom-emacs/doom.org
View file

@ -662,13 +662,32 @@ exit
)) (org-capture)) )) (org-capture))
) )
(defun org-jekyll-rename-post ()
(interactive)
(setq new-blog-post-title (read-from-minibuffer "Post name: "))
(setq new-blog-post-date (format-time-string "%Y-%m-%d" (date-to-time (org-read-date))))
(setq new-blog-post-slug (downcase (replace-regexp-in-string "[^[:alpha:][:digit:]_-]" "" (string-replace " " "-" new-blog-post-title))))
(org-roam-set-keyword "title" new-blog-post-title)
(replace-regexp "permalink: .*\n" (concat "permalink: " new-blog-post-date "-" new-blog-post-slug "\n") nil (point-min) (point-max))
(replace-regexp "title: .*\n" (concat "title: " new-blog-post-title "\n") nil (point-min) (point-max))
(setq prev-blog-post-filename-base (file-name-base (buffer-file-name)))
(doom/move-this-file (concat new-blog-post-date "-" new-blog-post-slug ".org"))
(shell-command (concat "sed -i s/" prev-blog-post-filename-base "/" (file-name-base (buffer-file-name)) "/g *.org") nil)
(replace-regexp prev-blog-post-filename-base (file-name-base (buffer-file-name)) nil (point-min) (point-max))
(save-buffer)
)
;; TODO make function to edit title or date post post creation ;; TODO make function to edit title or date post post creation
(map! :leader (map! :leader
:prefix ("N") :prefix ("N")
:desc "New blog post" :desc "New blog post"
"p" #'org-jekyll-new-post) "p" #'org-jekyll-new-post
:desc "Rename or redate blog post and update links accordingly"
"e" #'org-jekyll-rename-post
)
#+end_src #+end_src
** Org Roam Configuration ** Org Roam Configuration