Update emacs.org

config/emacs/emacs.org

@@ -3,6 +3,11 @@
 
 * Usage
 M-x org-bable-tangle
+* Lexical Binding
+Should make startup faster, taken from doom-emacs
+#+begin_src emacs-lisp
+;; -*- lexical-binding: t; -*-
+#+end_src
 * Default Enconding
 #+begin_src emacs-lisp
   (setq utf-translate-cjk-mode nil) ; disable CJK coding/encoding (Chinese/Japanese/Korean characters)
@@ -70,9 +75,35 @@ M-x org-bable-tangle
 #+end_src
 * Fonts
 #+begin_src emacs-lisp
-  (set-face-attribute `default nil :font "JetBrains Mono" :height 140)
+  (set-face-attribute `default nil :font "JetBrains Mono" :height 130)
 #+end_src
-* Package setup
+* SPEED SPEED SPEED SPEED
+Most of these are taken from Doom-Emacs!
+https://github.com/doomemacs/doomemacs/blob/develop/docs/faq.org#how-does-doom-start-up-so-quickly
+Theres also Centaur Emacs
+https://github.com/seagle0128/.emacs.d
+** Avoid Garbage Collection at startup
+#+begin_src emacs-lisp
+  (use-package gcmh
+    :init
+    (gcmh-mode 1))
+  (add-hook 'emacs-startup-hook (gcmh-mode 1))
+#+end_src
+** Move Garbage collection further back
+#+begin_src emacs-lisp
+(setq gc-cons-threshold most-positive-fixnum)
+#+end_src
+** Unset file-name-handler-alist temporarily
+#+begin_src emacs-lisp
+(defvar sakomacs--file-name-handler-alist file-name-handler-alist)
+(setq file-name-handler-alist nil)
+
+;; Alternatively, restore it even later:
+(add-hook 'emacs-startup-hook
+  (lambda ()
+    (setq file-name-handler-alist sakomacs--file-name-handler-alist)))
+#+end_src
+* Use-Package setup 
 #+begin_src emacs-lisp
 (require `package)
 
@@ -91,20 +122,42 @@ M-x org-bable-tangle
 (require 'use-package)
 (setq use-package-always-ensure t)
 #+end_src
+* Straight.el setup
+#+begin_src emacs-lisp
+(defvar bootstrap-version)
+(let ((bootstrap-file
+       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
+      (bootstrap-version 6))
+  (unless (file-exists-p bootstrap-file)
+    (with-current-buffer
+        (url-retrieve-synchronously
+         "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
+         'silent 'inhibit-cookies)
+      (goto-char (point-max))
+      (eval-print-last-sexp)))
+  (load bootstrap-file nil 'nomessage))
+#+end_src
 * Packages
 ** Command Log Mode
 #+begin_src emacs-lisp
-  (use-package command-log-mode)
+      (use-package command-log-mode
+        :straight t
+        )
 #+end_src
 ** Command Autocompletion Packages 
 #+begin_src emacs-lisp
   ;; better search
-(use-package swiper)
+  (use-package swiper
+        :straight t
+    )
   ;; better commands
-(use-package counsel)
+  (use-package counsel
+      :straight t
+    )
   ;; autocompletion on commands (?)
   (use-package ivy
     :diminish
+    :straight t
     :bind (("C-s" . swiper)
            :map ivy-minibuffer-map
            ("TAB" . ivy-alt-done)	
@@ -123,11 +176,13 @@ M-x org-bable-tangle
     (ivy-mode 1))
   ;; better ivy autocompletion
   (use-package ivy-rich
+    :straight t
     :init
     (ivy-rich-mode 1))
 
   ;; counsel M+X
   (use-package counsel
+    :straight t
     :bind (("M-x" . counsel-M-x)
            ("C-x b" . counsel-ibuffer)
            ("C-x C-f" . counsel-find-file)
@@ -139,6 +194,7 @@ M-x org-bable-tangle
 ** Custom Themes
 #+begin_src emacs-lisp
   (use-package doom-themes
+  :straight t
   :ensure t
   :config
   ;; Global settings (defaults)
@@ -160,6 +216,7 @@ M-x org-bable-tangle
 ** Nerd-Fonts (All of the Icons doesnt work for me)
 #+begin_src emacs-lisp
 (use-package nerd-icons
+  :straight t
   :custom
   ;; "Symbols Nerd Font Mono" is the default and is recommended
   ;; but you can use any other Nerd Font if you want
@@ -167,14 +224,15 @@ M-x org-bable-tangle
   )
 #+end_src
 ** Rainbow Delimiters
-**** TODO find something like this for other languages
 #+begin_src emacs-lisp
 (use-package rainbow-delimiters
+  :straight t
   :hook (prog-mode . rainbow-delimiters-mode))
 #+end_src
 ** Keybinding autocompletion
 #+begin_src emacs-lisp
   (use-package which-key
+    :straight t
     :init (which-key-mode)
     :diminish which-key-mode
     :config
@@ -184,6 +242,7 @@ M-x org-bable-tangle
 #+begin_src emacs-lisp
   (use-package doom-modeline
     :ensure t
+    :straight t
     :init (doom-modeline-mode 1)
     :custom ((doom-modeline-height 30)))
 #+end_src
@@ -191,6 +250,7 @@ M-x org-bable-tangle
 #+begin_src emacs-lisp
 (use-package helpful
   :ensure t
+  :straight t
   :custom
   (counsel-describe-function-function #'helpful-callable)
   (counsel-describe-variable-function #'helpful-variable)
@@ -203,6 +263,7 @@ M-x org-bable-tangle
 ** General Leader Key
 #+begin_src emacs-lisp
   (use-package general
+    :straight t
     :config
     (general-create-definer sakomacs/leader-keys
       :keymaps `(normal insert visual emacs)
@@ -225,6 +286,7 @@ M-x org-bable-tangle
 #+begin_src emacs-lisp
   (use-package dashboard
     :ensure t
+    :straight t
     :config
     (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
     ;; Configuration of Dashboard
@@ -247,6 +309,7 @@ M-x org-bable-tangle
 ** Evil Mode (vim)
 #+begin_src emacs-lisp
   (use-package evil
+    :straight t
     :init
     (setq evil-want-integration t)
     (setq evil-want-keybinding nil)
@@ -269,13 +332,16 @@ M-x org-bable-tangle
 
   ;; extra things for Evil
   (use-package evil-collection
+    :straight t
     :after evil
     :config
     (evil-collection-init))
 #+end_src 
 ** Hydra for scaling text
 #+begin_src emacs-lisp
-(use-package hydra)
+  (use-package hydra
+    :straight t
+    )
   (defhydra hydra-text-scale (:timeout 4)
     "scale text"
     ("j" text-scale-increase "in")
@@ -288,6 +354,7 @@ M-x org-bable-tangle
 ** Helpful for projects
 #+begin_src emacs-lisp
   (use-package projectile
+    :straight t
     :diminish projectile-mode
     :demand
     :config (projectile-mode)
@@ -300,6 +367,7 @@ M-x org-bable-tangle
     (setq projectile-switch-project-action #'projectile-dired))
 
   (use-package counsel-projectile
+    :straight t
     :config (counsel-projectile-mode))
 #+end_src 
 ** Org-Mode
@@ -310,6 +378,7 @@ M-x org-bable-tangle
     (visual-line-mode 1))
 
   (use-package org
+    :straight t
     :hook (org-mode . sakomacs/org-mode-setup)
     :config
     (setq org-ellipsis "▼")
@@ -461,6 +530,7 @@ M-x org-bable-tangle
 ** Org-Roam
 #+begin_src emacs-lisp
   (use-package org-roam
+  :straight t
   :ensure t
   :custom
   (org-roam-directory "~/org"
@@ -475,6 +545,7 @@ M-x org-bable-tangle
   (use-package treemacs
     :ensure t
     :defer t
+    :straight t
     :init
     (with-eval-after-load 'winum
       (define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
@@ -564,14 +635,17 @@ M-x org-bable-tangle
 
   (use-package treemacs-evil
     :after (treemacs evil)
+    :straight t
     :ensure t)
 
   (use-package treemacs-projectile
     :after (treemacs projectile)
+    :straight t
     :ensure t)
 
   (use-package treemacs-magit
     :after (treemacs magit)
+    :straight t
     :ensure t)
 
 #+end_src
@@ -579,6 +653,7 @@ M-x org-bable-tangle
 *** Magit (git in emacs)
 #+begin_src emacs-lisp
   (use-package magit
+    :straight t
     :custom
     (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1)
     )
@@ -587,12 +662,14 @@ M-x org-bable-tangle
 make sure to setup authinfo
 #+begin_src emacs-lisp
 (use-package forge
+    :straight t
   :after magit)
 (setq auth-sources '("~/.authinfo"))
 #+end_src
 *** Direnv
 #+begin_src emacs-lisp
 (use-package direnv
+    :straight t
  :config
  (direnv-mode))
 #+end_src
@@ -604,6 +681,7 @@ make sure to setup authinfo
     (lsp-headerline-breadcrumb-mode))
 
     (use-package lsp-mode
+      :straight t
       :commands (lsp lsp-deferred)
       :hook (lsp-mode . sakomacs/lsp-mode-setup)
       :init
@@ -616,22 +694,27 @@ make sure to setup authinfo
 #+begin_src emacs-lisp
   (use-package lsp-ui
     :hook (lsp-mode . lsp-ui-mode)
+    :straight t
     :custom
     (lsp-ui-doc-position 'bottom))
 #+end_src
 **** Treemacs Lsp 
 #+begin_src emacs-lisp
   (use-package lsp-treemacs
+    :straight t
     :after lsp)
 #+end_src
 **** lsp-ivy
 #+begin_src emacs-lisp
-(use-package lsp-ivy)
+  (use-package lsp-ivy
+    :straight t
+    )
 #+end_src
 **** Languages
 ***** HTML/CSS
 #+begin_src emacs-lisp
   (use-package web-mode
+    :straight t
        :hook (web-mode . lsp)
        :mode ("\\.html\\'"
                "\\.css\\'"))
@@ -639,6 +722,7 @@ make sure to setup authinfo
 ***** Javascript 
 #+begin_src emacs-lisp
   (use-package js2-mode
+    :straight t
   :mode "\\.js\\'"
   :hook (js2-mode . lsp))
 #+end_src
@@ -651,16 +735,19 @@ make sure to setup authinfo
 #+begin_src emacs-lisp
   (use-package cmake-mode
     :mode "CMakeLists.txt"
+    :straight t
     :hook (cmake-mode . lsp))
 #+end_src
 ***** Python
 #+begin_src emacs-lisp
   (use-package python-mode
     :mode "\\.py\\'"
+    :straight t
     :hook (python-mode . lsp))
 
   (use-package elpy
   :after python-mode
+    :straight t
 
   :custom
   (elpy-rpc-python-command "python3")
@@ -670,6 +757,7 @@ make sure to setup authinfo
 
   (use-package lsp-pyright
     :ensure t
+    :straight t
     :hook (python-mode . (lambda ()
                            (require 'lsp-pyright)
                            (lsp))))  ; or lsp-deferred
@@ -678,17 +766,20 @@ make sure to setup authinfo
 #+begin_src emacs-lisp
   (use-package haskell-mode
     :mode "\\.hs\\'"
+    :straight t
     :hook (python-mode . lsp))
 #+end_src
 ***** Yaml editing
 #+begin_src emacs-lisp
       (use-package yaml-mode
+    :straight t
         :mode ("\\.yaml\\'"
                "\\.yml\\'"))
 #+end_src
 ***** Nix
 #+begin_src emacs-lisp
     (use-package nix-mode
+    :straight t
       :hook ((nix-mode . lsp) 
                (nix-mode . format-all-mode)
                (nix-mode . (lambda () (setq-local format-all-formatters '(("Nix" alejandra))))))
@@ -697,17 +788,20 @@ make sure to setup authinfo
 ***** Dart 
 #+begin_src emacs-lisp
   (use-package dart-mode
+    :straight t
    :hook (dart-mode . lsp)
   :mode "\\.dart\\'" )
 #+end_src
 *** Commenter
 #+begin_src emacs-lisp
   (use-package evil-nerd-commenter
+    :straight t
   :bind ("M-/" . evilnc-comment-or-uncomment-lines))
 #+end_src
 *** Company Mode (Better Autocompletion)
 #+begin_src emacs-lisp
 (use-package company
+    :straight t
   :after lsp-mode
   :hook (lsp-mode . company-mode)
   :bind (:map company-active-map
@@ -719,11 +813,14 @@ make sure to setup authinfo
   (company-idle-delay 0.0))
 
 (use-package company-box
+    :straight t
   :hook (company-mode . company-box-mode))
 #+end_src
 *** Formatting
 #+begin_src emacs-lisp
-(use-package format-all)
+  (use-package format-all
+    :straight t
+    )
 #+end_src
 ** Dired (quick file management in emacs)
 Dired is a built-in file manager for Emacs that does some pretty amazing things!  Here are some key bindings you should try out:
@@ -787,6 +884,7 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
 #+begin_src emacs-lisp
     (use-package dired
     :ensure nil
+    :straight t
     :commands (dired dired-jump)
     :bind (("C-x C-j" . dired-jump))
     :custom ((dired-listing-switches "-agho --group-directories-first"))
@@ -814,7 +912,9 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
   ;; reliably, set `user-emacs-directory` before loading no-littering!
   ;(setq user-emacs-directory "~/.cache/emacs")
 
-(use-package no-littering)
+  (use-package no-littering
+    :straight t
+    )
 
   ;; no-littering doesn't set this by default so we must place
   ;; auto save files in the same path as it uses for sessions
@@ -823,9 +923,12 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
 #+end_src
 ** RSS Reader 
 #+begin_src emacs-lisp
-  (use-package elfeed)
+  (use-package elfeed
+    :straight t
+    )
 
   (use-package elfeed-goodies
+    :straight t
     :after elfeed
     :ensure t
     :init
@@ -833,6 +936,7 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
     )
 
   (use-package elfeed-protocol
+    :straight t
     :after elfeed
     :ensure t
     :config
@@ -868,7 +972,9 @@ Dired is a built-in file manager for Emacs that does some pretty amazing things!
 ** Telegram
 only god knows why im doing this 
 #+begin_src emacs-lisp
- (use-package telega)
+   (use-package telega
+     :straight t
+     )
 #+end_src
 * Org Mode Configuration Setup
 ** Babel Languages
@@ -893,6 +999,7 @@ only god knows why im doing this
 ** term-mode
 #+begin_src emacs-lisp
   (use-package term
+    :straight t
   :config
   (setq explicit-shell-file-name "zsh"))
 #+end_src
@@ -919,6 +1026,7 @@ god dammit why are they making my shells in emacs lisp
 (use-package eshell-git-prompt)
 
 (use-package eshell
+    :straight t
   :hook (eshell-first-time-mode . sakomacs/configure-eshell)
   :config
 
@@ -932,6 +1040,7 @@ god dammit why are they making my shells in emacs lisp
 ** VTerm
 #+begin_src emacs-lisp
   (use-package vterm
+    :straight t
   :commands vterm
   :config
   (setq vterm-max-scrollback 10000))