Add org-present

emacs/init.org

@@ -1459,9 +1459,10 @@ Notes, agenda, calendar, blogging, journaling, etc.
   (leader-def-key "oa" 'org-agenda)
   (leader-def-key "oc" 'org-capture)
   (setq org-src-fontify-natively t
-	org-ellipsis " ▼"
-	org-directory (concat (get-dropbox-directory) "/org")
-	org-link-elisp-confirm-function 'y-or-n-p)
+        org-ellipsis " ▼"
+        org-directory (concat (get-dropbox-directory) "/org")
+        org-link-elisp-confirm-function 'y-or-n-p
+        org-startup-with-inline-images t)
   (add-hook 'org-mode-hook #'auto-fill-mode)
 #+END_SRC
 
@@ -1915,6 +1916,45 @@ A function to get the TITLE property of the current org buffer:
 	       (org-element-property :value el))))))))
 #+END_SRC
 
+* org-present
+An ultra-minimalist presentation mode for Org:
+#+BEGIN_SRC emacs-lisp
+  (use-package org-present
+    :commands (org-present)
+    :config
+    (defun org-present-on ()
+      (org-present-big)
+      (org-display-inline-images)
+      (org-present-hide-cursor)
+      (display-line-numbers-mode -1)
+      (org-present-read-only))
+    (defun org-present-off ()
+      (org-present-small)
+      (org-present-show-cursor)
+      (unless org-startup-with-inline-images
+       (org-remove-inline-images))
+      (display-line-numbers-mode)
+      (org-present-read-write))
+    (add-hook 'org-present-mode-hook #'org-present-on)
+    (add-hook 'org-present-mode-quit-hook #'org-present-off)
+    ;; Redefine org-present to call org-present-narrow after running hooks
+    (defun org-present ()
+      "init."
+      (interactive)
+      (setq org-present-mode t)
+      (org-present-add-overlays)
+      (run-hooks 'org-present-mode-hook)
+      (org-present-narrow)
+      (org-present-run-after-navigate-functions))
+    :init
+    (general-def '(normal visual motion emacs) org-present-mode-keymap
+     "<left>" #'org-present-prev
+     "<right>" #'org-present-next
+     "C-k" #'org-present-prev
+     "C-j" #'org-present-next
+     "q" #'org-present-quit))
+#+END_SRC
+
 * link-hint
 A very helpful package that provides jump-to-link functionality:
 #+BEGIN_SRC emacs-lisp