Change binding for org-present mode and some tweaks

configuration.org

@@ -321,7 +321,7 @@ Select the font I will use depending on the system
                                         ; Font on MacOS
     (progn
       (setq mh-font-fixed "Fira Code")
-      (setq mh-font-variable "Marianne")
+      (setq mh-font-variable "Sans Serif")
       )
                                         ; Font on Other Systems (Linux actually, I do not use emacs on windows)
   (progn
@@ -595,6 +595,7 @@ it with =visual-fill-column= to enhance the visual look of the presentation.
 (require 'org-faces)
 
 ;; Function to be called when changing slide
+
 (defun my/org-present-prepare-slide (buffer-name heading)
   ;; Show only top-level headlines
   (org-overview)
@@ -603,7 +604,8 @@ it with =visual-fill-column= to enhance the visual look of the presentation.
   (org-show-entry)
 
   ;; Show only direct subheadings of the slide but don't expand them
-  (org-show-children))
+  (org-show-children)
+  )
 
 ;; What to do when starting/ending a presentation
 (defun my/org-present-start ()
@@ -657,7 +659,7 @@ it with =visual-fill-column= to enhance the visual look of the presentation.
 
 (defun my/org-present-end ()
   (visual-fill-column-mode 0)
-  (visual-line-mode 0)
+;  (visual-line-mode 0)
   (display-line-numbers-mode 1)
   (menu-bar-mode 1)
   (scroll-bar-mode 1)
@@ -686,10 +688,20 @@ it with =visual-fill-column= to enhance the visual look of the presentation.
 
 (use-package org-present
   :hook (
+         ;; Setup slides environnement when starting a presentation
          (org-present-mode . my/org-present-start)
+         ;; And restore it when leaving
          (org-present-mode-quit . my/org-present-end)
          )
+  ;; Keep using <left> and <right> to move point and uses pgup and pgdown to switch slides
+  :bind (:map org-present-mode-keymap
+              ("<next>" . 'org-present-next)
+              ("<prior>" . 'org-present-prev)
+              ("<left>" . nil)
+              ("<right>" . nil)
+         )
   :init
+  ;; Behavior when switching slides
   (add-hook 'org-present-after-navigate-functions 'my/org-present-prepare-slide)
   )
 (use-package visual-fill-column