Thanks to visit codestin.com
Credit goes to github.com

Skip to content

Make figure caption a marginnote #5

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 2 commits into from
Apr 14, 2024
Merged

Make figure caption a marginnote #5

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
84d4b7c
Modify `wrap-inline`
RomeoV Apr 14, 2024
b703dd1
Unify naming of new function better.
RomeoV Apr 14, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
23 changes: 22 additions & 1 deletion org-tufte.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -253,6 +253,26 @@ non-nil."
(attributes (org-combine-plists `(:src ,data-url) attributes)))
(org-html-close-tag "img" (org-html--make-attribute-string attributes) info)))


(defun org-tufte-html-wrap-image (contents info &optional caption label)
"Wrap CONTENTS string within an appropriate environment for images.
INFO is a plist used as a communication channel. When optional
arguments CAPTION and LABEL are given, use them for caption and
\"id\" attribute."
(let ((html5-fancy (org-html--html5-fancy-p info)))
(format (if html5-fancy "\n<figure%s><p>\n%s%s\n</figure>"
"\n<div%s class=\"figure\"><p>\n%s%s\n</div>")
;; ID.
(if (org-string-nw-p label) (format " id=\"%s\"" label) "")
;; Caption.
(if (not (org-string-nw-p caption)) ""
(format (if html5-fancy "\n<figcaption>%s</figcaption>"
"\n<span class=\"marginnote\">%s</span>")
caption))
;; Contents.
(if html5-fancy contents (format "%s</p>" contents))
)))

;;;###autoload
(defun org-tufte-export-to-file (&optional async subtreep visible-only)
"Export current buffer to a Tufte HTML file.
Expand All @@ -278,7 +298,8 @@ Return output file's name."
org-html-footnotes-section
"<!-- %s --><!-- %s -->")))
(if org-tufte-embed-images
(cl-letf (((symbol-function 'org-html--format-image) 'org-tufte-format-image-inline))
(cl-letf (((symbol-function 'org-html--format-image) 'org-tufte-format-image-inline)
((symbol-function 'org-html--wrap-image) 'org-tufte-html-wrap-image))
(org-export-to-file 'tufte-html outfile async subtreep visible-only))
(org-export-to-file 'tufte-html outfile async subtreep visible-only))))

Expand Down