From 76b89bbe9bdb2fa98dcab07581fe2a064e7aea86 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 26 Feb 2024 13:56:22 -0300 Subject: update with delay --- configuration.el | 62 ++++++++++++++++++++++++++++++++++++++++---------------- init.el | 1 + theme.el | 8 ++++---- 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 " . windmove-right) ("C-c " . 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-" . move-text-up) ("M-" . 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 " . copilot-accept-completion) ("C-q " . 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) -- cgit v1.2.3