;;; ox-plumhtml.el --- sane HTML export for org-mode -*- lexical-binding: t; -*- ;; Copyright (C) 2020 Plum ;; Author: Plum ;; Created: June 2020 ;; Package-Version: 1.0.1 ;; Keywords: org-export ;; URL: https://words.plum.moe/ox-plumhtml.html ;; Package-Requires: ((emacs "24") (ox-slimhtml "0.4.5")) ;; This file is not part of GNU Emacs ;;; License: ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this file. If not, see . ;;; Commentary: ;; Sane extensions to ox-slimhtml ;;; Code: (require 'ox-slimhtml) ;; Utils (defun ox-plumhtml--table-header-p (element info) "Returns `t' if the table has a header else `nil'" (or (org-export-table-has-header-p element info) (org-export-table-has-header-p (org-export-get-parent-table element) info))) ;; org-export Translations (defun ox-plumhtml-paragraph (paragraph contents info) "This is the same as `ox-slimhtml-paragraph' but doesn't add a

before export-snippet blocks like #+begin_src .... #+end_src" (when contents (if (or (ox-slimhtml--immediate-child-of-p paragraph 'item) (ox-slimhtml--immediate-child-of-p paragraph 'special-block) (ox-slimhtml--has-immediate-child-of-p paragraph 'export-snippet)) contents (if (ox-slimhtml--has-immediate-child-of-p paragraph 'link) (format "

%s

" contents) (format "%s

" (ox-slimhtml--attr paragraph) contents))))) (defun ox-plumhtml-table (table contents info) (format "%s
" contents)) (defun ox-plumhtml-table-row (table-row contents info) "Transcodes an org table-row to HTML Implement and " (when (eq 'standard (org-element-property :type table-row)) (let* ((open (org-export-table-row-starts-rowgroup-p table-row info)) (close (org-export-table-row-ends-rowgroup-p table-row info)) (first-row (= 0 (org-export-table-row-number table-row info))) (tags (cond ((and (ox-plumhtml--table-header-p table-row info) (or (equal '(top) open) (equal '(below) close))) '("" . "")) ((or (equal '(above) open) (equal '(bottom) close) first-row) '("" . "")))) (concat (and (or open first-row) (car tags)) (format "%s" contents) (and close (cdr tags)))))) (defun ox-plumhtml-table-cell (table-cell contents info) "Transcodes and org table-cell to HTML Uses for table headers" (if (and (ox-plumhtml--table-header-p table-cell info) (org-export-table-row-in-header-p (org-export-get-parent table-cell) info)) (format "%s" contents) (format "%s" contents))) (defun ox-plumhtml-code (code contents info) (format "%s" (org-element-property :value code))) (defun ox-plumhtml-verbatim (verbatim contents info) (format "%s" (org-element-property :value verbatim))) ;; org-export backend and export/publish functions (org-export-define-derived-backend 'plumhtml 'slimhtml :translate-alist '((table . ox-plumhtml-table) (table-row . ox-plumhtml-table-row) (table-cell . ox-plumhtml-table-cell) (paragraph . ox-plumhtml-paragraph) (code . ox-plumhtml-code) (verbatim . ox-plumhtml-verbatim))) ;;;###autoload (defun ox-plumhtml-publish-to-html (plist filename pub-dir) (org-publish-org-to 'plumhtml filename ".html" plist pub-dir)) ;;;###autoload (defun ox-plumhtml-export-as-html (&optional async subtreep visible-only body-only ext-plist) (interactive) (org-export-to-buffer 'plumhtml "*Org PlumHTML Export*" async subtreep visible-only body-only ext-plist (lambda () (set-auto-mode t)))) ;;;###autoload (defun ox-plumhtml-export-to-html (&optional async subtreep visible-only body-only ext-plist) (interactive) (let ((org-export-coding-system org-html-coding-system)) (org-export-to-file 'plumhtml (org-export-output-file-name ".html" subtreep) async subtreep visible-only body-only ext-plist))) (provide 'ox-plumhtml) ;;; ox-plumhtml.el ends here