Lot of stuff

.emacs

@@ -12,18 +12,17 @@
 
 ;; Chargement principal
 (require 'package)
+(custom-set-variables '(gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3"))
 
 ;; Ajout de Melpa
 (add-to-list 'package-archives
-	     '("melpa" . "https://melpa.org/packages/"))
-
-;; Add the user-contributed repository
-(add-to-list 'package-archives
-             '("marmalade" . "http://marmalade-repo.org/packages/"))
-
-;; MAJ plus réactives de org à la source (+ dangereux ?)
-(add-to-list 'package-archives
-	     '("org" . "http://orgmode.org/elpa/") t)
+	     '(
+	       ("gnu" . "https://elpa.gnu.org/packages/")
+	       ("melpa" . "https://melpa.org/packages/")
+	       ("nongnu" . "https://elpa.nongnu.org/nongnu/")
+	       (";TODO: romey" . "http://tromey.com/elpa/")
+	       )
+	     )
 
 ;; Dépôt alternatif (utile ?)
 ;; (add-to-list 'package-archives
@@ -57,9 +56,13 @@
        '(
 	 "/home/phil/.lisp/"
 	 "/home/phil/.lisp/emacs-solargraph/"
+	 "/home/phil/.lisp/Emacs-langtool/"
+	 "/home/phil/.lisp/emacs-everywhere//"
 	 )
        load-path))
 
+;; (require 'emacs-everywhere)
+
 ;; On personnalise la barre de titre
 (setq frame-title-format (list "Emacs (" (getenv "USER") ") : %b"))
 
@@ -157,9 +160,9 @@
 (setq compilation-window-height 20)
 
 ;; Pour mon clavier KB-522 qui ne réagit pas à certaines
-;; combinaisons de touches
-(global-set-key (kbd "M-]")  'delete-horizontal-space)
-(global-set-key (kbd "C-M-]")  'indent-region)
+;; combinaisons de touches - Edit : nouvelle config pour mx keys
+(global-set-key (kbd "M-ç")  'delete-horizontal-space)
+(global-set-key (kbd "C-M-ç")  'indent-region)
 
 ;; ==========================
 ;; Configurations de packages
@@ -532,19 +535,63 @@
   :ensure t
   :commands lsp-treemacs-errors-list)
 
-(use-package rg
-  :ensure t
-  :bind(("C-c s" . rg-menu)))
+;; (use-package rg
+;;   :ensure t
+;;   :bind(("C-c s" . rg-menu)))
+
+;; Pour languagetool
+;; (sudo snap install languagetool)
+(setq langtool-language-tool-jar "/snap/languagetool/34/usr/bin/languagetool-commandline.jar")
+(require 'langtool)
+(global-set-key (kbd "C-&")  'langtool-check-buffer)
 
 ;; Pour grammalecte
-(use-package flycheck-grammalecte
-  :ensure t
-  :config
-  (setq flycheck-grammalecte-enabled-modes
-	'(mail-mode))
-  (setq flycheck-grammalecte-report-apos nil)
-  (setq flycheck-grammalecte-report-esp nil)
-  (setq flycheck-grammalecte-report-nbsp nil))
+
+;; (use-package flycheck-grammalecte
+;;   :hook (fountain-mode . flycheck-mode)
+;;   :init
+;;   (setq flycheck-grammalecte-report-apos nil
+;; 	flycheck-grammalecte-report-esp nil
+;; 	flycheck-grammalecte-report-nbsp nil)
+;;   :config
+;;   (add-to-list 'flycheck-grammalecte-enabled-modes 'fountain-mode)
+;;   (grammalecte-download-grammalecte)
+;;   (flycheck-grammalecte-setup))
+
+;; (use-package flycheck-grammalecte
+;;   :ensure t
+;;   :hook (text-mode . flycheck-mode)
+;;   :init
+;;   (setq flycheck-grammalecte-report-apos nil
+;; 	flycheck-grammalecte-report-esp nil
+;; 	flycheck-grammalecte-report-nbsp nil)
+;;   :config
+;;   (grammalecte-download-grammalecte)
+;;   (flycheck-grammalecte-setup))
+
+
+;; (setq flycheck-grammalecte-report-apos nil)
+;; (setq flycheck-grammalecte-report-esp nil)
+;; (setq flycheck-grammalecte-report-nbsp nil)
+;; (load-file "~/.emacs.d/flycheck-grammalecte/grammalecte.el")
+
+;; (load-file "~/.emacs.d/flycheck-grammalecte/flycheck-grammalecte.el")
+
+;; ;; (require 'flycheck-grammalecte)
+;; (flycheck-grammalecte-setup)
+  
+  ;; (setq flycheck-grammalecte-enabled-modes
+  ;; 	'(mail-mode))
+
+;; (load-file "~/.emacs.d/flycheck-grammalecte/flycheck-grammalecte.el")
+;; (flycheck-grammalecte-setup)
+;; (setq flycheck-grammalecte-report-apos nil)
+;; (setq flycheck-grammalecte-report-esp nil)
+;; (setq flycheck-grammalecte-report-nbsp nil)
+;; (add-to-list 'flycheck-grammalecte-enabled-modes 'mail-mode))
+;;   (flycheck-grammalecte-setup))
+;; (load-file "~/.emacs.d/flycheck-grammalecte/flycheck-grammalecte.elc")
+;; (flycheck-grammalecte-setup)
 
 ;; Pour JS
 (use-package js2-mode
@@ -618,7 +665,7 @@
 (use-package ox-reveal
   :ensure t
   :config
-  (setq org-reveal-root "file:///home/dosch/divers/presentation/reveal.js"))
+  (setq org-reveal-root "file:///home/phil/divers/presentation/reveal.js"))
 
 ;; Pour function-arg (complétion et vérifciation en C/C++)
 (use-package function-args
@@ -632,6 +679,13 @@
   :config
   (edit-server-start))
 
+;; emmet, les complétions pour le Web (HTML/CSS)
+;; (C-j pour l'expand)
+(use-package emmet-mode
+  :ensure t
+  :config
+  (add-hook 'web-mode-hook 'emmet-mode))
+
 ;; Openwith : utilsation de programmes externe lors de
 ;; l'ouverture pour certains types de fichiers
 (use-package openwith
@@ -680,9 +734,10 @@
  '(imenu-use-popup-menu t)
  '(package-selected-packages
    (quote
-    (js2-refactor org-bullets lsp-treemacs helm-lsp company-lsp lsp-ui lsp-mode gnu-elpa-keyring-update markdown-mode flycheck-clang-analyzer flycheck-grammalecte which-key web-mode undo-tree try smex smartscan smart-mode-line-powerline-theme ruby-refactor ruby-electric robe rainbow-delimiters quelpa-use-package projectile plantuml-mode php-extras pdf-tools ox-reveal nlinum neotree multiple-cursors monokai-theme magit js2-mode irony-eldoc imenu-anywhere iedit ido-vertical-mode highlight-indent-guides helm-swoop helm-orgcard helm-flycheck helm-directory helm-css-scss helm-c-yasnippet helm-anything git-timemachine function-args flx-ido feature-mode expand-region edit-server ecb dumb-jump dired+ dic-lookup-w3m counsel company-web company-tern company-php company-jedi company-irony company-inf-ruby company-c-headers company-auctex clang-format avy auto-yasnippet anzu ac-helm diff-hl request)))
+    (org rust-mode js2-refactor org-bullets lsp-treemacs helm-lsp company-lsp lsp-ui lsp-mode gnu-elpa-keyring-update markdown-mode flycheck-clang-analyzer flycheck-grammalecte which-key web-mode undo-tree try smex smartscan smart-mode-line-powerline-theme ruby-refactor ruby-electric robe rainbow-delimiters quelpa-use-package projectile plantuml-mode php-extras pdf-tools ox-reveal nlinum neotree multiple-cursors monokai-theme magit js2-mode irony-eldoc imenu-anywhere iedit ido-vertical-mode highlight-indent-guides helm-swoop helm-orgcard helm-flycheck helm-directory helm-css-scss helm-c-yasnippet helm-anything git-timemachine function-args flx-ido feature-mode expand-region edit-server ecb dumb-jump dired+ dic-lookup-w3m counsel company-web company-tern company-php company-jedi company-irony company-inf-ruby company-c-headers company-auctex clang-format avy auto-yasnippet anzu ac-helm diff-hl request)))
  '(show-paren-mode t)
- '(tool-bar-mode nil))
+ '(tool-bar-mode nil)
+ '(tramp-default-method "scpc"))
 
 ;; Configuration du style d'affichage
 (custom-set-faces
@@ -762,11 +817,14 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
-; Pour peupler la liste des fichiers .org
+;; Pour peupler la liste des fichiers .org
 (load-library "find-lisp")
 (setq org-agenda-files
       (find-lisp-find-files "~/org/" "\.org$"))
 
+;; Ouverture par défaut des fichiers org
+(setq org-startup-folded "overview")
+
 ;; Des puces plus sympas
 (use-package org-bullets
   :ensure t
@@ -816,7 +874,14 @@
               ("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
               ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))))
 
-; Pour les notes rapides
+;; Pour insérer des templates plus facilement sous orgcard
+(require 'org-tempo)
+(add-to-list 'org-structure-template-alist '("sh" . "src shell"))
+(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
+(add-to-list 'org-structure-template-alist '("py" . "src python"))
+(add-to-list 'org-structure-template-alist '("rb" . "src ruby"))
+
+;; Pour les notes rapides
 (setq org-directory "~/org")
 (setq org-default-notes-file "~/org/refile.org")
 
@@ -1082,6 +1147,18 @@
 
 (global-set-key "\C-xc" 'comtex)
 
+;; Macro pratique pour éditer les mails
+
+(fset 'cleanmail
+   (kmacro-lambda-form [?\C-x ?h delete ?\C-y escape ?<] 0 "%d"))
+(fset 'copymail
+   (kmacro-lambda-form [?\C-x ?h ?\M-w escape ?<] 0 "%d"))
+;; (global-set-key (kbd "C-?²" 'cleanmail)
+;; (global-set-key [(control ?²)] 'cleanmail)
+;; (global-set-key [(control return)] 'compile)
+(global-set-key (kbd "<f10>")     'cleanmail)
+(global-set-key (kbd "M-<f10>")   'copymail)
+
 ;; Accès direct au répertoire courant avec C-x C-j
 (require 'dired-x)
 
@@ -1109,7 +1186,7 @@
 (global-set-key [(control $)] 'yas-global-mode)
 
 ;; Pour dire où est reveal...
-(setq org-reveal-root "file:///home/dosch/divers/presentation/reveal.js")
+(setq org-reveal-root "file:///home/phil/divers/presentation/reveal.js")
 
 ;; Exclude very large buffers from dabbrev
 (defun sanityinc/dabbrev-friend-buffer (other-buffer)
@@ -1180,7 +1257,7 @@
 	  '(lambda ()
 	     (flycheck-mode 1)))
 
-(global-set-key (kbd "<f10>")     'flycheck-mode)
+;; (global-set-key (kbd "<f10>")     'flycheck-mode)
 
 ;; Pour discover, le mode qui va bien pour présenter certaines
 ;; options de commandes comme sous magit
@@ -1197,8 +1274,8 @@
 (fset 'gitnext
    [?\M-! ?g ?i ?t ?  ?n ?e ?x ?t return])
 
-(global-set-key (kbd "M-<f10>")     'gitnext)
-(global-set-key (kbd "S-<f10>")     'gitprev)
+;; (global-set-key (kbd "M-<f10>")     'gitnext)
+;; (global-set-key (kbd "S-<f10>")     'gitprev)
 
 ;; Pour initialiser PDFtools (test du 26/1/16)
 ; (pdf-tools-install)
@@ -1213,6 +1290,23 @@
 ;; (ce qui permet d'ouvrir le nouveau folder à la place de l'ancien)
 (put 'dired-find-alternate-file 'disabled nil)
 
+;; Pour les quotes de mail trop longues (via insert-kbd-macro)
+(defun mailcut ()
+  "Format lines from quoted mails."
+  (interactive)
+  (end-of-line)
+  (kill-line)
+  (delete-char 1)
+  (just-one-space)
+  (end-of-line)
+  (gin-do-auto-fill))
+;; Au niveau du mapping, c'est un peu tricky. Je n'ai pas trouvé le
+;; moyen d'ajouter la touche contrôle, l'idée initiale étant de binder
+;; ça sur la touche µ. J'ai récupéré le code dans un buffer dans lequel
+;; j'ai exécuté toggle-enable-multibyte-characters (il faut utiliser
+;; le code décimal)
+(global-set-key [181] 'mailcut)
+
 ;;; .emacs ends here
 (provide '.emacs)