defer loading polymode

[lib.git] / emacs_el / configuration / don-configuration.org

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index 7777f55ea13ed47740703c918ead72e19ebade5c..cae5e62759d57588d867699f7b835749ead53c49 100644 (file)
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -487,20 +487,29 @@ value, scrolling continues until there is no more output.
   (lsp-completion-mode . my/lsp-mode-setup-completion)
   :custom
   (lsp-completion-provider :none) ;; we use Corfu!
+  :config
+   (add-to-list 'lsp-file-watch-ignored-directories "[/\\\\]venv\\'")
 )
-;; Provides visual help in the buffer 
-;; For example definitions on hover. 
-;; The `imenu` lets me browse definitions quickly.
+#+END_SRC
+** LSP mode
+#+BEGIN_SRC emacs-lisp
+;; provides visual help in the buffer 
+;; for example definitions on hover. 
+;; the `imenu` lets me browse definitions quickly.
 (use-package lsp-ui
   :defer t
+  :after lsp-mode
   :config
-  (setq lsp-ui-sideline-enable nil
+  (setq lsp-ui-sideline-enable t
            lsp-ui-doc-delay 2)
   :hook (lsp-mode . lsp-ui-mode)
   :bind (:map lsp-ui-mode-map
-             ("C-c i" . lsp-ui-imenu)))
-;; Language server for Python 
-;; Read the docs for the different variables set in the config.
+             ("c-c i" . lsp-ui-imenu)))
+#+END_SRC
+*** LSP Pyright -- Python language server
+#+BEGIN_SRC emacs-lisp
+;; language server for python 
+;; read the docs for the different variables set in the config.
 (use-package lsp-pyright
   :defer t
   :config
@@ -516,22 +525,35 @@ value, scrolling continues until there is no more output.
 ** Corfu
 #+BEGIN_SRC emacs-lisp
 (use-package corfu
-  :ensure t
-  :demand t
   ;; Optional customizations
   :custom
   (corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
   (corfu-auto t)                 ;; Enable auto completion
   (corfu-separator ?\s)          ;; Orderless field separator
-  (corfu-quit-at-boundary nil)   ;; Never quit at completion boundary
-  (corfu-quit-no-match nil)      ;; Never quit, even if there is no match
+  (corfu-quit-at-boundary t)
+  (corfu-quit-no-match 'separator)
   (corfu-preview-current nil)    ;; Disable current candidate preview
   (corfu-preselect 'prompt)      ;; Preselect the prompt
   (corfu-on-exact-match nil)     ;; Configure handling of exact matches
   (corfu-scroll-margin 5)        ;; Use scroll margin
 
+  :bind (
+         :map corfu-map
+              ("M-m" , corfu-move-to-minibuffer)
+              )
+  :init
+  (global-corfu-mode)
+  (setq completion-cycle-threshold 3)
+  (setq tab-always-indent 'complete)
   :config
-  (global-corfu-mode))
+  (defun corfu-move-to-minibuffer ()
+    (interactive)
+    (when completion-in-region--data
+      (let ((completion-extra-properties corfu--extra)
+            completion-cycle-threshold completion-cycling)
+        (apply #'consult-completion-in-region completion-in-region--data))))
+  (add-to-list 'corfu-continue-commands #'corfu-move-to-minibuffer)
+  )
 #+END_SRC
 ** Dabbrv
 #+BEGIN_SRC emacs-lisp
@@ -567,15 +589,18 @@ value, scrolling continues until there is no more output.
   )
 (use-package magit-annex
   :defer t
+  :after magit
   )
 (use-package magit-vcsh
   :defer t
+  :after magit
   )
 #+END_SRC
 
 *** Forge (github/gitlab)
 #+BEGIN_SRC emacs-lisp
 (use-package forge
+  :defer t
   :after magit
   )
 #+END_SRC
@@ -583,15 +608,15 @@ value, scrolling continues until there is no more output.
 ** Perl
 #+BEGIN_SRC emacs-lisp
 (use-package cperl-mode
+  :mode ("\\.pl'" . cperl-mode)
+  ("\\.perl5\\'" . cperl-mode)
+  ("\\.perl\\'" . cperl-mode)
+  ("\\.miniperl\\'" . cperl-mode)
+  ("\\.\\([Pp][Llm]\\|al\\)\\'" . cperl-mode)
+    ;; use c-mode for perl .xs files
+  ("\\.xs\\'" . c-mode)
   :config
-  (progn
-    ;; Use c-mode for perl .xs files
-    (add-to-list 'auto-mode-alist '("\\.xs\\'" . c-mode))
-    (add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode))
-    (add-to-list 'interpreter-mode-alist '("perl" . cperl-mode))
-    (add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode))
-    (add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode))
-    (setq cperl-hairy t
+       (setq cperl-hairy t
           cperl-indent-level 4
           cperl-auto-newline nil
           cperl-auto-newline-after-colon nil
@@ -606,13 +631,12 @@ value, scrolling continues until there is no more output.
           cperl-tab-always-indent t)
     (setq cperl-lazy-help-time nil)
     ;;(add-hook 'cperl-mode-hook (lambda () (cperl-set-style "PerlStyle")))
-))
+)
 #+END_SRC
 
 ** Markdown mode
 #+BEGIN_SRC emacs-lisp
 (use-package markdown-mode
-  :ensure t
   :defer t
   :mode (("\\.md\\'" . markdown-mode)
          ("\\.mdwn\\'" . markdown-mode)
@@ -632,9 +656,11 @@ value, scrolling continues until there is no more output.
 #+BEGIN_SRC emacs-lisp
 ; load sql-indent when sql is loaded
 (use-package sql-indent
+  :after sql
   :hook sql-mode
   )
 (use-package sql
+  :commands (sql-mode)
   :mode (("\\.sql\\'" . sql-mode))
   )
 #+END_SRC
@@ -740,8 +766,7 @@ Attempts to automatically identify the right indentation for a file
 ** Orderless: advanced completion style
 #+begin_src emacs-lisp
 (use-package orderless
-  :demand t
-  :config
+  :init
   ;; Configure a custom style dispatcher (see the Consult wiki)
   ;; (setq orderless-style-dispatchers '(+orderless-dispatch)
   ;;       orderless-component-separator #'orderless-escapable-split-on-space)
@@ -784,6 +809,12 @@ Attempts to automatically identify the right indentation for a file
   :hook
   (embark-collect-mode . consult-preview-at-point-mode))
 #+end_src
+** which-key (show possible completions of a key combination)
+#+BEGIN_SRC emacs-lisp
+(use-package which-key
+  :demand t
+  )
+#+END_SRC
 ** Consult
 #+begin_src emacs-lisp
 (use-package consult
@@ -1024,7 +1055,7 @@ _d_: subtree
 #+END_SRC
 ** LaTeX
 #+BEGIN_SRC emacs-lisp
-(use-package tex-site
+(use-package tex
   :straight auctex
   :mode ("\\.tex\\'" . LaTeX-mode)
   :mode ("\\.bib\\'" . bibtex-mode)
@@ -1178,6 +1209,7 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 
 #+BEGIN_SRC emacs-lisp
 (use-package rainbow-mode
+  :delight 🌈
   ;; add ess to the x major mode
   :config (add-to-list 'rainbow-x-colors-major-mode-list 'ESS[S])
   (add-to-list 'rainbow-x-colors-major-mode-list 'ESS[R])
@@ -1208,6 +1240,7 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
   :mode ("\\.Rmd" . poly-markdown+r-mode)
   )
 (use-package polymode
+  :defer t
   )
 
 #+END_SRC
@@ -1361,18 +1394,20 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 (use-package python-mode
   :delight Py 🐍
   :hook
-  (python-mode . pyenv-mode)
+  (python-mode . pyvenv-mode)
   (python-mode . flycheck-mode)
   (python-mode . blacken-mode)
   (python-mode . yas-minor-mode)
   (python-mode . anaconda-mode)
   )
-(use-package pyenv-mode
+(use-package pyvenv
+  :delight
   :after python-mode
   )
 (use-package blacken
-  :delight ⚑
+  :delight
   :after python-mode
+  :commands (blacken-buffer)
   :config
   (setq-default blacken-fast-unsafe t)
 )
@@ -1380,7 +1415,8 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 *** Black
 #+begin_src emacs-lisp :tangle yes
 (use-package python-black
-  :demand t
+  :delight
+  :commands (python-black-buffer python-black-statement)
   :after python)
 #+end_src
 *** Sphinx Documentation
@@ -1390,11 +1426,11 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
   :bind (:map python-mode-map
               ("C-c C-n" . numpydoc-generate)))
 (use-package sphinx-doc
+  :delight 🐈
   :config
-  (sphinx-doc-mode t)
   (setq sphinx-doc-include-types t)
   :after python
-  :hook (python-mode . sphinx-doc)
+  :hook (python-mode . sphinx-doc-mode)
   )
 (use-package python-docstring
   :delight 
@@ -1402,6 +1438,13 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
   :hook (python-mode . python-docstring-mode)
   )
 #+end_src
+*** Anaconda Mode (Documentation lookup and completion)
+#+BEGIN_SRC emacs-lisp
+(use-package anaconda-mode
+  :delight
+  :after python
+)
+#+END_SRC
 ** Go language
 #+BEGIN_SRC emacs-lisp
 (use-package go-mode
@@ -1541,7 +1584,7 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 (use-package org
   :delight (org-mode "ø")
   :mode ("\\.\\(org\\|org_archive\\|txt\\)\\'" . org-mode)
-  :bind (("C-c l"  . org-store-link)
+  :bind (("C-c l l" . org-store-link)
          ("C-c a"  . org-agenda)
          ("C-c b"  . org-iswitchb))
 #+END_SRC