[Emacs] Add org-present configuration
This commit is contained in:
parent
94ecdab2fd
commit
a155947b5e
@ -3867,6 +3867,72 @@ The project is then defined like so:
|
|||||||
(require 'org-ref))
|
(require 'org-ref))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
*** Org-present
|
||||||
|
:PROPERTIES:
|
||||||
|
:CUSTOM_ID: Packages-Configuration-Org-mode-Org-present-pw04s240w8j0
|
||||||
|
:END:
|
||||||
|
~org-present~ allows its user to create presentations through ~org-mode~,
|
||||||
|
which is really nice! However, most of my configuration will be stolen
|
||||||
|
[[https://config.daviwil.com/emacs#org-present][from Daviwil’s]] with minor changes.
|
||||||
|
#+begin_src emacs-lisp
|
||||||
|
(defun my/org-present-prepare-slide ()
|
||||||
|
(org-overview)
|
||||||
|
(org-show-entry)
|
||||||
|
(org-show-children)
|
||||||
|
(org-present-hide-cursor))
|
||||||
|
|
||||||
|
(defun my/org-present-init ()
|
||||||
|
(setq header-line-format " ")
|
||||||
|
(org-display-inline-images)
|
||||||
|
(my/org-present-prepare-slide))
|
||||||
|
|
||||||
|
(defun my/org-present-quit ()
|
||||||
|
(setq header-line-format nil)
|
||||||
|
(org-present-small)
|
||||||
|
(org-present-show-cursor))
|
||||||
|
|
||||||
|
(defun my/org-present-prev ()
|
||||||
|
(interactive)
|
||||||
|
(org-present-prev)
|
||||||
|
(my/org-present-prepare-slide))
|
||||||
|
|
||||||
|
(defun my/org-present-next ()
|
||||||
|
(interactive)
|
||||||
|
(org-present-next)
|
||||||
|
(my/org-present-prepare-slide))
|
||||||
|
|
||||||
|
(use-package org-present
|
||||||
|
:after org
|
||||||
|
:defer t
|
||||||
|
:straight (:build t)
|
||||||
|
:general
|
||||||
|
(:states '(normal emacs)
|
||||||
|
:keymaps 'org-present-mode-map
|
||||||
|
"SPC" nil
|
||||||
|
"," nil)
|
||||||
|
(:states 'normal
|
||||||
|
:keymaps 'org-mode-map
|
||||||
|
:prefix ","
|
||||||
|
"p" #'org-present)
|
||||||
|
(:states 'normal
|
||||||
|
:keymaps 'org-present-mode-keymap
|
||||||
|
"+" #'org-present-big
|
||||||
|
"-" #'org-present-small
|
||||||
|
"<" #'org-present-beginning
|
||||||
|
">" #'org-present-end
|
||||||
|
"«" #'org-present-beginning
|
||||||
|
"»" #'org-present-end
|
||||||
|
"c" #'org-present-hide-cursor
|
||||||
|
"C" #'org-present-show-cursor
|
||||||
|
"n" #'org-present-next
|
||||||
|
"p" #'org-present-prev
|
||||||
|
"r" #'org-present-read-only
|
||||||
|
"w" #'org-present-read-write
|
||||||
|
"q" #'org-present-quit)
|
||||||
|
:hook ((org-present-mode . my/org-present-init)
|
||||||
|
(org-present-mode-quit . my/org-present-quit)))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
*** Visual Configuration
|
*** Visual Configuration
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:CUSTOM_ID: Packages-Configuration-Org-mode-Visual-Configurationrol5fl6184j0
|
:CUSTOM_ID: Packages-Configuration-Org-mode-Visual-Configurationrol5fl6184j0
|
||||||
|
Loading…
Reference in New Issue
Block a user