gh-md.el

Org->GH markdown

(defun gh-md ()
    "Copy Replace current file's ORG contents replaced
with Github-flavoured ones. Works quite poorly for now."
    (interactive)
    (let ((real-buffer (current-buffer)))
      (with-temp-buffer
        (let ((temp-buffer (current-buffer)))
          (with-current-buffer real-buffer
            (copy-to-buffer temp-buffer (point-min) (point-max))
            ))
        (while (search-forward "*" nil t)
          (replace-match "  "))
        (beginning-of-buffer)
        (while (re-search-forward " TODO" nil t)
          (replace-match " - [ ]"))
        (beginning-of-buffer)
        (while (re-search-forward " DONE" nil t)
          (replace-match " - [x]"))
        (clipboard-kill-ring-save (point-min) (point-max))
        )
      )
    )