diff --git a/emacs/init.org b/emacs/init.org index ecf6593..34861aa 100755 --- a/emacs/init.org +++ b/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 + "" #'org-present-prev + "" #'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