wip

home.org

@@ -858,7 +858,10 @@ its own devil-mode-only repeat maps that don't interfere when using normal modif
                ("z" . repeat))
     (bind-keys ("<escape>" . (lambda () (interactive) (god-mode-all 1))))
     (defun my-god-mode-update-cursor-type ()
-      (setq cursor-type (if (or god-local-mode buffer-read-only) 'box 'bar)))
+      (setq cursor-type (cond
+                         (org-present-mode nil)
+                         ((or god-local-mode buffer-read-only) 'box)
+                         (t 'bar))))
 
     (add-hook 'post-command-hook #'my-god-mode-update-cursor-type)
     (which-key-enable-god-mode-support))
@@ -1040,7 +1043,11 @@ available? It seems to work for now anyway...
     :mode "\\.java\\'"
     :config
     (bind-keys :map java-ts-mode-map
-                 ("C-c u" . string-inflection-java-style-cycle)))
+               ("C-c u" . string-inflection-java-style-cycle))
+    (push `((n-p-gp nil "block" "lambda_expression") parent-bol java-ts-mode-indent-offset)
+          (cdar java-ts-mode--indent-rules))
+    (push `((n-p-gp "}" "block" "lambda_expression") parent-bol 0)
+     (cdar java-ts-mode--indent-rules)))
 
   (use-package sql-indent
     :hook (sql-mode-hook . sqlind-minor-mode))
@@ -1139,6 +1146,7 @@ available? It seems to work for now anyway...
                                (window-width . 0.5)
                                (window-parameters (no-delete-other-windows . t)))))
     (setopt display-buffer-alist
+            (append
              (mapcar (lambda (buffer) `(,buffer
                                         (display-buffer-reuse-window display-buffer-in-side-window)
                                         ,@bottom-window-params))
@@ -1150,7 +1158,14 @@ available? It seems to work for now anyway...
                       "\\*compilation\\*"
                       "\\*sly-mrepl *"
                       "\\*Messages\\*"
-                       "\\*EGLOT connections\\*"))))
+                      "\\*EGLOT connections\\*"))
+             (mapcar (lambda (buffer) `(,buffer
+                                        (display-buffer-reuse-window display-buffer-in-side-window)
+                                        ,@right-window-params))
+                     (list
+                      "magit: *"
+                      "magit-revision: *"
+                      "\\*eldoc\\*")))))
 
   (setq ediff-split-window-function 'split-window-horizontally)
 #+END_SRC
@@ -1327,8 +1342,11 @@ available? It seems to work for now anyway...
 
 #+BEGIN_SRC nix :noweb-ref emacs_packages
   org-modern
+  org-present
   org-roam
+  ox-slack
   verb
+  visual-fill-column
 #+END_SRC
 
 #+BEGIN_SRC elisp :noweb-ref emacs_config
@@ -1380,6 +1398,62 @@ available? It seems to work for now anyway...
     (set-face-attribute 'org-level-7 nil :font "Iosevka Aile")
     (set-face-attribute 'org-level-8 nil :font "Iosevka Aile"))
 
+  (use-package org-present
+    :commands (org-present)
+    :config
+    (defun my/org-present-start ()
+      (setq-local my/org-present-face-remapping-cookies nil)
+      ;; Tweak font sizes
+      (dolist (face '((default :height 2.0)
+                      (header-line :height 4.0 :background "#303446")
+                      (org-document-title :height 1.75)
+                      (org-code :height 2.0)
+                      (org-verbatim :height 2.0)
+                      (org-block :height 1.25)
+                      (org-block-begin-line :height 0.7)
+                      (org-level-1 :height 3.0)
+                      (org-level-2 :height 3.0)
+                      (org-level-3 :height 3.0)
+                      (org-level-4 :height 3.0)
+                      (org-level-5 :height 3.0)
+                      (org-level-6 :height 3.0)
+                      (org-level-7 :height 3.0)
+                      (org-level-8 :height 3.0)))
+        (push (apply #'face-remap-add-relative face) my/org-present-face-remapping-cookies))
+     
+      ;; 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-hide-cursor)
+
+      ;; Center the presentation and wrap lines
+      (visual-fill-column-mode 1)
+      (setq visual-fill-column-center-text t)
+      ;; (visual-line-mode 1)
+      )
+
+    (defun my/org-present-end ()
+      ;; Reset font customizations
+      (dolist (cookie my/org-present-face-remapping-cookies)
+        (face-remap-remove-relative cookie))
+     
+      ;; 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)
+
+      ;; Stop centering the document
+      (visual-fill-column-mode 0)
+      ;; (visual-line-mode 0)
+      )
+
+    (add-hook 'org-present-mode-hook 'my/org-present-start)
+    (add-hook 'org-present-mode-quit-hook 'my/org-present-end))
+
   (use-package org-roam
     :bind (("C-c n l" . org-roam-buffer-toggle)
            ("C-c n f" . org-roam-node-find)