add eln-cache, *.elc and session.* to git ignore file

Remove unused org-chef package.
Set the number of lines for block outputs from which begin_exemple is used (100 lines).
Add ANSI color escaping management for the org babel ouput blocks.
Update org-fancy-priorities.

.gitignore

@@ -12,3 +12,6 @@ quelpa
 request
 recentf~
 transient
+eln-cache
+*.elc
+session.*

init.el

@@ -21,11 +21,11 @@
 ;;(require 'lib/bootstrap)
 ;;(require 'lib/apps)
 ;;(require 'lib/introspection)
-
+(require 'lib/with)
 
 ;; Load full configuration.
 (require 'init-utilities)
-;;(require 'init-vcs)
+(require 'init-vcs)
 (require 'init-modes)
 (require 'init-apps)
 

lisp/apps/elfeed.el

@@ -4,6 +4,27 @@
 
 ;; https://github.com/skeeto/elfeed
 ;; An Emacs web feeds client
+
+(require 'elfeed)
+
+;; From https://medium.com/emacs/using-elfeed-to-view-videos-6dfc798e51e6
+(defun elfeed-v-mpv (url)
+  "Watch a video from URL in MPV."
+  (async-shell-command (format "mpv --cache=yes --cache-secs=60 %s" url)))
+
+(defun elfeed-view-mpv (&optional use-generic-p)
+  "Youtube-feed link."
+  (interactive "P")
+  (let ((entries (elfeed-search-selected)))
+    (cl-loop for entry in entries
+             do (elfeed-untag entry 'unread)
+             when (elfeed-entry-link entry)
+             do (elfeed-v-mpv it))
+    (mapc #'elfeed-search-update-entry entries)
+    (unless (use-region-p) (forward-line))))
+
+(define-key elfeed-search-mode-map (kbd "v") 'elfeed-view-mpv)
+
 (use-package elfeed
   :ensure t
   :commands elfeed
@@ -15,9 +36,26 @@
           "https://blog.finxter.com/feed"
           "https://planet.emacslife.com/atom.xml"
           "https://planetpython.org/rss20.xml"
-          "http://www.reddit.com/r/emacs/.rss"
+;;          "http://www.reddit.com/r/emacs/.rss"
           "http://linuxfr.org/journaux.atom"
           "https://xkcd.com/atom.xml"
+          "https://medium.com/feed/tag/python"
+          "https://blog.devgenius.io/feed"
+          "https://mathspp.com/blog.atom"
+          "https://lwn.net/headlines/rss"
+          "https://nyxt.atlas.engineer/feed"
+          "https://pyvideo.org/feeds/all.rss.xml"
+          "https://toobnix.org/feeds/videos.xml?videoChannelId=154"                      ;; EmacsConf
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCWCFzEJd7PhVulMXwGjcYAA" ;; Pyjamas
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCVFkW-chclhuyYRbmmfwt6w" ;; Matrixdotorg
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCbn8O8WwMeoZsPRxgumfvAQ" ;; ENS
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCAiiOTio8Yu69c3XnR7nQBQ" ;; System Crafters
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCwuyodzTl_KdEKNuJmeo99A" ;; Emacs confs
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCe_eAP4ToqFLSxzvkTlNzUQ" ;; CommCon
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCfX55Sx5hEFjoC3cNs6mCUQ" ;; Linux foundation Org
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCwI-JbGNsojunnHbFAc0M4Q" ;; Arte
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCKPSmMfDsXTKrCZApukcJ7A" ;; Talk Python
+          "https://www.youtube.com/feeds/videos.xml?channel_id=UCK_eZkV9CYCxhdf9f0dEukA" ;; Python Bytes Podcast
           )))
 
 (provide 'apps/elfeed)

lisp/init-vcs.el

@@ -0,0 +1,9 @@
+;;; init-vcs.el --- initializes version control systems -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(load-all-files-from-dir (path-join *user-emacs-lisp-directory* "vcs"))
+
+
+(provide 'init-vcs)
+;;; init-vcs.el ends here

lisp/modes/c-c++.el

@@ -116,6 +116,15 @@ of FILE in the current directory, suitable for creation"
   )
 
   ;;; (Packages) ;;;
+
+  (use-package gdb-mi
+    :quelpa (gdb-mi :fetcher git
+                    :url "https://github.com/weirdNox/emacs-gdb.git"
+                    :files ("*.el" "*.c" "*.h" "Makefile"))
+    :init
+    (fmakunbound 'gdb)
+    (fmakunbound 'gdb-enable-debug))
+
   ;; https://github.com/emacs-mirror/emacs/blob/master/lisp/progmodes/cc-vars.el
   ;; user customization variables for CC Mod
   (use-package cc-vars

lisp/modes/org.el

@@ -2,6 +2,8 @@
 ;;; Commentary:
 ;;; Code:
 
+(require 'ob)
+
 (defconst *user-org-data-directory*
   (path-join *user-data-directory* "org")
   "Path to user's org data store.")
@@ -128,6 +130,17 @@
 ;;   (interactive)
 ;;   (cancel-timer user/org-mobile-sync-timer))
 
+;; From https://emacs.stackexchange.com/questions/44664/apply-ansi-color-escape-sequences-for-org-babel-results
+(defun user--babel-ansi ()
+  "Add ANSI escaping commands."
+  (when-let ((beg (org-babel-where-is-src-block-result nil nil)))
+    (save-excursion
+      (goto-char beg)
+      (when (looking-at org-babel-result-regexp)
+        (let ((end (org-babel-result-end))
+              (ansi-color-context-region nil))
+          (ansi-color-apply-on-region beg end))))))
+
 
 (use-package org
   :init
@@ -336,6 +349,14 @@
        org-id-locations-file
        (path-join *user-org-data-directory* "org-id-locations")))
 
+	;; https://github.com/rougier/svg-tag-mode
+	;; A minor mode for Emacs that replace keywords with nice SVG labels
+	;; (use-package svg-tag-mode
+	;;   :ensure t
+	;;   :config
+	;;   (setq svg-tag-tags '(("TODO" . ((lambda (tag) (svg-tag-make "TODO"))))))
+	;;   )
+
     ;; https://github.com/grugrut/helm-books/tree/625aadec1541a5ca36951e4ce1301f4b6fe2bf3f
     ;; Book search interface for emacs helm.
     (use-package helm-books
@@ -347,18 +368,6 @@
 	 (file (concat org-directory "book.org"))
 	 "* %(helm-books)")))
 
-    ;; https://github.com/Chobbes/org-chef
-    ;; A package for making a cookbook and managing recipes with org-mode.
-    (use-package org-chef
-      :disabled
-      :config
-      (add-to-list
-       'org-capture-templates
-       `("c" "Cookbook" entry
-	 (file ,(path-join *user-org-data-directory* "cookbook.org"))
-	 "%(org-chef-get-recipe-from-url)"
-	 :empty-lines 1)))
-
     ;; https://github.com/waymondo/org-repo-todo
     ;; Simple repository todo management with org-mode
     (use-package org-repo-todo))
@@ -367,10 +376,15 @@
   ;; Working with Code Blocks
   (use-package ob-core
     :ensure nil
+	:hook
+	((org-babel-after-execute-hook . user--babel-ansi))
     :config
     (validate-setq
      ;; Don't ask for validation.
-     org-confirm-babel-evaluate nil)
+     org-confirm-babel-evaluate nil
+	 ;; Set the number of lines for block outputs from which it'll placed
+	 ;; in a #+begin_example...#+end_example block
+	 org-babel-min-lines-for-block-output 100)
 
     (add-many-to-list
      'org-babel-load-languages
@@ -394,6 +408,8 @@
 		(push '(latex . t) to-load))
       (with-executable 'perl
 		(push '(perl . t) to-load))
+      (with-executable 'php
+		(push '(php . t) to-load))
       (with-executable 'python
 		(push '(python . t) to-load))
       (with-executable 'R
@@ -643,10 +659,14 @@
   ;; https://github.com/weirdNox/org-noter
   ;; Emacs document annotator, using Org-mode
   (use-package org-noter
-    :disabled)
+	:ensure t)
   ;; https://github.com/louietan/anki-editor
   ;; Emacs minor mode for making Anki cards with Org
-  (use-package anki-editor)
+  (use-package anki-editor
+	:ensure t
+	:after org-noter
+	)
+
   ;; https://github.com/dfeich/org-screenshot
   ;; screenshots integrated with emacs org mode attachments
   (use-package org-attach-screenshot
@@ -654,7 +674,10 @@
   ;; https://github.com/harrybournis/org-fancy-priorities
   ;; Display Org Mode priorities as custom strings
   (use-package org-fancy-priorities
-    :hook (org-mode-hook . org-fancy-priorities-mode))
+    :hook
+	(org-mode-hook . org-fancy-priorities-mode)
+	:config
+	(setq org-fancy-priorities-list '("HIGH" "MID" "LOW" "OPTIONAL")))
   ;; https://github.com/calvinwyoung/org-autolist
   ;; Making it even easier to edit lists in org-mode!
   (use-package org-autolist

lisp/modes/php.el

@@ -0,0 +1,10 @@
+;;; php.el --- initializes PHP modes -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(use-package php-mode
+  :if (executable-find "php")
+  :defer)
+
+(provide 'modes/php)
+;;; php.el ends here

lisp/modes/python.el

@@ -13,10 +13,21 @@
   ;; lsp python customization
   (lsp-register-custom-settings
    '(("pylsp.plugins.pyls_mypy.enabled" t t)
-     ("pylsp.plugins.flake8.maxLineLength" 100)
+     ;; ("pylsp.plugins.flake8.maxLineLength" 100)
+     ;; ("pylsp.plugins.pycodestyle.maxLineLength" 100)
      ("pylsp.plugins.yapf.enabled" t t)
      ("pylsp.plugins.pylint.enabled" t t)))
 
+  ;; locate the root pyproject.toml to force pylint rcfile
+  ;; (let* ((filename "pyproject.toml")
+  (let* ((filename "setup.cfg")
+         (found (locate-dominating-file default-directory filename)))
+    (when found
+      (let ((pyproject (format "%s%s" (replace-regexp-in-string "~" (getenv "HOME") found) filename)))
+        (setq-local lsp-pylsp-plugins-pylint-args (vector (format "--rcfile=%s" pyproject))))))
+
+  (message (format "lsp-pylsp-plugins-pylint-args=%s" lsp-pylsp-plugins-pylint-args))
+
   ;; Enable virtualenv support.
   (when(feature-p 'pyvenv)
     (pyvenv-mode t))
@@ -39,8 +50,8 @@
   :mode ("SCon\(struct\|script\)$" . python-mode)
   :interpreter ("python[0-9.]*" . python-mode)
   :hook
-  (python-mode-hook . lsp)
   (python-mode-hook . user--python-mode-hook)
+  (python-mode-hook . lsp-deferred)
   (python-mode-hook . (lambda ()
 			(add-hook 'before-save-hook #'user--python-format-before-save nil t)))
 
@@ -56,8 +67,8 @@
      python-shell-interpreter-args ""
      python-shell-prompt-regexp "In \\[[0-9]+\\]: "
      python-shell-prompt-output-regexp "Out\\[[0-9]+\\]: "
-     python-shell-completion-setup-code "from IPython.core.completerlib import module_completion"
+     python-shell-completion-setup-code "from IPython.core.completerlib import module_completion"))
-     python-shell-completion-string-code "';'.join(get_ipython().Completer.all_completions('''%s'''))\n"))
+     ;; python-shell-completion-string-code "';'.join(get_ipython().Completer.all_completions('''%s'''))\n"))
 
   (with-executable 'bpython
     (defun user/bpython-term()
@@ -72,6 +83,14 @@
   ;; https://github.com/pythonic-emacs/anaconda-mode
   ;; Code navigation, documentation lookup and completion for Python.
   (use-package anaconda-mode)
+
+  ;; https://github.com/Wilfred/pip-requirements.el
+  ;; Major mode for editing pip requirements files
+  ;; TODO: Find why completion does not run.
+  (use-package pip-requirements
+    :ensure t
+    )
+
   ;; https://github.com/tsgates/pylookup
   ;; Emacs mode for searching python documents with convenience
   (use-package pylookup

lisp/modes/yaml.el

@@ -0,0 +1,15 @@
+;;; yaml.el --- Initializes YAML mode -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(use-package yaml-mode
+  :ensure t
+  :defer
+  :config
+  (use-package flycheck-yamllint
+    :if (executable-find "yamllint")
+    :config
+    (flycheck-yamllint-setup)))
+
+(provide 'modes/yaml)
+;;; yaml.el ends here

lisp/utilities/flycheck.el

@@ -72,12 +72,26 @@
     :config
     ;; Make sure flycheck-pos-tip is loaded.
     (require 'flycheck-pos-tip nil t))
+
   ;; https://github.com/gexplorer/flycheck-indicator
   ;; An Emacs minor-mode to get a fancy mode line indicator for Flycheck.
+
   (use-package flycheck-indicator
     :hook (flycheck-mode-hook . flycheck-indicator-mode))
   ;; https://github.com/yasuyk/helm-flycheck
   ;; Show flycheck errors with helm.
+
+  ;; https://github.com/abingham/flycheck-vale
+  ;; Flycheck integration for the vale natural language linter.
+  (use-package flycheck-vale
+	:ensure t
+	:quelpa(flycheck-vale
+			:fetcher git
+			:url "http://git.adrien.run/Adrien/flycheck-vale.git")
+	:config
+	(setq flycheck-vale-config-file "~/dev/perso/vale-config/.vale.ini")
+	(flycheck-vale-setup))
+
   (use-package helm-flycheck)
 
   (global-flycheck-mode t))

lisp/utilities/lsp.el

@@ -2,15 +2,11 @@
 ;;; Commentary:
 ;;; Code: https://github.com/emacs-lsp/lsp-mode
 
-(defun user--lsp-mode-hook ()
-  "Mode hook for LSP minor modes."
-  (message "user--lsp-mode-hook"))
-
 (use-package lsp-mode
   :pin "MELPA"
+  :defer
   :commands lsp
-  :hook ((lsp-after-open-hook . lsp-enable-imenu)
+  :hook ((lsp-after-open-hook . lsp-enable-imenu))
-         (lsp-mode-hook . user--lsp-mode-hook))
   :config
   (validate-setq
    ;; Automatically try to figure out project root.

lisp/utilities/smartparens.el

@@ -118,6 +118,10 @@
   (sp-with-modes '(sh-mode markdown-mode gfm-mode rts-mode python-mode cython-mode)
     (sp-local-pair "`" nil :unless '(sp-point-before-word-p sp-point-after-word-p sp-point-before-same-p)))
 
+  (sp-with-modes '(python-mode)
+	(sp-local-pair "f\"" "\"")
+	(sp-local-pair "f'" "'"))
+
   (sp-with-modes '(markdown-mode gfm-mode rst-mode)
     (sp-local-pair "*" "*" :wrap "C-*" :skip-match 'user--sp-gfm-skip-asterisk)
     (sp-local-tag "2" "**" "**")
@@ -125,7 +129,6 @@
 
   (sp-with-modes '(tex-mode plain-tex-mode latex-mode)
     (sp-local-tag "i" "\"<" "\">")
-    (sp-local-pair "$" nil :unless '(sp-point-before-word-p))
     (sp-local-pair "\\[" " \\]")
     (sp-local-pair "\\(" " \\)")
     (sp-local-pair "\\{" " \\}")

lisp/vcs/git.el

@@ -0,0 +1,27 @@
+;;; git.el --- Git integration -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(defun user--git-config ()
+  "Initialize Git support."
+  (message "user--git-config")
+  
+  (use-package magit
+    :ensure t
+    :defer
+    :config
+
+    ;; https://github.com/dandavison/magit-delta
+    ;; Use delta (https://github.com/dandavison/delta) when viewing diffs in Magit
+    (use-package magit-delta
+      :ensure t
+	  :if (executable-find "delta")
+      :hook (magit-mode . magit-delta-mode))
+    )
+)
+
+(with-executable 'git
+  (user--git-config))
+
+(provide 'vcs/git)
+;;; git.el ends here