xenodium

(defcustom send-to-kindle-from-email
  nil
  "Your own email address to send from via mu4e."
  :type 'string
  :group 'send-to-kindle)

(defcustom send-to-kindle-to-email
  nil
  "Your Kindle email address to send pdf to."
  :type 'string

xenodium

(defcustom send-to-kindle-from-email
  nil
  "Your own email address to send from via mu4e."
  :type 'string
  :group 'send-to-kindle)

(defcustom send-to-kindle-to-email
  nil
  "Your Kindle email address to send pdf to."
  :type 'string

xenodium

(defun advised:elisp-demos--search (orig-fun symbol)
  (cl-letf* ((orig-insert-file-contents (symbol-function 'insert-file-contents))
             ((symbol-function 'insert-file-contents)
              (lambda (filename &optional visit beg end replace)
                (apply orig-insert-file-contents filename visit beg end replace nil)
                (apply orig-insert-file-contents "/private/tmp/mine.org" visit beg end replace nil))))
    (funcall orig-fun symbol)))

(advice-add 'elisp-demos--search :around #'advised:elisp-demos--search)

xenodium

$ pandoc -f org -t markdown-smart --strip-comments --wrap=none --lua-filter=org.lua index.org -o output.md && sed -i '' 's/{width="[0-9]*%"}//g' output.md

org.lua:

function Header(el)
  el.attr = pandoc.Attr("", {}, {})
  return el
end

function CodeBlock(el)