mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-16 20:10:58 +01:00
104 lines
2.9 KiB
EmacsLisp
104 lines
2.9 KiB
EmacsLisp
|
|
||
|
|
(use-package org-present
|
||
|
|
:config
|
||
|
|
(defun tvd/org-present-prepare-slide (buffer-name heading)
|
||
|
|
;; Show only top-level headlines
|
||
|
|
(org-overview)
|
||
|
|
|
||
|
|
;; Unfold the current entry
|
||
|
|
(org-show-entry)
|
||
|
|
|
||
|
|
;; Show only direct subheadings of the slide but don't expand them
|
||
|
|
(org-show-children))
|
||
|
|
|
||
|
|
(defun tvd/org-present-start ()
|
||
|
|
;; Tweak font sizes
|
||
|
|
(setq-local face-remapping-alist '((default (:height 1.5) variable-pitch)
|
||
|
|
(header-line (:height 4.0) variable-pitch)
|
||
|
|
(org-document-title (:height 1.75) org-document-title)
|
||
|
|
(org-code (:height 1.55) org-code)
|
||
|
|
(org-verbatim (:height 1.55) org-verbatim)
|
||
|
|
(org-block (:height 1.25) org-block)
|
||
|
|
(org-block-begin-line (:height 0.7) org-block)))
|
||
|
|
|
||
|
|
;; Set a blank header line string to create blank space at the top
|
||
|
|
(setq header-line-format " ")
|
||
|
|
|
||
|
|
;; Display inline images automatically
|
||
|
|
(org-display-inline-images)
|
||
|
|
|
||
|
|
(org-present-read-only)
|
||
|
|
|
||
|
|
(setq word-wrap t
|
||
|
|
cursor-type nil
|
||
|
|
line-spacing 5)
|
||
|
|
|
||
|
|
(hide-mode-line-mode +1)
|
||
|
|
|
||
|
|
;; Center the presentation and wrap lines
|
||
|
|
;; (visual-fill-column-mode 1)
|
||
|
|
;; (visual-line-mode 1)
|
||
|
|
|
||
|
|
(set-fringe-mode 0)
|
||
|
|
(setq tvd/margin (/ (- (window-body-width) fill-column) 5))
|
||
|
|
|
||
|
|
(org-superstar-mode)
|
||
|
|
|
||
|
|
(set-window-margins nil tvd/margin tvd/margin))
|
||
|
|
|
||
|
|
(defun tvd/org-present-end ()
|
||
|
|
;; Reset font customizations
|
||
|
|
(setq-local face-remapping-alist '((default variable-pitch default)))
|
||
|
|
|
||
|
|
;; Clear the header line string so that it isn't displayed
|
||
|
|
(setq header-line-format nil)
|
||
|
|
|
||
|
|
;; Stop displaying inline images
|
||
|
|
(org-remove-inline-images)
|
||
|
|
|
||
|
|
(org-present-show-cursor)
|
||
|
|
(org-present-read-write)
|
||
|
|
|
||
|
|
(setq word-wrap nil
|
||
|
|
cursor-type t
|
||
|
|
line-spacing nil)
|
||
|
|
(hide-mode-line-mode -1)
|
||
|
|
|
||
|
|
;; Stop centering the document
|
||
|
|
;; (visual-fill-column-mode 0)
|
||
|
|
;; (visual-line-mode 0)
|
||
|
|
|
||
|
|
(set-fringe-mode 1)
|
||
|
|
(set-window-margins nil 0 0)
|
||
|
|
|
||
|
|
(org-superstar-mode))
|
||
|
|
|
||
|
|
;; Turn on variable pitch fonts in Org Mode buffers
|
||
|
|
(add-hook 'org-mode-hook 'variable-pitch-mode)
|
||
|
|
|
||
|
|
;; Register hooks with org-present
|
||
|
|
(add-hook 'org-present-mode-hook 'tvd/org-present-start)
|
||
|
|
(add-hook 'org-present-mode-quit-hook 'tvd/org-present-end)
|
||
|
|
(add-hook 'org-present-after-navigate-functions 'tvd/org-present-prepare-slide)
|
||
|
|
|
||
|
|
(define-key org-present-mode-keymap (kbd "q") 'org-present-quit)
|
||
|
|
(define-key org-present-mode-keymap (kbd "<home>") 'org-present-top)
|
||
|
|
(define-key org-present-mode-keymap (kbd "<end>") 'org-present-end))
|
||
|
|
|
||
|
|
(use-package visual-fill-column
|
||
|
|
:config
|
||
|
|
(setq visual-fill-column-width 110
|
||
|
|
visual-fill-column-center-text t)
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(use-package hide-mode-line)
|
||
|
|
|
||
|
|
(use-package org-superstar)
|
||
|
|
|
||
|
|
(provide 'init-org-present)
|
||
|
|
|