Add app/present

modules/app/present/autoload.el

@@ -0,0 +1,27 @@
+;;; app/present/autoload.el
+
+;;;###autoload
+(defun +present/buffer ()
+  (interactive)
+  (require 'simple-httpd)
+  (unless (process-status "httpd")
+    (httpd-start))
+  (unless impatient-mode
+    (impatient-mode +1)))
+
+;;;###autoload
+(define-minor-mode +present/big-mode
+  :init-value nil
+  :lighter " BIG"
+  :global t
+  (if +present-big-mode
+      (set-frame-font +present-big-font t t)
+    (set-frame-font +present-original-font t t)))
+
+;;;###autoload
+(defun +present/stream ()
+  "Resize the frame pixelwise, so that it fits directly into my livecoding.tv
+streaming layout."
+  (interactive)
+  (set-frame-width (selected-frame) 1325 nil t)
+  (set-frame-height (selected-frame) 1080 nil t))

modules/app/present/config.el

@@ -0,0 +1,32 @@
+;;; app/present/config.el
+
+;; Sometimes you just get that powerful urge to show off. I don't have a fancy
+;; car, so Emacs will have to do.
+;;
+;;  + `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
+;;  + and `+present/big-mode' lets me toggle big fonts for streams or
+;;    screen-sharing
+
+;; Fonts for `+present/big-mode'
+(defvar +present-original-font +doom-font)
+(defvar +present-big-font (font-spec :family "Fira Mono" :size 16))
+
+
+;;
+;; Plugins
+;;
+
+(def-package! impatient-mode
+  :commands impatient-mode)
+
+;; reveal.js
+(when (featurep! :lang org)
+  (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))
+

modules/app/present/packages.el

@@ -0,0 +1,6 @@
+;; -*- no-byte-compile: t; -*-
+;;; app/present/packages.el
+
+(package! htmlize)
+(package! impatient-mode)
+(package! ox-reveal)