website/lisp/extra-blocks.el

(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)