emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

app/present: major rewrite; integrate org-tree-slide for org presentations

Browse source
This commit is contained in:
Henrik Lissner 2017-04-11 09:24:20 -04:00
parent 0c23ff43a4
commit 6c10567e9e
4 changed files with 158 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

77
modules/app/present/autoload.el
View file

@ -1,25 +1,90 @@
;;; app/present/autoload.el
;; --- impatient-mode -------------------------------------------------------------
;;;###autoload
(defun +present/buffer ()
(defun +present/impatient-mode ()
(interactive)
(require 'simple-httpd)
(unless (process-status "httpd")
(httpd-start))
(unless impatient-mode
(impatient-mode +1)))
(impatient-mode)
(if impatient-mode
(add-hook 'kill-buffer-hook '+present--cleanup-impatient-mode)
(+present--cleanup-impatient-mode)))
(defun +present--cleanup-impatient-mode ()
(unless (cl-remove-if-not (lambda (buf) (buffer-local-value 'impatient-mode buf))
(doom-buffer-list))
(httpd-stop)
(remove-hook 'kill-buffer-hook '+present--cleanup-impatient-mode)))
;; --- org tree slides ------------------------------------------------------------
(defvar +present--overlays-list nil)
;;;###autoload
(defun +present/org-tree-slides ()
(interactive)
(unless (derived-mode-p 'org-mode)
(error "Not in an org buffer"))
(call-interactively 'org-tree-slide-mode)
(add-hook 'kill-buffer-hook '+present--cleanup-org-tree-slides-mode))
;;;###autoload
(defun +present|add-overlays ()
(add-to-invisibility-spec '(+present))
(save-excursion
;; hide org-mode options starting with #+
(goto-char (point-min))
(while (re-search-forward "^[[:space:]]*\\(#\\+\\)\\(\\(?:BEGIN\\|END\\|ATTR\\)[^[:space:]]+\\).*" nil t)
(+present--make-invisible
(match-beginning 1)
(match-end 0)))
;; hide stars in headings
(goto-char (point-min))
(while (re-search-forward "^\\(\\*+\\s-\\)" nil t)
(+present--make-invisible (match-beginning 1) (match-end 1)))))
;;;###autoload
(defun +present|remove-overlays ()
(mapc 'delete-overlay +present--overlays-list)
(remove-from-invisibility-spec '(+present)))
(defun +present--cleanup-org-tree-slides-mode ()
(unless (cl-remove-if-not (lambda (buf) (buffer-local-value 'org-tree-slide-mode buf))
(doom-buffers-in-mode 'org-mode))
(org-tree-slide-mode -1)
(remove-hook 'kill-buffer-hook '+present--cleanup-org-tree-slides-mode)))
(defun +present--make-invisible (beg end)
(let ((overlay (make-overlay beg end)))
(push overlay +present--overlays-list)
(overlay-put overlay 'invisible '+present)))
(defun +present--detect-slide ()
(outline-show-all)
(if (member "title" (org-get-tags-at))
(text-scale-set 10)
(text-scale-set +present-scale)))
;; --- misc -----------------------------------------------------------------------
(defvar +present--original-font +doom-font)
;;;###autoload
(define-minor-mode +present/big-mode
:init-value nil
:lighter " BIG"
:global t
(if +present-big-mode
(if +present/big-mode
(set-frame-font +present-big-font t t)
(set-frame-font +present-original-font t t)))
(set-frame-font +present--original-font t t)))
;;;###autoload
(defun +present/stream ()
(defun +present/resize-frame-for-stream ()
"Resize the frame pixelwise, so that it fits directly into my livecoding.tv
streaming layout."
(interactive)