mirror of
https://git.sr.ht/~magic_rb/website
synced 2024-11-28 02:56:13 +01:00
40 lines
1 KiB
EmacsLisp
40 lines
1 KiB
EmacsLisp
(require 'org-special-block-extras)
|
|
|
|
(org-defblock note
|
|
(title)
|
|
"Test"
|
|
(format
|
|
(pcase backend
|
|
(`html "<details class=\"note\">
|
|
<summary>
|
|
<i class=\"fa-regular fa-comment\"></i>
|
|
%s
|
|
</summary>
|
|
%s
|
|
</details>"))
|
|
title contents))
|
|
|
|
(org-defblock
|
|
card (name "Card" link "" image nil image-html nil)
|
|
"Card"
|
|
(cl-case backend
|
|
((html templated-html)
|
|
(concat
|
|
"<a class=\"card-link\" href=\"" link "\">"
|
|
" <div class=\"card-entry\">"
|
|
(if image
|
|
(concat "<img src=\"" image "\" class=\"card-icon\"/>")
|
|
(concat "<div class=\"card-icon\">" image-html "</div>"))
|
|
" <div class=\"card-separator\"></div>"
|
|
" <div class=\"card-body\">"
|
|
" <h4 class=\"card-heading\">" name "</h4>"
|
|
" <p class=\"card-content\">"
|
|
" " contents
|
|
" </p>"
|
|
" </div>"
|
|
" </div>"
|
|
"</a>"))
|
|
(t "ERROR")))
|
|
|
|
(provide 'extra-blocks)
|