ALMOST EVERYTHING WITH EMACS

;;******************************************************************************
;;*
;;*                     EMACS INITIALIZATION SCRIPT
;;*
;;******************************************************************************


;; Minimal settings
(require 'package)
;(package-initialize)

;; All the other settings are in the settings file
(require 'org)
(org-babel-load-file (expand-file-name "~/ownCloud/Settings/Emacs/settings.org"))
(defvar my-init-el-start-time (current-time) "Time when init.el was started")
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(org-babel-load-languages
   '((emacs-lisp . t)
     (shell . t)
     (awk . t)
     (python . t)
     (fortran . t)
     (latex . t)
     (lilypond . t)
     (lua . t)))
 '(org-emphasis-alist
   '(("*" bold)
     ("/" italic)
     ("_" underline)
     ("=" org-verbatim verbatim)
     ("+"
      (:strike-through t))
     ("~"
      (:overline t)
      verbatim)))
 '(package-selected-packages
   '(gnu-elpa-keyring-update php-mode magit use-package symon rainbow-mode rainbow-delimiters pdf-tools org-super-agenda org-bullets neotree hydra htmlize highlight-indent-guides helm-bibtex guide-key guess-language fortpy elpy dired-subtree dired-rainbow calfw-org calfw-ical calfw auctex-lua auctex-latexmk))
 '(template-use-package t nil (template)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(mu4e-context-face ((t (:foreground "dark green" :weight bold :background "grey"))))
 '(org-ellipsis ((t (:foreground "magenta" :underline t :overline t :weight bold))))
 '(rainbow-delimiters-depth-1-face ((t (:foreground "violet"))))
 '(rainbow-delimiters-depth-2-face ((t (:foreground "cyan"))))
 '(rainbow-delimiters-depth-3-face ((t (:foreground "green"))))
 '(rainbow-delimiters-depth-4-face ((t (:foreground "yellow"))))
 '(rainbow-delimiters-depth-5-face ((t (:foreground "orange"))))
 '(rainbow-delimiters-depth-6-face ((t (:foreground "red"))))
 '(rainbow-delimiters-depth-7-face ((t (:foreground "pink"))))
 '(rainbow-delimiters-depth-8-face ((t (:foreground "light blue"))))
 '(rainbow-delimiters-depth-9-face ((t (:foreground "light green"))))
 '(rainbow-delimiters-unmatched-face ((t (:background "gray")))))

(defun reload-init-file ()
  (interactive)
  (load-file user-init-file))
