feat(base): Add magit-prime, org-tree-slide, pixel-scroll and eww config

- Install magit-prime package
- Add org-tree-slide with custom start/stop functions and keybindings
- Enable pixel-scroll-precision-mode
- Add basic eww configuration

lisp/init-kbd-func.el

@@ -59,6 +59,11 @@ Disable jinx-mode if it's enable and global-jinx-mode is disable , otherwise tog
                   nil 0 nil
                   (file-name-directory (expand-file-name file)))))
 
+(defun my-open-current-directory ()
+  "Open current directory in default file explorer."
+  (interactive)
+  (consult-directory-externally default-directory))
+
 (defun consult-fd-home ()
     "Search for all files in home folder use fd."
     (interactive)
@@ -66,11 +71,6 @@ Disable jinx-mode if it's enable and global-jinx-mode is disable , otherwise tog
           (default-directory "~/"))
       (consult-fd)))
 
-(defun my-open-current-directory ()
-  "Open current directory in default file explorer."
-  (interactive)
-  (consult-directory-externally default-directory))
-
 (defun org-cycle-parent-subtree()
   "Cycle parent org subtree."
   (interactive)
@@ -145,6 +145,33 @@ Disable jinx-mode if it's enable and global-jinx-mode is disable , otherwise tog
   (interactive)
   (my-blog-publish "~/org/my-org-note/"))
 
+(defun my-org-tree-slide-start ()
+  "Start `org-tree-slide'."
+  (interactive)
+  (when (eq major-mode 'org-mode)
+    (setq-local header-line-format nil
+                mode-line-format nil
+		cursor-type 'hbar
+		olivetti-body-width 100)
+    (blink-cursor-mode -1)
+    (cnfonts-increase-fontsize 3)
+    (hl-line-mode 'toggle)
+    (read-only-mode 1)
+    (jinx-mode -1)
+    (org-tree-slide-mode 1)))
+
+(defun my-org-tree-slide-stop ()
+  "Stop `org-tree-slide'."
+  (interactive)
+  (when (and (eq major-mode 'org-mode) (memq 'org-tree-slide-mode local-minor-modes))
+    (org-mode-restart)
+    (blink-cursor-mode 1)
+    (cnfonts-decrease-fontsize 3)
+    (hl-line-mode 1)
+    (read-only-mode -1)
+    (jinx-mode 1)
+    (org-tree-slide-mode -1)))
+
 (defun my-dired-next-line()
   "Move to forward line in dired buffer"
   (interactive)