update with delay

3 files changed, 50 insertions, 21 deletions

diff --git a/configuration.el b/configuration.el
index 02987ff..02b76f7 100644
--- a/configuration.el
+++ b/configuration.el
@@ -1,9 +1,11 @@
 (use-package flycheck
   :straight t
+  :defer 5
   :custom (flycheck-check-syntax-automatically '(save mode-enable)))
 
 (use-package lsp-mode
   :straight t
+  :defer 5
   :hook ((lsp-mode . lsp-lens-mode)
 	 ;; Solves F# buffer out of sync
 	 (lsp-mode . (lambda () (lsp-treemacs-sync-mode -1)))
@@ -11,12 +13,14 @@
 
 (use-package dap-mode
   :straight t
+  :defer 5
   :after lsp-mode)
 
 (require 'dap-netcore)
 
 (use-package lsp-ui
   :straight t
+  :defer 5
   :init
   (setq lsp-ui-doc-enable t)
   (setq lsp-ui-sideline-diagnostic-max-lines 7)
@@ -42,6 +46,7 @@
 	"Arguments to provide to nix-repl."
 	:type '(repeat string))
       (nix-repl)))
+  :defer 5
   :hook
   (nix-mode . lsp-deferred)
   ;; (nix-repl-mode . company-mode)
@@ -54,6 +59,7 @@
 
 (use-package swiper
   :straight t
+  :defer 5
   :bind
   ("\C-s" . swiper))
 
@@ -65,6 +71,7 @@
 
 (use-package windmove
   :straight t
+  :defer 5
   :bind
   ("C-c <right>" . windmove-right)
   ("C-c <left>" . windmove-left)
@@ -73,6 +80,7 @@
 
 (use-package perspective
   :straight t
+  :defer 5
   :bind (("C-x k" . persp-kill-buffer*))
   :init
   (persp-mode)
@@ -80,17 +88,19 @@
 
 (use-package move-text
   :straight t
+  :defer 5
   :bind
   ("M-<up>" . move-text-up)
   ("M-<down>" . move-text-down))
 
 (use-package corfu
   :straight t
+  :defer 5
   :custom ((corfu-auto t)
-	   (corfu-auto-delay 0.25)
+	   (corfu-auto-defer 0.25)
 	   (corfu-min-width 15)
 	   (corfu-max-width 70)
-	   (corfu-popupinfo-delay corfu-auto-delay))
+	   (corfu-popupinfo-defer corfu-auto-defer))
   :hook ((prog-mode . corfu-mode)
 	 (corfu-mode . corfu-popupinfo-mode)
 	 (eshell-mode . corfu-mode)))
@@ -101,6 +111,7 @@
 	  ("\\.fsx$" .  fsharp-mode)
 	  ("\\.fsi$" .  fsharp-mode))
    :hook ((fsharp-mode . lsp-deferred))
+   :defer 5
    :bind
    (("C-c C-,"     . 'fsharp-shift-region-left)
     ("C-c C-."     . 'fsharp-shift-region-right)
@@ -113,26 +124,29 @@
    (setq inferior-fsharp-program "dotnet fsi --readline-"))
 
 (use-package magit
-   :straight t
-   :bind
-   ("C-x g" . magit-status)
-   :config
-   (use-package diff-hl
-     :straight t))
+  :straight t
+  :defer 5
+  :bind
+  ("C-x g" . magit-status)
+  :config
+  (use-package diff-hl
+    :straight t))
 
 (use-package helm
-   :straight t
-   :init
-   (helm-mode t)
-   (set-face-attribute 'helm-selection nil
-		       :background (color-lighten-name (face-attribute 'default :foreground) 50)
-		       :foreground (color-darken-name (face-attribute 'default :background) 100))
-   :bind
-   ("M-x" . helm-M-x)
-   ("C-x b" . helm-buffers-list))
+  :straight t
+  :defer 5
+  :init
+  (helm-mode t)
+  (set-face-attribute 'helm-selection nil
+		      :background (color-lighten-name (face-attribute 'default :foreground) 50)
+		      :foreground (color-darken-name (face-attribute 'default :background) 100))
+  :bind
+  ("M-x" . helm-M-x)
+  ("C-x b" . helm-buffers-list))
 
 (use-package multiple-cursors
   :straight t
+  :defer 5
   :bind
   ("C-c m c" . mc/edit-lines)
   ("C-<" . mc/mark-previous-like-this)
@@ -140,6 +154,7 @@
 
 (use-package projectile
   :straight t
+  :defer 5
   :init
   (projectile-mode t)
   :bind-keymap
@@ -163,10 +178,12 @@
   (setq dashboard-footer-messages '("Quod oculus non vidit, nec auris audivit - I Corinthios II,IX")))
 
 (use-package transpose-frame
+  :defer 5
   :straight t)
 
 (use-package copilot
   :straight (:host github :repo "copilot-emacs/copilot.el" :files ("dist" "*.el"))
+  :defer 5
   :bind (:map copilot-mode-map
 	      ("C-q <tab>" . copilot-accept-completion)
 	      ("C-q <right>" . copilot-next-completion)
@@ -174,30 +191,37 @@
 
 (use-package erlang
   :straight t
+  :defer 5
   :hook (erlang-mode . lsp-deferred))
 
 (use-package org-drill
+  :defer 5
   :straight t)
 
 (use-package sly
+  :defer 5
   :straight t
   :hook ((sly-mode . corfu-mode)))
 
 (use-package cider
+  :defer 5
   :straight t)
 
 (use-package clojure-mode
   :straight t
+  :defer 5
   :hook (clojure-mode . lsp-deferred))
 
 (use-package rainbow-delimiters
   :straight t
+  :defer 5
   :hook
   (lisp-mode . rainbow-delimiters-mode)
   (emacs-lisp-mode . rainbow-delimiters-mode))
 
 (use-package smartparens
   :straight t
+  :defer 5
   :hook ((lisp-mode . smartparens-mode)
 	 (emacs-lisp-mode . smartparens-mode))
   :bind (:map smartparens-mode-map
@@ -212,5 +236,9 @@
 	      ("C-M-b" . 'sp-forward-barf-sexp)
 	      ("C-S-b" . 'sp-backward-barf-sexp)))
 
+(use-package protobuf-mode
+  :defer 5
+  :straight t)
+
 (provide 'configuration)
 ;;; configuration.el ends here
diff --git a/init.el b/init.el
index eca97b3..225c9d2 100755
--- a/init.el
+++ b/init.el
@@ -21,3 +21,4 @@
 (load-file "~/.emacs.d/theme.el")
 (load-file "~/.emacs.d/behaviour.el")
 (load-file "~/.emacs.d/configuration.el")
+
diff --git a/theme.el b/theme.el
index 441692a..3e77809 100644
--- a/theme.el
+++ b/theme.el
@@ -2,7 +2,7 @@
 
 (use-package catppuccin-theme
   :straight t
-  :custom catppuccin-flavor 'latte
+  :custom catppuccin-flavor 'mocha
   :config (load-theme 'catppuccin t))
 
 ;; (use-package pastelmac-theme
@@ -33,7 +33,8 @@
 (use-package all-the-icons
   :straight t)
 
-(setq-default cursor-type 'box)
+;; (setq-default cursor-type 'box)
+(setq-default cursor-type 'bar)
 (fringe-mode '(7 . 0))
 (scroll-bar-mode -1)
 (unless (eq system-type 'darwin)
@@ -51,7 +52,6 @@
  '(rainbow-delimiters-depth-5-face ((t (:foreground "Purple"))))
  '(rainbow-delimiters-depth-6-face ((t (:foreground "dark green"))))
  '(rainbow-delimiters-depth-9-face ((t (:foreground "indian red"))))
- (unless (eq system-type 'darwin) '(default ((t (:inherit nil :stipple nil :inverse-video nil :box nil :strike-through nil :extend nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :foundry "nil" :family "Cascadia Mono")))))
-)
+ '(default ((t (:family "Hack" :foundry "nil" :slant normal :weight regular :height 145 :width normal)))))
 
 (provide 'theme)