(global-set-key (kbd "C-c e") 'reload-init-file)

(when (not package-archive-contents)
      (package-refresh-contents))
(require 'package)
(add-to-list 'package-archives
             '("melpa-stable" . "https://stable.melpa.org/packages/") t)
(add-to-list 'package-archives
             '("melpa" . "http://melpa.org/packages/") t)
(package-initialize)
(setq package-check-signature nil)

(add-to-list 'load-path "~/.emacs.d/lisp/")

(global-auto-revert-mode 1)

(use-package dired
  :defer t
  :bind (:map dired-mode-map
              ("C-<f1>" . show-dired-help)
              ("<f7>" . hydra-files/body)
              ("<f2>" . dired-omit-switch)
              ("<f3>" . dired-hide-details-mode)
              ("<f4>" . locate)
              ("<f5>" . find-alternate-file)
              ("<f6>" . dired-equal)
              ("<f10>" . term-here)
              ("<f9>"  . magit-status)
              ("<tab>" . dired-subtree-insert)
              ("<backtab>" . dired-subtree-remove)
              ("<backspace>" . dired-up-directory)
              ("C-c C-a" . gnus-dired-attach)
              )
  :init
    ;; dired layout
    (defun dired-layout ()
    (interactive)
    (delete-other-windows)
    (dired launch-directory)
    )
  :config
    (require 'dired-subtree)
    (require 'dired-rainbow)
    (require 'dired-x)
    ;; Auto refresh dired when file changes
    (add-hook 'dired-mode-hook 'auto-revert-mode)
    ;; If nil, don't ask whether to kill buffers visiting deleted files
    (setq dired-clean-confirm-killing-deleted-buffers nil)
    ;; Get readable file sizes, dirs first
    (setq dired-listing-switches "-aBhl  --group-directories-first")
)

(setq backup-directory-alist `(("." . "~/.saves")))
(setq backup-by-copying t)
(setq delete-old-versions t
      kept-new-versions 6
      kept-old-versions 2
      version-control t)

(use-package guide-key
  :init
   (setq guide-key/guide-key-sequence t) ;;'("C-x r" "C-x 4")
   (guide-key-mode 1)  ; Enable guide-key-mode
   (setq guide-key/idle-delay 2)
)

(fset 'yes-or-no-p 'y-or-n-p)

(put 'erase-buffer 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'scroll-left 'disabled nil)
(put 'scroll-right 'disabled nil)
(put 'set-goal-column 'disabled nil)

(setq large-file-warning-threshold (* 15 1024 1024))

(defvar my-ratio-dict
  '((1 . 1.47)           ;; adapted to LaTeX on sappcw100
    (2 . 1.61803398875)) ;; golden number ratio
  "The ratio dictionary.")

(defun my-split-window-horizontally (&optional ratio)
  "Split window horizontally and resize the new window.
   'C-u number M-x my-split-window-horizontally' uses pre-defined
   ratio from `my-ratio-dict'.
   Always focus on bigger window."
  (interactive "P")
  (let* (ratio-val)
    (cond
     (ratio
      (setq ratio-val (cdr (assoc ratio my-ratio-dict)))
      (split-window-horizontally (floor (/ (window-body-width)
                                           (1+ ratio-val)))))
     (t
      (split-window-horizontally)))
    (set-window-buffer (next-window) (current-buffer))
    (if (or (not ratio-val)
            (>= ratio-val 1))
        (windmove-right))))

(defun my-split-window-vertically (&optional ratio)
  "Split window vertically and resize the new window.
   'C-u number M-x my-split-window-vertically' uses pre-defined
   ratio from `my-ratio-dict'.
   Always focus on bigger window."
  (interactive "P")
  (let* (ratio-val)
    (cond
     (ratio
      (setq ratio-val (cdr (assoc ratio my-ratio-dict)))
      (split-window-vertically (floor (/ (window-body-height)
                                         (1+ ratio-val)))))
     (t
      (split-window-vertically)))
    ;; open another window with current-buffer
    (set-window-buffer (next-window) (current-buffer))
    ;; move focus if new window bigger than current one
    (if (or (not ratio-val)
            (>= ratio-val 1))
        (windmove-down))))

(global-set-key (kbd "C-x 2") 'my-split-window-vertically)
(global-set-key (kbd "C-x 3") 'my-split-window-horizontally)

(global-set-key (kbd "M-p f") 'follow-mode)

(when (fboundp 'winner-mode)
      (winner-mode 1))
(global-set-key [f8] 'winner-undo)
(global-set-key [C-f8] 'winner-redo)

(defun remove-scratch-buffer ()
  (if (get-buffer "*scratch*")
      (kill-buffer "*scratch*")))
(add-hook 'after-change-major-mode-hook 'remove-scratch-buffer)

(add-hook 'minibuffer-exit-hook
      #'(lambda ()
         (let ((buffer "*Completions*"))
           (and (get-buffer buffer)
                (kill-buffer buffer)))))

(setq inhibit-startup-buffer-menu t)

(add-hook 'window-setup-hook 'delete-other-windows)

(setq launch-directory default-directory)

(setq visible-bell t)
(setq ring-bell-function 'ignore)

(setq frame-title-format '(buffer-file-name "%F: %f" ("%F: %b")))

;; (use-package symon
;;   :defer 3
;;   :ensure t
;;   :config
;;   (setq symon-sparkline-type 'bounded)
;;   (define-symon-monitor symon-current-date-time-monitor
;;     :interval 5
;;     :display (propertize
;;            (format-time-string "%a %d %b %Y [%k:%M] |")
;;            'face 'font-lock-type-face))
;;   (setq symon-monitors
;;       '(symon-current-date-time-monitor
;;         symon-linux-memory-monitor
;;         symon-linux-cpu-monitor))
;;   (symon-mode)
;;   )

(defun coding-layout ()
  (interactive)
  (delete-other-windows)
  (set-frame-size (selected-frame) 81 55 nil)
  )
(defun big-layout ()
  (interactive)
  (delete-other-windows)
  (set-frame-size (selected-frame) 166 55 nil)
  )
(defun org-task-layout-work ()
  (interactive)
  (delete-other-windows)
  (set-frame-size (selected-frame) 166 55 nil)
  (find-file "~/ownCloud/Organisation/boulot.org")
  (split-window-horizontally)
  (other-window 1)
  (org-agenda "a" "a")
  (other-window 1)
  )
(defun org-task-layout-home ()
  (interactive)
  (delete-other-windows)
  (set-frame-size (selected-frame) 166 55 nil)
  (find-file "~/ownCloud/Organisation/guitare.org")
  (split-window-horizontally)
  (other-window 1)
  (org-agenda "a" "a")
  (other-window 1)
  )

(defun latex-layout ()
  (interactive)
  (delete-other-windows)
  (set-frame-size (selected-frame) 166 55 nil)
  (my-split-window-horizontally 1)
  (other-window 1)
  )

(defun email-layout ()
  (interactive)
  (delete-other-windows)
  (set-frame-size (selected-frame) 166 55 nil)
  (mu4e)
  )

(global-set-key (kbd "\C-cl")
                (defhydra hydra-layouts
                  (:exit t)
                  "Layouts"
                  ("c" coding-layout "Plain coding")
                  ("w" org-task-layout-work "Work tasks")
                  ("h" org-task-layout-home "Home tasks")
                  ("l" latex-layout "LaTeX")
                  ("m" email-layout "Emails")
                  ("b" big-layout "Big")
                  ))

(delete-selection-mode 1)

(setq x-select-enable-clipboard t)

(setq show-paren-delay 0)
(show-paren-mode 1)
(setq show-paren-style 'expression) ;; or 'parenthesis (default)
(setq show-paren-highlight-openparen t
      show-paren-when-point-inside-paren t)
;; To change the color/face:
(require 'paren)
(set-face-background 'show-paren-match "#505050")
(set-face-attribute 'show-paren-match nil :weight 'extra-bold)

(use-package rainbow-delimiters
  :ensure t
  :config
  (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
(custom-set-faces
 '(rainbow-delimiters-depth-1-face ((t (:foreground "violet"))))
 '(rainbow-delimiters-depth-2-face ((t (:foreground "cyan"))))
 '(rainbow-delimiters-depth-3-face ((t (:foreground "green"))))

 '(rainbow-delimiters-depth-4-face ((t (:foreground "yellow"))))
 '(rainbow-delimiters-depth-5-face ((t (:foreground "orange"))))
 '(rainbow-delimiters-depth-6-face ((t (:foreground "red"))))

 '(rainbow-delimiters-depth-7-face ((t (:foreground "pink"))))
 '(rainbow-delimiters-depth-8-face ((t (:foreground "light blue"))))
 '(rainbow-delimiters-depth-9-face ((t (:foreground "light green"))))
 '(rainbow-delimiters-unmatched-face ((t (:background "gray"))))
 )

(defun my-insert-bracket-pair (@left-bracket @right-bracket &optional @wrap-method)
  "Insert brackets around selection, word, at point, and maybe move cursor in between.

  *left-bracket and *right-bracket are strings. *wrap-method must be either 'line or 'block. 'block means between empty lines.

  • if there's a region, add brackets around region.
  • If *wrap-method is 'line, wrap around line.
  • If *wrap-method is 'block, wrap around block.
  • if cursor is at beginning of line and its not empty line and contain at least 1 space, wrap around the line.
  • If cursor is at end of a word or buffer, one of the following will happen:
   xyz▮ → xyz(▮)
   xyz▮ → (xyz▮)       if in one of the lisp modes.
  • wrap brackets around word if any. e.g. xy▮z → (xyz▮). Or just (▮)

  URL `http://ergoemacs.org/emacs/elisp_insert_brackets_by_pair.html'
  Version 2017-01-17"
  (if (use-region-p)
      (progn ; there's active region
        (let (
              ($p1 (region-beginning))
              ($p2 (region-end)))
          (goto-char $p2)
          (insert @right-bracket)
          (goto-char $p1)
          (insert @left-bracket)
          (goto-char (+ $p2 2))))
    (progn ; no text selection
      (let ($p1 $p2)
        (cond
         ((eq @wrap-method 'line)
          (setq $p1 (line-beginning-position) $p2 (line-end-position))
          (goto-char $p2)
          (insert @right-bracket)
          (goto-char $p1)
          (insert @left-bracket)
          (goto-char (+ $p2 (length @left-bracket))))
         ((eq @wrap-method 'block)
          (save-excursion
            (progn
              (if (re-search-backward "\n[ \t]*\n" nil 'move)
                  (progn (re-search-forward "\n[ \t]*\n")
                         (setq $p1 (point)))
                (setq $p1 (point)))
              (if (re-search-forward "\n[ \t]*\n" nil 'move)
                  (progn (re-search-backward "\n[ \t]*\n")
                         (setq $p2 (point)))
                (setq $p2 (point))))
            (goto-char $p2)
            (insert @right-bracket)
            (goto-char $p1)
            (insert @left-bracket)
            (goto-char (+ $p2 (length @left-bracket)))))
         ( ;  do line. line must contain space
          (and
           (eq (point) (line-beginning-position))
           ;; (string-match " " (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
           (not (eq (line-beginning-position) (line-end-position))))
          (insert @left-bracket )
          (end-of-line)
          (insert  @right-bracket))
         ((and
           (or ; cursor is at end of word or buffer. i.e. xyz▮
            (looking-at "[^-_[:alnum:]]")
            (eq (point) (point-max)))
           (not (or
                 (string-equal major-mode "my-elisp-mode")
                 (string-equal major-mode "emacs-lisp-mode")
                 (string-equal major-mode "lisp-mode")
                 (string-equal major-mode "lisp-interaction-mode")
                 (string-equal major-mode "common-lisp-mode")
                 (string-equal major-mode "clojure-mode")
                 (string-equal major-mode "my-clojure-mode")
                 (string-equal major-mode "scheme-mode"))))
          (progn
            (setq $p1 (point) $p2 (point))
            (insert @left-bracket @right-bracket)
            (search-backward @right-bracket )))
         (t (progn
              ;; wrap around “word”. basically, want all alphanumeric, plus hyphen and underscore, but don't want space or punctuations. Also want chinese chars
              ;; 我有一帘幽梦，不知与谁能共。多少秘密在其中，欲诉无人能懂。
              (skip-chars-backward "-_[:alnum:]")
              (setq $p1 (point))
              (skip-chars-forward "-_[:alnum:]")
              (setq $p2 (point))
              (goto-char $p2)
              (insert @right-bracket)
              (goto-char $p1)
              (insert @left-bracket)
              (goto-char (+ $p2 (length @left-bracket))))))))))
(defun my-insert-paren ()
  (interactive)
  (my-insert-bracket-pair "(" ")") )
(defun my-insert-bracket ()
  (interactive)
  (my-insert-bracket-pair "[" "]") )
(defun my-insert-brace ()
  (interactive)
  (my-insert-bracket-pair "{" "}") )
(defun my-insert-ascii-double-quote () (interactive) (my-insert-bracket-pair "\"" "\"") )
(defun my-insert-ascii-single-quote () (interactive) (my-insert-bracket-pair "'" "'") )
(global-set-key (kbd "C-M-{") 'my-insert-brace) ; {}
(global-set-key (kbd "C-M-(") 'my-insert-paren) ; ()
(global-set-key (kbd "C-M-[") 'my-insert-bracket) ; []
(global-set-key (kbd "C-M-'") 'my-insert-ascii-single-quote) ; ''
(global-set-key (kbd "C-M-\"") 'my-insert-ascii-double-quote) ; ""

(defun my-select-text-in-quote ()
  "Select text between the nearest left and right delimiters.
   Delimiters here includes the following chars: \"<>(){}[]“”‘’‹›«»「」『』【】〖〗《》〈〉〔〕（）
   This command select between any bracket chars, not the inner text of a bracket. For example, if text is

   (a(b)c▮)

   the selected char is “c”, not “a(b)c”.

  URL `http://ergoemacs.org/emacs/modernization_mark-word.html'
  Version 2016-12-18"
  (interactive)
  (let (
        ($skipChars
         (if (boundp 'my-brackets)
             (concat "^\"" my-brackets)
           "^\"<>(){}[]“”‘’‹›«»「」『』【】〖〗《》〈〉〔〕（）"))
        $pos
        )
    (skip-chars-backward $skipChars)
    (setq $pos (point))
    (skip-chars-forward $skipChars)
    (set-mark $pos)))
(global-set-key (kbd "M-p s") 'my-select-text-in-quote)

(defun my-select-line ()
  "Select current line. If region is active, extend selection downward by line.
  URL `http://ergoemacs.org/emacs/modernization_mark-word.html'
  Version 2017-11-01"
  (interactive)
  (if (region-active-p)
      (progn
        (forward-line 1)
        (end-of-line))
    (progn
      (end-of-line)
      (set-mark (line-beginning-position)))))
(global-set-key (kbd "M-p l") 'my-select-line)

(defun my-select-block ()
  "Select the current/next block of text between blank lines.
  If region is active, extend selection downward by block.

  URL `http://ergoemacs.org/emacs/modernization_mark-word.html'
  Version 2019-12-26"
  (interactive)
  (if (region-active-p)
      (re-search-forward "\n[ \t]*\n" nil "move")
    (progn
      (skip-chars-forward " \n\t")
      (when (re-search-backward "\n[ \t]*\n" nil "move")
        (re-search-forward "\n[ \t]*\n"))
      (push-mark (point) t t)
      (re-search-forward "\n[ \t]*\n" nil "move"))))
(global-set-key (kbd "M-p b") 'my-select-block)

(add-hook 'text-mode-hook 'flyspell-mode)
(add-hook 'prog-mode-hook 'flyspell-prog-mode)
(with-eval-after-load "ispell"
  (setq ispell-check-comments t)
  (setq ispell-really-hunspell t)
  (setq ispell-program-name (executable-find "hunspell")
        ispell-dictionary "en_US"))

(use-package guess-language
  :ensure t
  :defer t
  :init (add-hook 'text-mode-hook #'guess-language-mode)
  :config
  (setq guess-language-langcodes '((en . ("en_US" "English"))
                                   (fr . ("fr_FR" "French")))
        guess-language-languages '(en fr)
        guess-language-min-paragraph-length 45) ;minimal length that a paragraph needs to have before guess-language-mode starts guessing
  :diminish guess-language-mode)

(global-set-key (kbd "\C-cd")
  (defhydra hydra-dict ()
   "dict"
   ("f" (lambda () (interactive) (ispell-change-dictionary "fr_FR") (flyspell-buffer)) "french")
   ("e" (lambda () (interactive) (ispell-change-dictionary "en_US") (flyspell-buffer)) "english")
   ("q" nil "cancel")))
(global-set-key (kbd "<C-f2>") 'ispell-word)
(global-set-key (kbd "<C-f3>") 'helm-flyspell-correct)

(with-eval-after-load 'flycheck
  (flycheck-grammalecte-setup))

(global-set-key (kbd "M-=") 'count-words)

(use-package highlight-indent-guides
  :hook
  (python-mode . highlight-indent-guides-mode)
  :custom
  (highlight-indent-guides-method 'character)
  (highlight-indent-guides-responsive 'top)
  (highlight-indent-guides-delay 0)
  )
(add-hook 'prog-mode-hook 'highlight-indent-guides-mode)

(custom-set-variables
'(org-babel-load-languages
(quote
((emacs-lisp . t)
 (shell . t)
 (awk . t)
 (python . t)
 (fortran . t)
 (latex . t)
 (lilypond . t)
 (lua . t)
))))
(setq org-babel-python-command "python3"
      org-confirm-babel-evaluate nil)

(autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t)
(autoload 'turn-on-reftex "reftex" "RefTeX Minor Mode" nil)
(autoload 'reftex-citation "reftex-cite" "Make citation" nil)
(autoload 'reftex-index-phrase-mode "reftex-index" "Phrase Mode" t)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
(setq reftex-plug-into-AUCTeX t)

(setq TeX-parse-self t
 LaTeX-section-hook
 '(LaTeX-section-heading
   LaTeX-section-title
   LaTeX-section-toc
   LaTeX-section-section
   LaTeX-section-label))

(setq TeX-source-correlate-mode t
 TeX-source-correlate-start-server t
 TeX-source-correlate-method 'synctex)

(with-eval-after-load 'tex
  (pdf-tools-install)
  (setq TeX-view-program-selection '((output-pdf "PDF Tools")))
  (setq TeX-view-program-list '(("pdf-tools" "TeX-pdf-tools-sync-view"))))

;(setq TeX-show-compilation t)
(add-hook 'LaTeX-mode-hook 'TeX-PDF-mode)
(add-hook 'LaTeX-mode-hook 'TeX-source-correlate-mode)
(add-hook 'TeX-after-compilation-finished-functions
         #'TeX-revert-document-buffer)

(use-package helm-bibtex
   :defer t
   :bind (:map helm-map ("C-<f1>" . show-helm-bibtex-help))
   :init
   (setq bibtex-completion-bibliography  
    '("~/ownCloud/TeXstyle/references.bib"))
   (setq bibtex-completion-library-path "~/ownCloud/References/Copies")
   (setq bibtex-completion-notes-path "~/ownCloud/References/Notes")
  )

(setq bibtex-completion-additional-search-fields '(firstauthor tags))
(setq bibtex-completion-display-formats
     '((t . "${author:30}|${year:4}|${title:*}|${=has-pdf=:1}| ${=has-note=:1}|${=type=:7}")))
  (advice-add 'bibtex-completion-candidates
            :filter-return 'reverse)

(defun helm-bibtex-my-publications (&optional arg)
    "Search BibTeX entries authored by “Jane Doe”.
    With a prefix ARG, the cache is invalidated and the bibliography reread."
    (interactive "P")
    (helm-bibtex arg nil "Xxx"))
;; Bind
(global-set-key (kbd "C-x b") 'helm-bibtex)

(custom-set-variables
 '(org-emphasis-alist
   (quote
    (("*" bold)
     ("/" italic)
     ("_" underline)
     ("=" org-verbatim verbatim)
     ("+" (:strike-through t))
     ("~" (:overline t) verbatim)))))

(require 'org-bullets)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))

(eval-after-load "org"
  '(require 'ox-md nil t))

(setq org-agenda-format-date 
  "\n__________________________%n%n%^A (%d %B %Y)%n__________________________") 
(defun my-org-agenda-day-face-fn (date)
  "Return the face DATE should be displayed with."
  (let ((day-of-week (calendar-day-of-week date)))
    (cond
      ((or (= day-of-week 0) (= day-of-week 6)) 
       '(:foreground "grey24" :weight ultra-bold))
      ((or (= day-of-week 1) (= day-of-week 2) (= day-of-week 3) 
           (= day-of-week 4) (= day-of-week 5)) 
       '(:foreground "yellow1" :weight ultra-bold)))))
(setq org-agenda-day-face-function 'my-org-agenda-day-face-fn)
(setq org-agenda-deadline-faces
   '((1.0 . (:foreground "magenta"))
    (0.5 . (:foreground "cyan"))
    (0.0 . (:foreground "red"))))

(setq org-agenda-hide-tags-regexp "\\|sometag")
(setq org-agenda-prefix-format '((agenda  . "  • %i %?-12t% s")))

(require 'org-super-agenda)
(use-package org-super-agenda
  :ensure t
  :after (org org-agenda)
  :config
  (org-super-agenda-mode t)
  (setq org-super-agenda-groups
   '((:name "————— IMPORTANT/URGENT —————"   :tag "IMPORTANT"     
      :face (:foreground "red" :weight bold))
     (:name "————— ÉCHÉANCES —————"          :category "GC-deadline"   
      :face (:foreground "magenta" :weight bold))
     (:name "————— COURRIELS —————"         :tag "COURRIEL"        )
     (:name "————— PROJETS —————"            :tag "PROJET"        )
     (:name "————— COLLABORATIONS —————"     :tag "COLLABORATION" )
     (:name "————— ENCADREMENT —————"        :tag "ENCADREMENT"   )
     (:name "————— DÉVELOPPEMENT —————"      :tag "DEVELOPPEMENT" )
     (:name "————— INFORMATIQUE —————"       :tag "INFORMATIQUE"  ) 
     (:name "————— SÉMINAIRES —————"         :tag "SEMINAIRES"    )
     (:name "————— BUREAUCRATIE —————"       :tag "BUREAUCRATIE"  )
     (:name "————— CALENDRIERS —————"        :tag "CALENDRIERS"
      :category ( "GC-work" "GC-SFL" "GC-DAp" ) )
     (:name "————— EXTRA-BOULOTIQUE —————"   :tag "PERSONNEL"     
      :category "GC-perso")
     (:name "————— GUITARE —————"            :tag "GUITARE"  )
     (:auto-group t :time-grid t) ;; refers to the agenda-group property in the orgs
     (:auto-category t :time-grid t) ;; category is the file name minus .org
    ) 
  )
  (org-agenda-list)
  (org-agenda nil "a")
  ;; Shows SOMEDAY with C-c a l
  (setq org-agenda-custom-commands
    '(("l" "LONGUE DURÉE" todo "UN-JOUR"
      ((org-agenda-todo-ignore-with-date t))))
  )
)

(run-with-idle-timer 300 t (lambda () (org-agenda-maybe-redo)) )

mkdir -p ~/.cert
openssl s_client -connect imap.cnrs.fr:993 -showcerts 2>&1 < /dev/null | sed -ne '/-BEGIN CERTIFICATE-/,/-END CERTIFICATE-/p' | sed -ne '1,/-END CERTIFICATE-/p' > ~/.cert/imap.cnrs.fr.pem

(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e/")
(setq mu4e-mu-binary "/usr/local/bin/mu")
(setq auth-sources '("~/.authinfo.gpg"))
(require 'mu4e)

(use-package mu4e
 :defer t
 :config
 (require 'gnus)
 ;; Make mu4e the default emacs app, opened with C-x m
 (setq mail-user-agent 'mu4e-user-agent)
 (set-variable 'read-mail-command 'mu4e)
 ;; For some reason it does not work so enforce it
 (global-set-key (kbd "C-x m") 'mu4e)
 ;; Don't keep message buffers around
 (setq message-kill-buffer-on-exit t)
 ;; No need to confirm
 (setq mu4e-confirm-quit nil)
 ;; Use UTF-8 characters
 (setq mu4e-use-fancy-chars t)
)

(use-package mu4e
 :defer t
 :config
 ;; General emacs mail settings; used when composing e-mail
 ;; the non-mu4e-* stuff is inherited from emacs/message-mode
 ;; later redefined in contexts
 (setq user-mail-address "xxxxxxxx.xxxxxxxx@cnrs.fr"
       user-full-name "Frédéric Galliano"
       mu4e-reply-to-address "xxxxxxxx.xxxxxxxx@cnrs.fr"
       mu4e-compose-reply-to-address "xxxxxxxx.xxxxxxxx@cnrs.fr")  
;; To determine whether a message was sent by you, mu4e uses the variable mu4e-user-mail-address-list, a list of your e-mail addresses.
(setq mu4e-user-mail-address-list '("xxxxxxxx.xxxxxxxx@cea.fr"  "xxxxxxxx.xxxxxxxx@gmail.com" "xxxxxxxx.xxxxxxxx@neuf.fr" "xxxxxxxx.xxxxxxxx@cnrs.fr"))
;; Mail aliases for lists (address lists)
(setq mail-personal-alias-file (expand-file-name  "~/ownCloud/Settings/Emacs/mailing-lists.txt"))
)

(use-package mu4e
:defer t
:config
;; get mail
(setq mu4e-get-mail-command "/usr/bin/mbsync -aV"
      mu4e-update-interval 300 ;; every 5 minutes
      mu4e-headers-auto-update t
      mu4e-view-show-images t
      mu4e-show-images t
      )
)

(use-package mu4e
 :defer t
 :config
 ;; Attachments
 (setq mu4e-attachment-dir "~/Downloads")
 ;; Needed for mbsync
 (setq mu4e-change-filenames-when-moving t)
)

(use-package mu4e
 :defer t
 :config
  (add-hook 'mu4e-view-mode-hook #'turn-on-visual-line-mode)
 )

(use-package mu4e
 :defer t
 :config
 ;; View in browser
 (add-to-list 'mu4e-view-actions
  '("ViewInBrowser" . mu4e-action-view-in-browser) t)
 ;; Images
 (setq mu4e-view-image-max-width 800
       mu4e-image-max-width 800)
 (when (fboundp 'imagemagick-register-types)
       (imagemagick-register-types))
 ;; HTML
 (setq mu4e-html2text-command 'mu4e-shr2text)
 (setq shr-color-visible-luminance-min 80)
 (setq shr-color-visible-distance-min 5)
 (setq mu4e-view-prefer-html nil)
 (add-hook 'mu4e-view-mode-hook
   (lambda()
    (local-set-key (kbd "<tab>") 'shr-next-link)
    (local-set-key (kbd "<backtab>") 'shr-previous-link)))
 (setq gnus-unbuttonized-mime-types nil)
)

(use-package mu4e
  :defer t
  :config
  (setq mu4e-headers-fields
   '( (:human-date . 25)
      (:from-or-to . 25)
      (:flags . 5)
      (:size . 8)
      (:recipnum . 6)
      (:subject . 90)
      ))
  (setq mu4e-headers-date-format "%a %e %b %Y")
  (setq mu4e-headers-time-format "Aujourd'hui, %H:%M")
  (setq mu4e-headers-show-threads t)
)

 (use-package mu4e
  :defer t
  :config
  ;; Display is definitely nicer with these
  (setq mu4e-use-fancy-chars t)
  (setq mu4e-headers-precise-alignment t)
  ;; We wanna get the Mono font for the font-lock faces for mu4e-columns-faces
  (set-face-attribute 'font-lock-type-face nil :font (face-attribute 'default :font) :height 100)
  (set-face-attribute 'font-lock-keyword-face nil :font (face-attribute 'default :font) :height 100)
  (set-face-attribute 'font-lock-string-face nil :font (face-attribute 'default :font) :height 100)
  (set-face-attribute 'font-lock-variable-name-face nil :font  (face-attribute 'default :font) :height 100)
  (set-face-attribute 'font-lock-doc-face nil :font (face-attribute 'default :font) :height 100)
  (set-face-attribute 'font-lock-function-name-face nil :font (face-attribute 'default :font) :height 100)
  (set-face-attribute 'font-lock-constant-face nil :font (face-attribute 'default :font) :height 100)
  (set-face-attribute 'mu4e-header-face nil :font (face-attribute 'default :font) :height 100)
  ;; Default faces (may be overridden with header filter, see below)
  (set-face-attribute 'mu4e-header-face nil :height 100 :foreground "light cyan")
  (set-face-attribute 'mu4e-unread-face nil :height 100 :background "firebrick" :overline t :foreground "yellow")
  (set-face-attribute 'mu4e-draft-face nil :height 100 :background "dark blue" :foreground "white")
  (set-face-attribute 'mu4e-replied-face nil :height 100 :background "dark magenta" :foreground "cyan")
  (set-face-attribute 'mu4e-forwarded-face nil :height 100 :foreground "dark green" :foreground "cyan")
  (set-face-attribute 'mu4e-flagged-face nil :height 100 :foreground "orange")
  (set-face-attribute 'mu4e-header-highlight-face nil :height 100 :background "orange" :foreground "black")
  (set-face-attribute 'mu4e-modeline-face nil :height 100 :background "dark red" :foreground "orange")
  (set-face-attribute 'mu4e-footer-face nil :height 100 :background "dark gray" :foreground "white")
  (set-face-attribute 'mu4e-compose-separator-face nil :height 100 :background "light green" :foreground "red")
  (set-face-attribute 'mu4e-cited-1-face nil :foreground "#0077ff" :slant 'italic)
  (set-face-attribute 'mu4e-cited-2-face nil :foreground "#007788" :slant 'italic)
  (set-face-attribute 'mu4e-cited-3-face nil :foreground "#007744" :slant 'italic)
  (set-face-attribute 'mu4e-cited-4-face nil :foreground "#007700" :slant 'italic)
  (set-face-attribute 'mu4e-cited-5-face nil :foreground "#0000ff" :slant 'italic)
  (set-face-attribute 'mu4e-cited-6-face nil :foreground "#000088" :slant 'italic)
  (set-face-attribute 'mu4e-cited-7-face nil :foreground "#000044" :slant 'italic)
  ;; Threads
  (setq mu4e-headers-thread-child-prefix '(" L  " . " │  ")
        mu4e-headers-thread-connection-prefix '(" |  " . " │  ")
        mu4e-headers-thread-duplicate-prefix '(" =  " . " ≡  ")
        mu4e-headers-thread-first-child-prefix '(" L  " . " ⚬  ")
        mu4e-headers-thread-last-child-prefix '(" └─ " . " └─ "))
  ;; Flag
  (setq mu4e-headers-flagged-mark   `("F" . "⚠"))
  (setq mu4e-headers-trashed-mark   `("T" . "♻"))
  (setq mu4e-headers-attach-mark    `("a" . "⚓"))
  (setq mu4e-headers-encrypted-mark `("x" . "㊙"))
  (setq mu4e-headers-signed-mark    '("s" . "☡"))
  (setq mu4e-headers-unread-mark    `("u" . "⚑"))
  (setq mu4e-headers-new-mark       '("N" . "✓"))
  (setq mu4e-headers-draft-mark     '("D" . "✎"))
  (setq mu4e-headers-passed-mark    '("P" . "→"))
  (setq mu4e-headers-replied-mark   '("R" . "↰"))
  (setq mu4e-headers-seen-mark      '("S" . ""))
)

(use-package mu4e
 :defer t
 :config
 (setq mu4e-maildir-shortcuts
    '((:maildir "/CNRS/Inbox" :key ?i)
      (:maildir "/CNRS/SentMail" :key ?s)
      (:maildir "/CNRS/Trash" :key ?t)
      (:maildir "/CNRS/Drafts" :key ?d)
      (:maildir "/CNRS_archive/Inbox" :key ?j)
      (:maildir "/CNRS_archive/SentMail" :key ?r)
      (:maildir "/CEA_archive/Inbox" :key ?J)
      (:maildir "/CEA_archive/SentMail" :key ?R)
      (:maildir "/SFR/Inbox" :key ?I)
      (:maildir "/SFR/SentMail" :key ?S))
  )
;; Search for sender (shortcut x)
(defun search-for-sender (msg)
  "Search for messages sent by the sender of the message at point."
  (mu4e-headers-search
   (concat "from:" (cdar (mu4e-message-field msg :from)))))
  (add-to-list 'mu4e-view-actions
   '("xsearch for sender" . search-for-sender) t)
;; Add action to show the local filename of the message
(defun my-show-filename (msg)
  (kill-new (mu4e-message-field msg :path))
  )
(add-to-list 'mu4e-view-actions
             '("filename in kill-ring" . my-show-filename))
(add-to-list 'mu4e-headers-actions
             '("filename in kill-ring" . my-show-filename))
 )

(use-package mu4e
 :defer t
 :config
  (makunbound 'mu4e-bookmarks)
  ;; CEA/CNRS bookmarks
  (defvar mu4e-bookmarks
    `( ,(make-mu4e-bookmark
     :name  "Inbox @Home (SFR)"
     :query "maildir:/SFR/Inbox OR maildir:/SFR_archive/Inbox"
     :key ?I)))
  (add-to-list 'mu4e-bookmarks
    (make-mu4e-bookmark
     :name  "Last 7 days @Home (SFR)"
     :query "maildir:/SFR/Inbox AND date:7d..now"
     :key ?W) )
  (add-to-list 'mu4e-bookmarks
    (make-mu4e-bookmark
     :name  "Unread @Home (SFR)"
     :query "(maildir:/SFR/Inbox OR maildir:/SFR_archive/Inbox) AND flag:unread"
     :key ?U) )
  (add-to-list 'mu4e-bookmarks
    (make-mu4e-bookmark
     :name  "Big messages @Work (CEA, CNRS)"
     :query "(maildir:/CNRS/Inbox OR maildir:/CNRS_archive/Inbox) AND size:5M..500M"
     :key ?b) )
  (add-to-list 'mu4e-bookmarks
    (make-mu4e-bookmark
     :name  "With attachment @Work (CEA, CNRS)"
     :query "(maildir:/CNRS/Inbox OR maildir:/CNRS_archive/Inbox) AND flag:attach"
     :key ?a) )
  (add-to-list 'mu4e-bookmarks
    (make-mu4e-bookmark
     :name  "Last 7 days @Work (CEA, CNRS)"
     :query "maildir:/CNRS/Inbox AND date:7d..now"
     :key ?w) )
  (add-to-list 'mu4e-bookmarks
    (make-mu4e-bookmark
     :name  "Inbox @Work (CEA, CNRS)"
     :query "maildir:/CNRS/Inbox"
     :key ?i) )
  (add-to-list 'mu4e-bookmarks
    (make-mu4e-bookmark
     :name  "Today @Work (CEA, CNRS)"
     :query "maildir:/CNRS/Inbox AND date:today..now"
     :key ?t) )
  (add-to-list 'mu4e-bookmarks
    (make-mu4e-bookmark
     :name  "Unread @Work (CEA, CNRS)"
     :query "maildir:/CNRS/Inbox AND flag:unread"
     :key ?u) )
  )

(use-package mu4e
 :defer t
 :config
 (setq mu4e-save-multiple-attachments-without-asking t)
 ;; Attachment cleaning function
 (defun mu4e-remove-attachments (msg)
   "Remove attachment without saving them"
   (interactive)
   (let* ((path (shell-quote-argument (mu4e-message-field msg :path)))
          (command (format "altermime --input=%s --removeall" path)))
    (shell-command command))
    ;;(mu4e-mark-at-point 'something nil)
  )
  (add-to-list 'mu4e-headers-actions
   '("remove-all-attachments" . mu4e-remove-attachments) t)
)

(require 'gnus-dired)
(defun gnus-dired-mail-buffers ()
  "Return a list of active message buffers."
  (let (buffers)
    (save-current-buffer
      (dolist (buffer (buffer-list t))
        (set-buffer buffer)
        (when (and (derived-mode-p 'message-mode)
                   (null message-sent-message-via))
          (push (buffer-name buffer) buffers))))
    (nreverse buffers)))
(setq gnus-dired-mail-mode 'mu4e-user-agent)
(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)

  (defun message-attachment-present-p ()
    "Return t if an attachment is found in the current message."
    (save-excursion
      (save-restriction
        (widen)
        (goto-char (point-min))
        (when (search-forward "<#part" nil t) t))))
  (defcustom message-attachment-intent-re
    (regexp-opt '("attach"
                  "attached"
                  "joint"
                  "joins"
                  "PDF"
                  "attachment"))
    "A regex which - if found in the message, and if there is no
attachment - should launch the no-attachment warning.")
  (defcustom message-attachment-reminder
    "Are you sure you want to send this message without any attachment? "
    "The default question asked when trying to send a message
containing `message-attachment-intent-re' without an
actual attachment.")
  (defun message-warn-if-no-attachments ()
    "Ask the user if s?he wants to send the message even though
there are no attachments."
    (when (and (save-excursion
                 (save-restriction
                   (widen)
                   (goto-char (point-min))
                   (re-search-forward message-attachment-intent-re nil t)))
               (not (message-attachment-present-p)))
      (unless (y-or-n-p message-attachment-reminder)
        (keyboard-quit))))
  ;; add hook to message-send-hook (so also works with gnus)
  (add-hook 'message-send-hook #'message-warn-if-no-attachments)

(use-package mu4e
  :defer t
  :config
  ;; Allows reading other emails while composing
  (setq mu4e-compose-in-new-frame t)
  ;; Please don't ever include me when I reply...
  (setq mu4e-compose-dont-reply-to-self t)
  ;; Signature
  (setq mu4e-compose-signature-auto-include nil)
  ;; Don't save message to Sent Messages, IMAP takes care of this
  (setq mu4e-sent-messages-behavior 'delete)
  (add-hook 'mu4e-compose-mode-hook #'(lambda () (auto-save-mode -1)))
  ;; Citation
  (setq message-citation-line-function 'message-insert-formatted-citation-line)
  ;; Confirmation before sending
  (add-hook 'message-send-hook
    (lambda ()
      (unless (yes-or-no-p "Sure you want to send this?")
        (signal 'quit nil))))
  ;; Spell check
  (add-hook 'mu4e-compose-mode-hook
    (defun my-do-compose-stuff ()
     "My settings for message composition."
     (set-fill-column 80)
     (flyspell-mode)))
)

(use-package mu4e
 :defer t
 :config
 (require 'smtpmail)
 (setq
    message-send-mail-function 'smtpmail-send-it
    smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg")
    smtpmail-stream-type 'starttls
    smtpmail-smtp-service 587
    ;; Errors
    smtpmail-debug-info t
    auth-source-debug t
    auth-source-do-cache nil
  )
)

   (use-package mu4e
    :defer t
    :config
    (setq mu4e-context-policy 'pick-first)
    (if (string= (system-name) "Birdland") () (require 'org-msg))
    ;; Work (in English)
    (setq mu4e-contexts 
       `( ,(make-mu4e-context
            :name "Work"
            :enter-func (lambda () (mu4e-message "Work (EN) context")
                         (setq mu4e-sent-messages-behavior 'sent))
            :leave-func (lambda () 
              (setq mu4e-maildir-list nil)) 
            :vars 
              '((user-mail-address . "xxxxxxxx.xxxxxxxx@cnrs.fr")
                (user-full-name . "Frédéric Galliano")
                (mu4e-reply-to-address . "xxxxxxxx.xxxxxxxx@cnrs.fr")
                (mu4e-compose-reply-to-address . "xxxxxxxx.xxxxxxxx@cnrs.fr")
                (mu4e-sent-folder .  "/CNRS/SentMail")
                (mu4e-drafts-folder . "/CNRS/Drafts")
                (mu4e-trash-folder . "/CNRS/Trash")
                (smtpmail-default-smtp-server . "smtp.cnrs.fr")
                (smtpmail-local-domain . "cnrs.fr")
                (smtpmail-smtp-user . "xxxxxxxx.xxxxxxxx@ods.services")
                (smtpmail-smtp-server . "smtp.cnrs.fr")
                (message-citation-line-format . "On %a %d %b %Y à %R, %n wrote:\n")
                (message-signature-file . "~/ownCloud/Settings/Emacs/email_signature_CEA.txt")
                (org-msg-greeting-fmt . "\nDear%s,\n\n")
                (org-msg-signature . "\n\nBest regards,\n\n#+begin_signature\n-----\n*Frédéric GALLIANO*\n\nDépartement D'Astrophysique (DAp)\\\\\nAstrophysique Instrumentation Modélisation (AIM, UMR 7158)\\\\\nLaboratoire Formation d'Étoiles et Milieu Interstellaire (LFEMI)\\\\\nOrme des Merisiers, bldg 709, room 265, CEA Saclay\\\\\n91191 Gif-sur-Yvette, FRANCE\n\n- Phone: +33-1-69-08-18-21\n- Email: [[mailto:xxxxxxxx.xxxxxxxx@cea.fr][xxxxxxxx.xxxxxxxx@cea.fr]]\n- Web: http://irfu.cea.fr/Pisp/xxxxxxxx.xxxxxxxx/\n-----\n#+end_signature")
                ))
       ;; Travail (in French)   
       ,(make-mu4e-context
            :name "Travail"
            :enter-func (lambda () (mu4e-message "Work (FR) context")
                         (setq mu4e-sent-messages-behavior 'sent))
            :leave-func (lambda () 
              (setq mu4e-maildir-list nil)) 
            :vars 
              '((user-mail-address . "xxxxxxxx.xxxxxxxx@cnrs.fr")
                (user-full-name . "Frédéric Galliano")
                (mu4e-reply-to-address . "xxxxxxxx.xxxxxxxx@cnrs.fr")
                (mu4e-compose-reply-to-address . "xxxxxxxx.xxxxxxxx@cnrs.fr")
                (mu4e-sent-folder .  "/CNRS/SentMail")
                (mu4e-drafts-folder . "/CNRS/Drafts")
                (mu4e-trash-folder . "/CNRS/Trash")
                (smtpmail-default-smtp-server . "smtp.cnrs.fr")
                (smtpmail-local-domain . "cnrs.fr")
                (smtpmail-smtp-user . "xxxxxxxx.xxxxxxxx@ods.services")
                (smtpmail-smtp-server . "smtp.cnrs.fr")
                (message-citation-line-format . "Le %a %d %b %Y à %R, %n a écrit:\n")
                (message-signature-file . "~/ownCloud/Settings/Emacs/email_signature_CEA.txt")
                (org-msg-greeting-fmt . "\nBonjour%s,\n\n")
                (org-msg-signature . "\n\nSincèrement,\n\n#+begin_signature\n-----\n*Frédéric GALLIANO*\n\nDépartement D'Astrophysique (DAp)\\\\\nAstrophysique Instrumentation Modélisation (AIM, UMR 7158)\\\\\nLaboratoire Formation d'Étoiles et Milieu Interstellaire (LFEMI)\\\\\nOrme des Merisiers, bât. 709, pièce 265, CEA Saclay\\\\\n91191 Gif-sur-Yvette\n\n- Téléphone: 01-xx-xx-xx-xx\n- Courriel: [[mailto:xxxxxxxx.xxxxxxxx@cea.fr][xxxxxxxx.xxxxxxxx@cea.fr]]\n- Page: http://irfu.cea.fr/Pisp/xxxxxxxx.xxxxxxxx/\n-----\n#+end_signature")
               ))
         ;; Home
         ,(make-mu4e-context
            :name "Maison"
            :enter-func (lambda () (mu4e-message "Home context")
                         (setq mu4e-sent-messages-behavior 'sent))
            :leave-func (lambda () 
              (setq mu4e-maildir-list nil)) :vars 
              '((user-mail-address . "xxxxxxxx.xxxxxxxx@neuf.fr")
                (user-full-name . "Frédéric Galliano")
                (mu4e-reply-to-address . "xxxxxxxx.xxxxxxxx@neuf.fr")
                (mu4e-compose-reply-to-address . "xxxxxxxx.xxxxxxxx@neuf.fr")
                (mu4e-sent-folder .  "/SFR/SentMail")
                (mu4e-drafts-folder . "/SFR/Drafts")
                (mu4e-trash-folder . "/SFR/Trash")
                (smtpmail-default-smtp-server . "smtp.sfr.fr")
                (smtpmail-local-domain . "sfr.fr")
                (smtpmail-smtp-user . "xxxxxxxx.xxxxxxxx@neuf.fr")
                (smtpmail-smtp-server . "smtp.sfr.fr")
                (message-citation-line-format . "Le %a %d %b %Y à %R, %n a écrit:\n")
                (message-signature-file . "~/ownCloud/Settings/Emacs/email_signature_SFR.txt")
                (org-msg-greeting-fmt . "\nBonjour%s,\n\n")
                (org-msg-signature . "\n\nSincèrement,\n\n#+begin_signature\n-----\n*Frédéric GALLIANO*\n\nxx, rue xxxxx xxxxxxx\\\\\n91400 ORSAY\n\n- Téléphone: 06-xx-xx-xx-xx\n- Courriel: [[mailto:xxxxxxxx.xxxxxxxx@neuf.fr][xxxxxxxx.xxxxxxxx@neuf.fr]]\n- Page: http://irfu.cea.fr/Pisp/xxxxxxxx.xxxxxxxx/\n-----\n#+end_signature")
               ))))
     (custom-set-faces 
      '(mu4e-context-face ((t (:foreground "dark green" :weight bold
                               :background "grey")))))
;;     (if (string= (system-name) "Birdland") () (org-msg-mode))
     (require 'smtpmail)
     (setq mu4e-compose-context-policy nil)
   )