Stable v1

early-init.el

@@ -42,7 +42,7 @@
       inhibit-startup-screen t
       inhibit-startup-echo-area-message user-login-name
       inhibit-default-init t
-      ;; initial-major-mode 'l-mode
+      initial-major-mode 'text-mode
       initial-scratch-message nil)
 
 ;; Faster to disable these here (before they've been initialized)

init.el

@@ -30,7 +30,7 @@
 
 (require 'init-bindings)
 (require 'init-dired)
-;; (require 'init-dashboard) ;; not working
+;; (require 'init-dashboard)
 (require 'init-window)
 (require 'init-shell)
 ;; (require 'init-treemacs) ;; not working

lisp/init-check.el

@@ -1,6 +1,7 @@
 ;; -*- lexical-binding: t; -*-
 
 (use-package flycheck
+  :diminish
   :hook (emacs-startup . global-flycheck-mode)
   :config
   (setq flycheck-emacs-lisp-load-path 'inherit)

lisp/init-dashboard.el

@@ -1,41 +1,49 @@
 ;; -*- lexical-binding: t; -*-
 
-(use-package dashboard
+(use-package dashboard :demand t)  
-  :init
+
-  (use-package doom-dashboard
+(use-package doom-dashboard
-    :ensure (doom-dashboard :host github
+  ;; For Straight Users
-                            :repo "emacs-dashboard/doom-dashboard")
+  :ensure (doom-dashboard :host github
-    :demand t
+                          :repo "emacs-dashboard/doom-dashboard")
-    ;; Movement keys like doom.
+  ;; Or for built-in package-vc
-    :bind
+  ;; :vc (:url "https://github.com/emacs-dashboard/doom-dashboard.git" :rev :newest)
-    (:map dashboard-mode-map
+  ;; :after dashboard
-          ("<remap> <dashboard-previous-line>" . widget-backward)
+  :demand t
-          ("<remap> <dashboard-next-line>" . widget-forward)
+  ;; :hook (elpaca-after-init . dashboard-setup-startup-hook)
-          ("<remap> <previous-line>" . widget-backward)
+  ;; Movement keys like doom.
-          ("<remap> <next-line>"  . widget-forward)
+  :bind
-          ("<remap> <right-char>" . widget-forward)
+  (:map dashboard-mode-map
-          ("<remap> <left-char>"  . widget-backward))
+        ("<remap> <dashboard-previous-line>" . widget-backward)
-    :custom
+        ("<remap> <dashboard-next-line>" . widget-forward)
-    (dashboard-banner-logo-title "E M A C S")
+        ("<remap> <previous-line>" . widget-backward)
-    (dashboard-startup-banner
+        ("<remap> <next-line>"  . widget-forward)
-     (concat doom-dashboard-banner-directory "bcc.txt")) ; Use banner you want
+        ("<remap> <right-char>" . widget-forward)
-    (dashboard-footer-icon
+        ("<remap> <left-char>"  . widget-backward))
-     (nerd-icons-faicon "nf-fa-github_alt" :face 'success :height 1.5))
+  :custom
-    (dashboard-page-separator "\n")
+  (dashboard-banner-logo-title "E M A C S")
-    (dashboard-startupify-list `(dashboard-insert-banner
+  ;; (dashboard-startup-banner 
-                                 dashboard-insert-banner-title
+  ;; (concat doom-dashboard-banner-directory "bcc.txt")) ; Use banner you want
-                                 dashboard-insert-newline
+  ;; (dashboard-footer-icon 
-                                 dashboard-insert-items
+  ;; (nerd-icons-faicon "nf-fa-github_alt" :face 'success :height 1.5))
-                                 ,(dashboard-insert-newline 2)
+  (dashboard-page-separator "\n")
-                                 dashboard-insert-init-info
+  (dashboard-startupify-list `(dashboard-insert-banner
-                                 ,(dashboard-insert-newline 2)
+                               dashboard-insert-banner-title
-                                 doom-dashboard-insert-homepage-footer))
+                               dashboard-insert-newline
-    (dashboard-item-generators
+                               dashboard-insert-items
-     '((recents   . doom-dashboard-insert-recents-shortmenu)
+                               ,(dashboard-insert-newline 2)
-       (bookmarks . doom-dashboard-insert-bookmark-shortmenu)
+                               dashboard-insert-init-info
-       (projects  . doom-dashboard-insert-project-shortmenu)
+                               ,(dashboard-insert-newline 2)
-       (agenda    . doom-dashboard-insert-org-agenda-shortmenu)))
+                               doom-dashboard-insert-homepage-footer))
-    (dashboard-items '(projects agenda bookmarks recents)))
+  (dashboard-item-generators
-  )
+   '((recents   . doom-dashboard-insert-recents-shortmenu)
+     (bookmarks . doom-dashboard-insert-bookmark-shortmenu)
+     (projects  . doom-dashboard-insert-project-shortmenu)
+     (agenda    . doom-dashboard-insert-org-agenda-shortmenu)))
+  ;; (dashboard-items '(projects agenda bookmarks recents)))
+  (dashboard-items '(projects bookmarks recents)))
+
+;; Why doom 
+
 
 (provide 'init-dashboard)

lisp/init-edit.el

@@ -20,9 +20,20 @@
   :custom
   (puni-confirm-when-delete-unbalanced-active-region nil)
   :bind (:map puni-mode-map
+              ("M-r" . puni-raise)
               ("M-s" . puni-splice)
+              ("M-S" . puni-split)
               ("DEL" . my-backspace)
               ("C-=" . puni-expand-region)
+              ("M-[" . puni-slurp-backward)
+              ("M-]" . puni-slurp-forward)
+              ("M-<left>" . puni-slurp-backward)
+              ("M-<right>" . puni-slurp-forward)
+              ("C-M-[" . puni-barf-backward)
+              ("C-M-]" . puni-barf-forward)
+              ("C-M-<left>" . puni-barf-backward)
+              ("C-M-<right>" . puni-barf-forward)
+              ([remap backward-kill-word] . puni-backward-kill-word)
               )
   :init
   (defun my-backspace ()

lisp/init-lsp.el

@@ -1,9 +1,5 @@
 ;; -*- lexical-binding: t; -*-
 
-;; LSP booster
-
-
-
 (use-package lsp-mode
   :diminish
   :defines (lsp-diagnostics-disabled-modes lsp-clients-python-library-directories)

lisp/init-snippet.el

@@ -17,8 +17,8 @@
              yas-maybe-expand-abbrev-key-filter)
   :init
   (defvar yas-verbosity 2)
-  :config
+  ;; :config
-  (elemacs-load-packages-incrementally '(eldoc easymenu help-mode))
+  ;; (elemacs-load-packages-incrementally '(eldoc easymenu help-mode))
   (use-package warnings
     :ensure nil
     :config

lisp/init-ui.el

@@ -61,6 +61,7 @@
 
 (use-package auto-dark
   :when (and (eq system-type 'darwin) (display-graphic-p))
+  :diminish
   :ensure t
   ;; :custom
   ;; (auto-dark-themes '((doric-beach) (leuven)))
@@ -83,11 +84,13 @@
 
 
 (use-package rainbow-delimiters
+  :diminish
   :hook ((prog-mode . rainbow-delimiters-mode)
          (typst-ts-mode . rainbow-delimiters-mode)
          (python-ts-mode . rainbow-delimiters-mode)))
 
 (use-package rainbow-mode
+  :diminish
   :hook text-mode
   :hook prog-mode)
 
@@ -99,15 +102,19 @@
   :hook (elpaca-after-init . doom-modeline-mode)
   :config
   (setq doom-modeline-support-imenu t
-        doom-modeline-icons nil
+        ;; doom-modeline-icons nil
         doom-modeline-height 30
         doom-modeline-buffer-file-name-style 'relative-from-project
         doom-modeline-enable-word-count t
         ;; doom-modeline-project-name t
         doom-modeline-check 'simple
+        doom-modeline-minor-modes t
         doom-modeline-buffer-encoding nil
         doom-modeline-major-mode-icon nil))
 
+(use-package minions
+  :hook elpaca-after-init)
+
 (use-package hide-mode-line
   :autoload turn-off-hide-mode-line-mode
   :hook (((eat-mode

lisp/init-writing.el

@@ -12,6 +12,7 @@
               ))
 
 (use-package jinx
+  ;; :diminish
   :hook ((text-mode prog-mode conf-mode org-mode) . jinx-mode)
   :commands jinx-mode
   :bind ([remap ispell-word] . jinx-correct))