109 lines
3.8 KiB
EmacsLisp
109 lines
3.8 KiB
EmacsLisp
;;; app/present/config.el
|
|
|
|
;; Sometimes you just get that urge to show off. I don't have a fancy car, so
|
|
;; my code or Emacs will have to do.
|
|
;;
|
|
;; Sometimes I stream my work on liveedu.tv, or record it on youtube, or peer
|
|
;; program over skype/teamviewer, or present at talks -- for all of this, Emacs
|
|
;; is my solution.
|
|
;;
|
|
;; + `impatient-mode' lets me show off code, as I write it, in real-time over
|
|
;; HTTP (see `+present/buffer')
|
|
;; + `ox-reveal' adds a reveal.js exporter to org-mode
|
|
;; + `org-tree-slide' for presenting org buffers as slides, plus some hacks to
|
|
;; unclutter them.
|
|
;; + and `+present/big-mode' lets me toggle big fonts for streams or
|
|
;; screen-sharing
|
|
|
|
(defvar +present-big-font (font-spec :family "Fira Mono" :size 18)
|
|
"Font to use when `+present/big-mode' is enabled.")
|
|
|
|
(defvar +present-scale 7
|
|
"The `text-scale-amount' for `org-tree-slide-mode'.")
|
|
|
|
|
|
;;
|
|
;; Plugins
|
|
;;
|
|
|
|
(def-package! impatient-mode
|
|
:commands impatient-mode)
|
|
|
|
|
|
(def-package! centered-window-mode
|
|
:commands centered-window-mode
|
|
:config
|
|
(setq cwm-use-vertical-padding t
|
|
cwm-frame-internal-border 110
|
|
cwm-left-fringe-ratio -10
|
|
cwm-centered-window-width 240))
|
|
|
|
|
|
(when (featurep! :lang org) ;; reveal.js
|
|
(if (bound-and-true-p org-modules-loaded)
|
|
(require 'ox-reveal)
|
|
(add-hook! 'org-load (require 'ox-reveal)))
|
|
|
|
(setq org-reveal-root "http://cdn.jsdelivr.net/reveal.js/3.0.0/"
|
|
org-reveal-mathjax t)
|
|
|
|
(def-package! org-tree-slide
|
|
:commands org-tree-slide-mode
|
|
:init
|
|
(after! org
|
|
(map! :map org-mode-map
|
|
"<f8>" '+present/org-tree-slides
|
|
"<f7>" '+present/next))
|
|
:config
|
|
(setq org-tree-slide-skip-outline-level 2
|
|
org-tree-slide-activate-message " "
|
|
org-tree-slide-deactivate-message " "
|
|
org-tree-slide-modeline-display nil)
|
|
(org-tree-slide-simple-profile)
|
|
|
|
(map! :map org-tree-slide-mode-map
|
|
[right] 'org-tree-slide-move-next-tree
|
|
[left] 'org-tree-slide-move-previous-tree)
|
|
|
|
(add-hook! 'org-tree-slide-mode-after-narrow-hook
|
|
'(+present|detect-slide +present|add-overlays org-display-inline-images))
|
|
|
|
(add-hook! 'org-tree-slide-mode-hook
|
|
(doom/window-zoom)
|
|
(let ((arg (if org-tree-slide-mode +1 -1)))
|
|
(when (featurep 'doom-themes)
|
|
(doom-buffer-mode (* arg -1)))
|
|
(centered-window-mode arg)
|
|
(window-divider-mode (* arg -1))
|
|
(doom-hide-modeline-mode arg)
|
|
(cond (org-tree-slide-mode
|
|
(org-indent-mode -1)
|
|
(text-scale-set +present-scale)
|
|
(ignore-errors (org-preview-latex-fragment '(4)))
|
|
(set-face-attribute 'org-level-2 nil :height 1.4))
|
|
(t
|
|
(org-indent-mode +1)
|
|
(text-scale-set 0)
|
|
(org-remove-latex-fragment-image-overlays)
|
|
(set-face-attribute 'org-level-2 nil :height 1.0)
|
|
(+present|remove-overlays)
|
|
(org-remove-inline-images)))))
|
|
|
|
(defun +present*org-tree-slide-narrow-exclude-header (orig-fn &rest args)
|
|
(cl-letf (((symbol-function 'org-narrow-to-subtree)
|
|
(lambda () (save-excursion
|
|
(save-match-data
|
|
(org-with-limited-levels
|
|
(narrow-to-region
|
|
(progn (org-back-to-heading t)
|
|
(forward-line 1)
|
|
(point))
|
|
(progn (org-end-of-subtree t t)
|
|
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
|
|
(point)))))))))
|
|
(apply orig-fn args)))
|
|
(advice-add 'org-tree-slide--display-tree-with-narrow
|
|
:around '+present*org-tree-slide-narrow-exclude-header)))
|
|
|
|
|