tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add function for inserting local image with proper export path

Browse source
This commit is contained in:
mez 2025-08-18 21:53:37 +01:00
parent fd515b5266
commit 02b0369d87
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
custom/dwuser.el → custom/journalfunctions.el
View file

@ -13,3 +13,9 @@
(setq userdisplay (subst-char-in-string ?- ?_ theuser)) (setq userdisplay (subst-char-in-string ?- ?_ theuser))
(setq userlink (subst-char-in-string ?_ ?- theuser)) (setq userlink (subst-char-in-string ?_ ?- theuser))
(insert (concat "<a href=\"https://" userlink ".dreamwidth.org/profile\">/</a><a href=\"https://" userlink ".dreamwidth.org\">" userdisplay "</a>"))) (insert (concat "<a href=\"https://" userlink ".dreamwidth.org/profile\">/</a><a href=\"https://" userlink ".dreamwidth.org\">" userdisplay "</a>")))
(defun orgimg ()
"Insert an image and link to its external location"
(interactive)
(setq thefile (read-string "Image file name: "))
(insert "#+ATTR_HTML: :src /dw/" thefile "\n#+ATTR_HTML: :class noteimg\n[[file:~/Documents/drive/org/journal/media/" thefile "]]"))