maxx
/
dotfiles
1
0
Fork 0
Code Releases 0 Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
566 Commits
2 Branches
464MB
Tree: ec12e6f359
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'ec12e6f359'
${ noResults }
dotfiles/.emacs

1858 lines
51KB
Raw Blame History 

  1. ;;; Use-package

  2. 

  3. ;; Use package and melpa as source

  4. (require 'package)

  5. (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

  6. (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/"))

  7. (setq package-enable-at-startup nil)

  8. (package-initialize)

  9. 

  10. ;; use-package

  11. (setq-default

  12.  use-package-always-ensure t

  13.  use-package-expand-minimally t

  14.  use-package-verbose nil

  15.  use-package-enable-imenu-support t)

  16. 

  17. (unless (package-installed-p 'use-package)

  18.   (package-refresh-contents)

  19.   (package-install 'use-package))

  20. (eval-when-compile (require 'use-package))

  21. 

  22. ;;; Custom and options

  23. ;;;; Custom file

  24. 

  25. (setq custom-file "~/Projects/dotfiles/.emacs.d/custom.el")

  26. (load custom-file)

  27. 

  28. ;;;; Options

  29. 

  30. ;;;;; Mode-line

  31. 

  32. (setq

  33.  ;; Mnemonics for eol

  34.  eol-mnemonic-unix "(Unix)"

  35.  ;; Display total size of buffer and column index

  36.  size-indication-mode t

  37.  ;; Column numbers

  38.  column-number-mode t

  39.  ;; Column numbers from 1

  40.  column-number-indicator-zero-based nil)

  41. 

  42. ;;;;; Backup

  43. 

  44. (setq

  45.  ;; delete excess backup versions silently

  46.  delete-old-versions t

  47.  ;; make backup files

  48.  make-backup-files t

  49.  ;; Use version control on backups

  50.  version-control t

  51.  ;; don't make backups file when in version controlled dir

  52.  vc-make-backup-files nil

  53.  ;; which directory to put backups file

  54.  backup-directory-alist `(("." . "~/.emacs.d/backups")

  55.                           (,tramp-file-name-regexp nil)))

  56. 

  57. ;;;;; Autosave

  58. 

  59. (setq

  60.  ;; Enable

  61.  auto-save-default t

  62.  ;; Set interval and timeout

  63.  auto-save-interval 300

  64.  auto-save-timeout 30

  65.  ;; Set directory for auto-saves

  66.  auto-save-file-name-transforms '((".*" "~/.emacs.d/auto-save/" t)))

  67. 

  68. ;;;;; Scrolling

  69. 

  70. (setq

  71.  scroll-margin 10

  72.  hscroll-margin 10

  73.  scroll-conservatively 100000

  74.  scroll-preserve-screen-position 1

  75.  hscroll-step 1

  76.  maximum-scroll-margin 0.5)

  77. 

  78. ;;;;; Disable GUI

  79. 

  80. (menu-bar-mode -1)

  81. (tool-bar-mode -1)

  82. (scroll-bar-mode -1)

  83. (blink-cursor-mode -1)

  84. (tooltip-mode -1)

  85. 

  86. (setq

  87.  inhibit-startup-screen t

  88.  inhibit-startup-message t

  89.  inhibit-startup-echo-area-message t)

  90. 

  91. ;;;;; UTF8

  92. 

  93. (setq

  94.  coding-system-for-read    'utf-8

  95.  coding-system-for-write   'utf-8)

  96. 

  97. ;; Prefer UTF-8

  98. (prefer-coding-system       'utf-8)

  99. (set-default-coding-systems 'utf-8)

  100. (set-terminal-coding-system 'utf-8)

  101. (set-keyboard-coding-system 'utf-8)

  102. 

  103. ;;;;; Set proxy at work

  104. 

  105. (when (equal (system-name) "hegp")

  106.   (setq url-proxy-services '(("no_proxy" . "127.0.0.1")

  107.                              ("http" . "proxym-inter.aphp.fr:8080")

  108.                              ("https" . "proxym-inter.aphp.fr:8080"))))

  109. 

  110. ;;;;; Misc

  111. 

  112. ;; Stop warning when using narrow

  113. (put 'narrow-to-region 'disabled nil)

  114. 

  115. (setq

  116.  initial-scratch-message ""

  117.  fill-column 100

  118.  ;; Kill debug windows after use

  119.  debugger-bury-or-kill 'kill

  120.  ;; Scroll smoothly with mouse

  121.  mouse-wheel-scroll-amount '(2 ((shift) . 1) ((control)))

  122.  ;; Indent two spaces

  123.  standard-indent 2

  124.  ;; don't ask for confirmation when opening symlinked file

  125.  vc-follow-symlinks t

  126.  ;; silent bell when you make a mistake

  127.  ring-bell-function 'ignore

  128.  ;; Identity

  129.  user-full-name "Maxime Wack"

  130.  ;; GC and file size limits

  131.  gc-cons-threshold 50000000

  132.  large-file-warning-threshold 100000000

  133.  ;; Filename in title

  134.  frame-title-format

  135.  '((:eval (if (buffer-file-name)

  136.               (abbreviate-file-name (buffer-file-name))

  137.             "%b"))))

  138. 

  139. (setq-default

  140.  ;; Show empty lines at the end of the buffer

  141.  indicate-empty-lines t

  142.  ;; Spaces for indent

  143.  tab-width 2

  144.  ;; Don't use tabs in indentation

  145.  indent-tabs-mode nil)

  146. 

  147. ;; Add for emacs server

  148. (add-to-list 'default-frame-alist '(font . "FiraEmacs 10"))

  149. (add-to-list 'default-frame-alist '(alpha . (85 . 95)))

  150. 

  151. ;; Set transparency

  152. (set-frame-parameter (selected-frame) 'alpha '(85 . 95))

  153. 

  154. ;; Font

  155. (unless (equal (system-name) "hegp")

  156.   (set-frame-font "FiraEmacs 10" nil t))

  157. 

  158. ;; Replace yes/no with y/n

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

  160. 

  161. ;; Disable package-selected-packages

  162. (defun package--save-selected-packages (&rest opt) nil)

  163. 

  164. ;;; Packages

  165. ;;;; Keys

  166. ;;;;; General

  167. 

  168. ;; Kill all unmodified buffers

  169. (defun maxx/kill-unmodified-buffers ()

  170.   (interactive)

  171.   (seq-do 'kill-buffer

  172.           (seq-filter (lambda (x) (not (buffer-modified-p x))) (buffer-list))))

  173. 

  174. (use-package general

  175.   :demand

  176.   :config

  177.   (general-create-definer spcleader

  178.     :states '(normal visual insert emacs)

  179.     :prefix "SPC"

  180.     :non-normal-prefix "M-SPC")

  181. 

  182.   (spcleader

  183.     "RET" 'eval-defun

  184.     "|"   'shell-command-on-region

  185.     "."   'eval-expression

  186.     "k"   'kill-buffer-and-window

  187.     "$"   '((lambda () (interactive) (find-file "~/.emacs")) :which-key "open config")

  188.     "#"   '((lambda () (interactive) (load-file "~/.emacs")) :which-key "reload config")

  189.     "l"   'reposition-window

  190.     "W"   '(count-words-region :which-key "word count")

  191.     "w"   'toggle-truncate-lines)

  192. 

  193.   (spcleader

  194.     "K"   '(:ignore t :which-key "Kill buffers")

  195.     "Kk"  'kill-some-buffers

  196.     "Km"  '(maxx/kill-unmodified-buffers :which-key "Kill unmodified"))

  197. 

  198.   (spcleader

  199.     "n"  '(:ignore t :which-key "Narrow")

  200.     "nr" 'narrow-to-region

  201.     "np" 'narrow-to-page

  202.     "nf" 'narrow-to-defun

  203.     "nc" 'polymode-toggle-chunk-narrowing

  204.     "nw" 'widen)

  205. 

  206.   (spcleader

  207.     "m" '(:ignore t :which-key "Modes")

  208.     "mo" 'org-mode

  209.     "mm" 'mu4e

  210.     "me" 'eshell

  211.     "mc" 'calc

  212.     "mC" 'calendar

  213.     "mr" 'ess-r-mode))

  214. 

  215. ;;;;; Hydra

  216. 

  217. (use-package hydra)

  218. 

  219. ;;;;; Evil

  220. ;;;;;; Evil

  221. 

  222. (use-package evil

  223.   :demand

  224.   :config

  225.   (evil-mode t)

  226.   (setq evil-want-integration nil

  227.         evil-want-keybinding nil

  228.         evil-want-Y-yank-to-eol t

  229.         ;; Colored cursors based on evil-state

  230.         evil-emacs-state-cursor    '("red" box)

  231.         evil-normal-state-cursor   '("green" box)

  232.         evil-visual-state-cursor   '("orange" box)

  233.         evil-insert-state-cursor   '("red" bar)

  234.         evil-replace-state-cursor  '("red" bar)

  235.         evil-operator-state-cursor '("red" hollow)

  236.         ;; use NORMAL mode/state EVERYWHERE by default

  237.         evil-default-state 'normal

  238.         evil-motion-state-modes nil

  239.         evil-normal-state-modes nil

  240.         evil-insert-state-modes nil

  241.         ;; Use emacs state in these selected modes

  242.         evil-emacs-state-modes nil

  243.         ;; and don't let modes override the INSERT state (!)

  244.         evil-overriding-maps nil

  245.         evil-intercept-maps nil)

  246. 

  247.   ;; Set alias w/W to save-buffer (to continue using :w to save)

  248.   (defalias 'w 'save-buffer)

  249.   (defalias 'W 'save-buffer)

  250. 

  251.   (defhydra hydra-window (:color red :timeout .3)

  252.     "Windows"

  253.     ("t" evil-window-left)

  254.     ("T" evil-window-move-far-left)

  255.     ("s" evil-window-down)

  256.     ("S" evil-window-move-very-bottom)

  257.     ("d" evil-window-up)

  258.     ("D" evil-window-move-very-top)

  259.     ("r" evil-window-right)

  260.     ("R" evil-window-move-far-right)

  261.     ("+" (evil-window-increase-height 4))

  262.     ("-" (evil-window-decrease-height 4))

  263.     ("/" (evil-window-decrease-width 4))

  264.     ("*" (evil-window-increase-width 4))

  265.     ("=" (balance-windows))

  266.     ("h" evil-window-split)

  267.     ("v" evil-window-vsplit)

  268.     ("c" evil-window-delete)

  269.     ("o" delete-other-windows)

  270.     ("é" nil "Cancel"))

  271. 

  272.   :general

  273.   (:states 'visual

  274.    "l"     'evil-delete

  275.    "H"     'evil-change

  276.    "J"     'evil-join)

  277. 

  278.   (:states '(visual normal motion emacs)

  279.    "é"     'hydra-window/body)

  280. 

  281.   (:states '(normal motion)

  282.    "t"     'evil-backward-char

  283.    "s"     'evil-next-visual-line

  284.    "d"     'evil-previous-visual-line

  285.    "r"     'evil-forward-char

  286.    "T"     'evil-window-top

  287.    "S"     'evil-scroll-down

  288.    "D"     'evil-scroll-up

  289.    "R"     'evil-window-bottom

  290.    "l"     'evil-delete

  291.    "L"     'evil-delete-line

  292.    "h"     'evil-replace

  293.    "H"     'evil-replace-state

  294.    "gs"    'evil-next-line

  295.    "gd"    'evil-previous-line

  296.    "M"     'evil-window-middle

  297.    "j"     'evil-find-char-to

  298.    ";"     'evil-repeat-find-char-reverse

  299.    ","     'evil-repeat-find-char

  300.    "/"     'counsel-grep-or-swiper

  301.    "÷"     'evil-ex

  302.    "zt"    'evil-close-fold

  303.    "zT"    'evil-close-folds

  304.    "zr"    'evil-open-fold

  305.    "zR"    'evil-open-folds

  306.    "za"    '(lambda () (interactive)

  307.               (hs-life-goes-on

  308.                (if (hs-already-hidden-p)

  309.                    (progn

  310.                      (hs-show-block)

  311.                      (hs-hide-level 1))

  312.                  (hs-hide-block))))

  313.    "zA"    'evil-toggle-fold

  314.    "gt"    'previous-buffer

  315.    "gr"    'next-buffer

  316.    "C-s"   'evil-scroll-line-down

  317.    "C-d"   'evil-scroll-line-up

  318.    "C-o"   'evil-jump-backward)

  319. 

  320.   (:states 'insert

  321.    "C-r"   'counsel-yank-pop

  322.    "C-u"   'counsel-unicode-char

  323.    "_"     'self-insert-command))

  324. 

  325. ;;;;;; Evil-numbers

  326. 

  327. (use-package evil-numbers

  328.   :general

  329.   (:states '(normal motion)

  330.    "+"     'evil-numbers/inc-at-pt

  331.    "-"     'evil-numbers/dec-at-pt))

  332. 

  333. ;;;;;; Evil-escape

  334. 

  335. (use-package evil-escape

  336.   :config

  337.   (evil-escape-mode t)

  338.   (setq-default evil-escape-key-sequence "ii"

  339.                 evil-escape-delay 0.2))

  340. 

  341. ;;;;;; Evil-commentary

  342. 

  343. (use-package evil-commentary

  344.   :demand

  345.   :config

  346.   (evil-commentary-mode t)

  347. 

  348.   :general

  349.   (:states 'normal

  350.    "gcc"   'evil-commentary-line))

  351. 

  352. ;;;;;; Evil-surround

  353. 

  354. (use-package evil-surround

  355.   :config

  356.   (global-evil-surround-mode))

  357. 

  358. ;;;;;; Evil-lion

  359. 

  360. (use-package evil-lion

  361.   :general

  362.   (spcleader

  363.     "a" 'evil-lion-left

  364.     "A" 'evil-lion-right))

  365. 

  366. ;;;;; Which-key

  367. 

  368. (use-package which-key

  369.   :config

  370.   (which-key-mode t)

  371.   (setq which-key-allow-evil-operators t))

  372. 

  373. ;;;; Basics

  374. ;;;;; Built-in

  375. ;;;;;; Package

  376. 

  377. (use-package package

  378.   :general

  379.   (:keymaps 'package-menu-mode-map

  380.    :states  'normal

  381.    "q"      'kill-buffer-and-window

  382.    "x"      'package-menu-execute))

  383. 

  384. ;;;;;; Custom

  385. 

  386. (use-package cus-edit

  387.   :ensure nil

  388.   :config

  389.   (add-to-list 'evil-emacs-state-modes 'Custom-mode))

  390. 

  391. ;;;;;; Ediff

  392. 

  393. (use-package ediff

  394.   :config

  395.   (setq ediff-merge-split-window-function 'split-window-vertically

  396.         ediff-window-setup-function 'ediff-setup-windows-plain)

  397.   (add-to-list 'evil-emacs-state-modes 'ediff-mode))

  398. 

  399. ;;;;;; Debugger

  400. 

  401. (use-package debug

  402.   :demand

  403.   :config

  404.   (add-to-list 'evil-emacs-state-modes 'debugger-mode))

  405. 

  406. ;;;;;; Paren

  407. 

  408. (use-package paren

  409.   :config

  410.   (show-paren-mode t)

  411.   (setq show-paren-delay 0))

  412. 

  413. ;;;;;; Flyspell

  414. 

  415. (use-package flyspell

  416.   :general

  417.   (spcleader

  418.     "s"  '(:ignore t :which-key "Flyspell")

  419.     "ss" 'flyspell-goto-next-error

  420.     "sd" 'flyspell-check-previous-highlighted-word

  421.     "sc" 'ispell-word

  422.     "sf" '((lambda () (interactive) (ispell-change-dictionary "francais") (flyspell-buffer)) :which-key "Switch to French")

  423.     "sa" '((lambda () (interactive) (ispell-change-dictionary "american") (flyspell-buffer)) :which-key "Switch to American"))

  424. 

  425.   (:states 'insert

  426.    "C-s"   'flyspell-check-previous-highlighted-word)

  427. 

  428.   :hook (prog-mode . flyspell-prog-mode))

  429. 

  430. ;;;;;; Tar-mode

  431. 

  432. (use-package tar-mode

  433.   :general

  434.   (:keymaps 'tar-mode-map

  435.    :states  'normal

  436.    "RET"    'tar-extract-other-window))

  437. 

  438. ;;;;;; Whitespace

  439. 

  440. (use-package whitespace

  441.   :config

  442.   (setq whitespace-style

  443.         '(face

  444.           tabs

  445.           spaces

  446.           trailing

  447.           empty

  448.           space-mark

  449.           tab-mark

  450.           ))

  451. 

  452.   :hook (before-save . whitespace-cleanup))

  453. 

  454. ;;;;;; Info

  455. 

  456. (use-package info

  457.   :general

  458.   (:keymaps 'Info-mode-map

  459.    :states  'normal

  460.    "ð"      'Info-backward-node

  461.    "ß"      'Info-forward-node

  462.    "Þ"      'Info-up

  463.    "þ"      'Info-up

  464.    "q"      'Info-exit

  465.    "ẞ"      'Info-next

  466.    "Ð"      'Info-prev

  467.    "gr"     'Info-history-forward

  468.    "gt"     'Info-history-back

  469.    "s"      'evil-scroll-line-down

  470.    "d"      'evil-scroll-line-up))

  471. 

  472. ;;;;;; Highlight line

  473. 

  474. (use-package hl-line

  475.   :config

  476.   (global-hl-line-mode t)

  477. 

  478.   :custom-face

  479.   (hl-line ((t (:background "gray10")))))

  480. 

  481. ;;;;;; Simple

  482. 

  483. (use-package simple

  484.   :ensure nil

  485.   :config

  486.   (global-visual-line-mode t)

  487. 

  488.   :custom-face

  489.   (italic ((t (:family "Fira Code Italic"

  490.                :foundry "Fira Code Italic")))))

  491. 

  492. ;;;;;; Revert

  493. 

  494. (use-package autorevert

  495.   :config

  496.   (global-auto-revert-mode t))

  497. 

  498. ;;;;;; Elisp

  499. 

  500. (use-package elisp-mode

  501.   :ensure nil

  502.   :config

  503.   ;; No size limit to output in elisp mode

  504.   (setq eval-expression-print-length nil)

  505. 

  506.   :general

  507.   (:keymaps 'emacs-lisp-mode-map

  508.    :states  'normal

  509.    "RET"    'eval-defun)

  510. 

  511.   (:keymaps 'emacs-lisp-mode-map

  512.    :states  'insert

  513.    [(control return)] 'eval-print-last-sexp)

  514. 

  515.   (:keymaps 'emacs-lisp-mode-map

  516.    :states  'visual

  517.    "RET"    '(lambda (start end)

  518.                (interactive "r")

  519.                (eval-region start end t))))

  520. 

  521. ;;;;;; Help

  522. 

  523. (use-package help-mode

  524.   :ensure nil

  525.   :config

  526.   (add-to-list 'display-buffer-alist '("*Help*"

  527.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  528.                                        (side . left)

  529.                                        (window-width . 80)

  530.                                        (reusable-frames . nil)))

  531. 

  532.   :general

  533.   (spcleader

  534.     "h"  '(:ignore t :which-key "Help")

  535.     "hh" 'help-for-help

  536.     "ha" 'apropos-command

  537.     "hb" 'counsel-descbinds

  538.     "hv" 'counsel-describe-variable

  539.     "hf" 'counsel-describe-function

  540.     "ho" 'helpful-at-point

  541.     "hm" 'describe-mode

  542.     "hp" 'finder-by-keyword

  543.     "hP" 'describe-package

  544.     "hk" 'helpful-key

  545.     "hK" 'Info-goto-emacs-key-command-node

  546.     "hi" 'info

  547.     "hF" 'counsel-faces

  548.     "hc" 'counsel-colors-emacs

  549.     "hL" 'describe-language-environment)

  550. 

  551.   (:keymaps 'help-mode-map

  552.    :states  'normal

  553.    "TAB"    'forward-button

  554.    "q"      'kill-buffer-and-window

  555.    "P"      'help-go-back

  556.    "N"      'help-go-forward)

  557. 

  558.   :hook (help-mode . (lambda ()

  559.                        (setq buffer-face-mode-face '(:background "#102030"))

  560.                        (buffer-face-mode 1))))

  561. 

  562. ;;;;;; Markdown

  563. 

  564. (use-package markdown-mode

  565.   :config

  566.   (setq markdown-asymmetric-header t)

  567.   :custom-face

  568.   (markdown-header-face-1 ((t (:inherit 'outline-1))))

  569.   (markdown-header-face-2 ((t (:inherit 'outline-2))))

  570.   (markdown-header-face-3 ((t (:inherit 'outline-3))))

  571.   (markdown-header-face-4 ((t (:inherit 'outline-4))))

  572.   (markdown-header-face-5 ((t (:inherit 'outline-5))))

  573.   (markdown-bold-face ((t (:foreground "#ede0ce"))))

  574.   (markdown-italic-face ((t (:foreground "#ede0ce"))))

  575.   (markdown-header-delimiter-face ((t (:foreground "gray30")))))

  576. 

  577. ;;;;;; Eshell

  578. 

  579. ;; eshell-mode-map is not populated outside of eshell

  580. ;; So we need to define bindings in a hook

  581. (defun maxx/eshell-keys ()

  582.   (evil-define-key*

  583.    'insert

  584.    eshell-mode-map

  585.    "ð" 'eshell-previous-matching-input-from-input

  586.    "ß" 'eshell-next-matching-input-from-input

  587.    "þ" 'eshell-backward-argument

  588.    "®" 'eshell-forward-argument

  589.    "Þ" 'eshell-kill-input

  590.    "Ð" 'eshell-previous-prompt

  591.    "ẞ" 'eshell-next-prompt

  592.    "C-l" 'eshell/clear)

  593.   )

  594. 

  595. (use-package eshell

  596.   :config

  597.   (setq eshell-scroll-to-bottom-on-input t)

  598.   (add-to-list 'evil-insert-state-modes 'eshell-mode)

  599. 

  600.   :hook (eshell-first-time-mode . maxx/eshell-keys))

  601. 

  602. ;;;;;; Zoom

  603. 

  604. (use-package face-remap

  605.   :config

  606. 

  607.   (defhydra hydra-zoom (:color red)

  608.     "Zoom"

  609.     ("+" text-scale-increase)

  610.     ("-" text-scale-decrease)

  611.     ("/" (text-scale-adjust 0) "Reset"))

  612. 

  613.   :general

  614.   (:states 'normal

  615.    "C-+"   'hydra-zoom/text-scale-increase

  616.    "C--"   'hydra-zoom/text-scale-decrease

  617.    "C-/"   '(lambda () (interactive) (text-scale-adjust 0))))

  618. 

  619. ;;;;;; Calc

  620. 

  621. (use-package calc

  622.   :config

  623.   (add-to-list 'evil-emacs-state-modes 'calc-mode))

  624. 

  625. ;;;;;; Calendar

  626. 

  627. (use-package calendar

  628.   :config

  629.   (calendar-set-date-style 'iso)

  630.   (setq holiday-french-holidays

  631.         `((holiday-fixed 1 1      "Jour de l'an")

  632.           (holiday-fixed 1 6      "Épiphanie")

  633.           (holiday-fixed 2 2      "Chandeleur")

  634.           (holiday-fixed 2 14     "Saint Valentin")

  635.           (holiday-fixed 5 1      "Fête du travail")

  636.           (holiday-fixed 5 8      "Commémoration de la capitulation de l'Allemagne en 1945")

  637.           (holiday-fixed 6 21     "Fête de la musique")

  638.           (holiday-fixed 7 14     "Fête nationale - Prise de la Bastille")

  639.           (holiday-fixed 8 15     "Assomption (Religieux)")

  640.           (holiday-fixed 11 11    "Armistice de 1918")

  641.           (holiday-fixed 11 1     "Toussaint")

  642.           (holiday-fixed 11 2     "Commémoration des fidèles défunts")

  643.           (holiday-fixed 12 25    "Noël")

  644.           ;; fetes a date variable

  645.           (holiday-easter-etc 0   "Pâques")

  646.           (holiday-easter-etc 1   "Lundi de Pâques")

  647.           (holiday-easter-etc 39  "Ascension")

  648.           (holiday-easter-etc 49  "Pentecôte")

  649.           (holiday-easter-etc -47 "Mardi gras")

  650.           (holiday-float 5 0 4    "Fête des mères")

  651.           (holiday-float 6 0 3    "Fête des pères")))

  652. 

  653.   (setq calendar-week-start-day 1

  654.         calendar-holidays holiday-french-holidays

  655.         calendar-mark-holidays-flag t

  656.         calendar-mark-diary-entries-flag t

  657.         calendar-view-diary-initially-flag t

  658.         calendar-view-holidays-initially-flag t

  659.         calendar-left-margin 4)

  660. 

  661.   (add-to-list 'display-buffer-alist '("^\\*Calendar\\*"

  662.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  663.                                        (side . top)

  664.                                        (window-height . 12)

  665.                                        (reusable-frames . nil)))

  666. 

  667.   :general

  668.   (:keymaps 'calendar-mode-map

  669.    :states  'normal

  670.    "q"      'calendar-exit

  671.    "RET"    'diary-view-entries

  672.    "ð"      'calendar-backward-week

  673.    "ß"      'calendar-forward-week

  674.    "þ"      'calendar-backward-day

  675.    "®"      'calendar-forward-day

  676.    "Þ"      '(lambda ()

  677.                (interactive)

  678.                (calendar-backward-month 1)

  679.                (calendar-scroll-right))

  680.    "™"      '(lambda ()

  681.                (interactive)

  682.                (calendar-forward-month 1)

  683.                (calendar-scroll-left))

  684.    "Ð"      'calendar-backward-year

  685.    "ẞ"      'calendar-forward-year

  686.    "T"      'calendar-goto-today

  687.    "D"      'calendar-goto-date))

  688. 

  689. ;;;;;; Diary

  690. 

  691. (defun maxx/import-caldav (calendar &optional append)

  692.   "Import caldav calendar synced on disk with vdirsyncer into the diary"

  693.   (unless append

  694.     (delete-file diary-file))

  695.   (let* ((caldir (concat "~/Mail/Calendars/" calendar))

  696.         (calfiles (directory-files-recursively caldir "\.ics$")))

  697. 

  698.   (seq-do (lambda (entry) (icalendar-import-file entry diary-file))

  699.           calfiles)))

  700. 

  701. (use-package diary-lib

  702.   :config

  703.   (setq diary-number-of-entries 7

  704.         diary-file "~/Projects/diary")

  705.   (add-to-list 'display-buffer-alist '("\\*Holidays\\*"

  706.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  707.                                        (side . top)

  708.                                        (slot . 1)

  709.                                        (window-height . 12)

  710.                                        (reusable-frames . nil)))

  711.   (add-to-list 'display-buffer-alist '("\\*Fancy Diary Entries\\*"

  712.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  713.                                        (side . top)

  714.                                        (slot . -1)

  715.                                        (window-height . 12)

  716.                                        (reusable-frames . nil)))

  717. 

  718.   :hook (diary-list-entries . diary-sort-entries)

  719. 

  720.   :custom-face

  721.   (diary ((t (:foreground "black" :background "limegreen"))))

  722.   (org-agenda-diary ((t (:foreground "DarkTurquoise")))))

  723. 

  724. ;;;;;; Winner

  725. 

  726. (use-package winner

  727.   :demand

  728.   :config

  729.   (winner-mode 1)

  730. 

  731.   :general

  732.   ("C-c u" 'winner-undo

  733.    "C-c r" 'winner-redo))

  734. 

  735. ;;;;;; Dired

  736. 

  737. (use-package dired

  738.   :ensure nil

  739.   :config

  740.   (setq wdired-allow-to-change-permissions t)

  741. 

  742.   :general

  743.   (:keymaps 'dired-mode-map

  744.    :states  'normal

  745.    "d"      'dired-previous-line

  746.    "s"      'dired-next-line

  747.    "S"      'dired-sort-toggle-or-edit

  748.    "t"      'dired-up-directory

  749.    "r"      'dired-find-file

  750.    "SPC"    'dired-mark

  751.    "X"      'dired-do-flagged-delete

  752.    "x"      'dired-flag-file-deletion

  753.    "W"      'wdired-change-to-wdired-mode

  754.    "q"      'kill-buffer-and-window))

  755. 

  756. ;;;;;; Tramp

  757. 

  758. (use-package tramp

  759.   :config

  760.   (setq tramp-terminal-type "tramp"

  761.         tramp-default-method "sshx"))

  762. 

  763. ;;;;;; Subword

  764. 

  765. (use-package subword

  766.   :config

  767.   ;; Word commands understand camelCase

  768.   (subword-mode))

  769. 

  770. ;;;;;; Hideshow

  771. 

  772. (use-package hideshow

  773.   :hook (prog-mode . hs-minor-mode))

  774. 

  775. ;;;;;; Minibuffer

  776. 

  777. (use-package minibuffer

  778.   :ensure nil

  779.   :general

  780.   (:keymaps 'read-expression-map

  781.    "ð"      'previous-line-or-history-element

  782.    "ß"      'next-line-or-history-element))

  783. 

  784. ;;;;; Undo-tree

  785. 

  786. (use-package undo-tree

  787.   :demand

  788.   :config

  789.   (global-undo-tree-mode)

  790.   (setq undo-tree-auto-save-history t

  791.         undo-tree-history-directory-alist '(("." . "~/.emacs.d/undo"))

  792.         undo-tree-enable-undo-in-region nil)

  793. 

  794.   (add-to-list 'display-buffer-alist '("*undo-tree"

  795.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  796.                                        (side . left)

  797.                                        (window-width . 0.15)

  798.                                        (reusable-frames . nil)))

  799.   :general

  800.   (spcleader

  801.     "u"     'undo-tree-visualize)

  802. 

  803.   (:keymaps 'undo-tree-visualizer-mode-map

  804.    :states  'normal

  805.    "q"      'undo-tree-visualizer-quit

  806.    "SPC u"  'undo-tree-visualizer-quit

  807.    "d"      'undo-tree-visualize-undo

  808.    "s"      'undo-tree-visualize-redo

  809.    "D"      'undo-tree-visualizer-toggle-diff))

  810. 

  811. ;;;;; Avy

  812. 

  813. (use-package avy

  814.   :config

  815.   (setq avy-keys '(?t ?s ?r ?n)

  816.         avy-background t

  817.         avy-highlight-first t)

  818. 

  819.   :general

  820.   (spcleader

  821.     "SPC" '(avy-goto-char-timer :which-key "Avy"))

  822. 

  823.   :custom-face

  824.   (avy-goto-char-timer-face ((t (:background nil :foreground "red2" :weight bold))))

  825.   (avy-lead-face ((t (:background nil :foreground "red1"))))

  826.   (avy-lead-face-0 ((t (:background nil :foreground "red4"))))

  827.   (avy-lead-face-1 ((t (:background nil :foreground "red4"))))

  828.   (avy-lead-face-2 ((t (:background nil :foreground "red4")))))

  829. 

  830. 

  831. ;;;;; Ace-link

  832. 

  833. (use-package ace-link

  834.   :general

  835.   (:keymaps '(Info-mode-map

  836.               help-mode-map

  837.               helpful-mode-map

  838.               mu4e-view-mode-map

  839.               org-mode-map)

  840.    :states  'normal

  841.    "f"      'ace-link))

  842. 

  843. ;;;;; Doom

  844. ;;;;;; Doom theme

  845. 

  846. (use-package doom-themes

  847.   :config

  848.   (load-theme 'doom-peacock t)

  849.   (setq doom-themes-enable-bold t

  850.         doom-themes-enable-italic t)

  851.   (doom-themes-visual-bell-config))

  852. 

  853. ;;;;;; Doom modeline

  854. 

  855. (use-package doom-modeline

  856.   :config

  857.   (setq doom-modeline-enable-word-count t)

  858.   ;; first time run M-x all-the-icons-install-fonts

  859. 

  860.   :hook (after-init . doom-modeline-mode))

  861. 

  862. ;;;;; Expand region

  863. 

  864. (use-package expand-region

  865.   :config

  866.   (defhydra hydra-expand-region (:color red)

  867.     "Expand-region"

  868.     ("e" er/expand-region)

  869.     ("E" er/contract-region))

  870. 

  871.   :general

  872.   (spcleader

  873.     "e" 'hydra-expand-region/er/expand-region

  874.     "E" 'hydra-expand-region/er/contract-region))

  875. 

  876. ;;;;; Autopairs

  877. 

  878. (use-package autopair

  879.   :config

  880.   (autopair-global-mode))

  881. 

  882. ;;;;; Minions

  883. 

  884. (use-package minions

  885.   :config

  886.   (minions-mode t)

  887.   (setq minions-mode-line-lighter ""))

  888. 

  889. ;;;;; Helpful

  890. 

  891. (use-package helpful

  892.   :demand

  893.   :config

  894.   ;; Use helpful as backend for counsel describe

  895.   (setq counsel-describe-function-function 'helpful-callable

  896.         counsel-describe-variable-function 'helpful-variable

  897.         ;; use only one buffer for help

  898.         helpful-max-buffers 1)

  899. 

  900.   (add-to-list 'display-buffer-alist '("^\\*helpful"

  901.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  902.                                        (side . left)

  903.                                        (window-width . 80)

  904.                                        (reusable-frames . nil)))

  905. 

  906.   :general

  907.   (:keymaps 'helpful-mode-map

  908.    :states  'normal

  909.    "TAB"    'forward-button

  910.    "q"      'kill-buffer-and-window)

  911. 

  912.   :hook (helpful-mode . (lambda ()

  913.                           (setq buffer-face-mode-face '(:background "#102030"))

  914.                           (buffer-face-mode 1)))

  915. 

  916.   :custom-face

  917.   (helpful-heading ((t (:height 1.9)))))

  918. 

  919. ;;;;; Fira Code

  920. 

  921. (use-package fira-code

  922.   :load-path "~/.emacs.d/Fira-code"

  923.   :hook (prog-mode . fira-code-mode))

  924. 

  925. ;;;;; Rainbow mode

  926. 

  927. (use-package rainbow-mode

  928.   :demand

  929.   :config

  930.   (rainbow-mode))

  931. 

  932. ;;;;; Doc view

  933. 

  934. (use-package doc-view

  935.   :config

  936.   (setq doc-view-continuous t

  937.         doc-view-resolution 300)

  938. 

  939.   :general

  940.   (:keymaps 'doc-view-mode-map

  941.    :states  'normal

  942.    "d"      'doc-view-previous-line-or-previous-page

  943.    "s"      'doc-view-next-line-or-next-page

  944.    "ð"      'doc-view-previous-page

  945.    "ß"      'doc-view-next-page

  946.    "gg"     'doc-view-first-page

  947.    "G"      'doc-view-last-page

  948.    "q"      'image-kill-buffer

  949.    "+"      'doc-view-enlarge

  950.    "-"      'doc-view-shrink))

  951. 

  952. ;;;;; Image Mode

  953. 

  954. (use-package image

  955.   :ensure nil

  956.   :config

  957.   (setq image-animate-loop t)

  958. 

  959.   :general

  960.   (:keymaps 'image-mode-map

  961.    :states  'normal

  962.    "d" '(lambda () (interactive) (image-scroll-down 1))

  963.    "s" '(lambda () (interactive) (image-scroll-up 1))

  964.    "t" '(lambda () (interactive) (image-scroll-right 1))

  965.    "r" '(lambda () (interactive) (image-scroll-left 1))

  966.    "+" 'image-increase-size

  967.    "-" 'image-decrease-size

  968.    "{" 'image-decrease-speed

  969.    "}" 'image-increase-speed

  970.    "," 'image-previous-frame

  971.    "." 'image-next-frame

  972.    "RET" 'image-toggle-animation

  973.    "l" 'image-rotate

  974.    "v" '(lambda () (interactive) (image-transform-set-rotation (- image-transform-rotation 90)))

  975.    "q" 'kill-buffer-and-window))

  976. 

  977. ;;;; Completion

  978. ;;;;; Ivy

  979. ;;;;;; Ivy

  980. 

  981. (use-package ivy

  982.   :config

  983.   ;; Start with empty regex for describe function and variable

  984.   (setf (alist-get 'counsel-describe-function ivy-initial-inputs-alist) ""

  985.         (alist-get 'org-refile ivy-initial-inputs-alist) ""

  986.         (alist-get 'counsel-describe-variable ivy-initial-inputs-alist) ""

  987.         (alist-get 'org-capture-refile ivy-initial-inputs-alist) "")

  988.   (setq ivy-wrap t

  989.         ivy-height 15

  990.         ivy-use-virtual-buffers t

  991.         ivy-count-format "(%d/%d) "

  992.         ivy-extra-directories nil

  993.         ivy-re-builders-alist '((t . ivy--regex-ignore-order))

  994.         ivy-switch-buffer-faces-alist '((dired-mode . ivy-subdir)))

  995. 

  996.   :general

  997.   (:keymaps '(ivy-mode-map ivy-minibuffer-map)

  998.    "ð"      'ivy-previous-line

  999.    "ß"      'ivy-next-line

  1000.    "ẞ"      '(lambda ()

  1001.                (interactive)

  1002.                (scroll-other-window 1))

  1003.    "Ð"      '(lambda ()

  1004.                (interactive)

  1005.                (scroll-other-window -1))

  1006.    "®"      'ivy-partial-or-done

  1007.    "þ"      '(lambda ()

  1008.                (interactive)

  1009.                (kill-buffer (ivy-state-current ivy-last)))

  1010.    "_"      'maxx/counsel-describe))

  1011. 

  1012. ;;;;;; Counsel

  1013. 

  1014. (use-package smex

  1015.   :init

  1016.   (setq smex-history-length 15))

  1017. 

  1018. (use-package counsel

  1019.   :config

  1020.   (setq counsel-yank-pop-preselect-last t)

  1021. 

  1022.   :general

  1023.   (spcleader

  1024.     "i"   'counsel-imenu

  1025.     "f"   'counsel-find-file

  1026.     "b"   'counsel-switch-buffer

  1027.     "x"   'counsel-M-x

  1028.     "/"   'counsel-grep-or-swiper)

  1029. 

  1030.   ("M-x" 'counsel-M-x)

  1031. 

  1032.   (:states '(normal motion)

  1033.    ":"     'counsel-M-x))

  1034. 

  1035. (defun maxx/counsel-describe ()

  1036.   "Display help for object at point in counsel"

  1037.   (interactive)

  1038.   (let ((inhibit-message t)

  1039.         (object (intern (ivy-state-current ivy-last))))

  1040.     (describe-symbol object)))

  1041. 

  1042. ;;;;;; Ivy-rich

  1043. 

  1044. (use-package ivy-rich

  1045.   :config

  1046.   (plist-put ivy-rich-display-transformers-list

  1047.              'counsel-switch-buffer

  1048.              '(:columns ((ivy-rich-candidate (:width 30))

  1049.                          (ivy-rich-switch-buffer-size (:width 7))

  1050.                          (ivy-rich-switch-buffer-indicators (:width 4 :face error :align right))

  1051.                          (ivy-rich-switch-buffer-major-mode (:width 12 :face warning))

  1052.                          (ivy-rich-switch-buffer-project (:width 15 :face success))

  1053.                          (ivy-rich-switch-buffer-path (:width (lambda (x) (ivy-rich-switch-buffer-shorten-path x (ivy-rich-minibuffer-width 0.3))))))

  1054.                         :predicate (lambda (cand) (get-buffer cand))))

  1055. 

  1056.   (ivy-rich-mode 1))

  1057. 

  1058. ;;;;; Company-tabnine

  1059. 

  1060. (use-package company-tabnine

  1061.   ;; install binaries with company-tabnine-install-binaries

  1062.   :demand)

  1063. 

  1064. ;;;;; Company

  1065. 

  1066. (use-package company

  1067.   :demand

  1068.   :config

  1069.   (global-company-mode t)

  1070.   (setq company-idle-delay 0

  1071.         tab-always-indent 'complete

  1072.         company-selection-wrap-around t

  1073.         company-dabbrev-downcase nil

  1074.         company-dabbrev-ignore-case t

  1075.         company-tooltip-align-annotations t

  1076.         company-minimum-prefix-length 2)

  1077.   (add-to-list 'company-backends '(company-tabnine) t)

  1078. 

  1079.   :general

  1080.   (:states 'insert

  1081.    "TAB"    'company-indent-or-complete-common)

  1082.   (:keymaps 'company-active-map

  1083.    "ß"      'company-select-next

  1084.    "ð"      'company-select-previous

  1085.    "Ð"      'company-previous-page

  1086.    "ẞ"      'company-next-page

  1087.    "þ"      'company-abort

  1088.    "®"      'company-complete

  1089.    "_"      'company-show-doc-buffer))

  1090. 

  1091. ;;;; Project management

  1092. 

  1093. ;;;;; Projectile

  1094. 

  1095. (use-package projectile

  1096.   :config

  1097.   (projectile-clear-known-projects)

  1098.   (add-to-list 'projectile-project-root-files "notes.org")

  1099.   (setq projectile-completion-system 'ivy))

  1100. 

  1101. ;;;;; Projectorg

  1102. (use-package projectorg

  1103.   :load-path "~/Projects/projectorg"

  1104.   :demand

  1105.   :hook (find-file . projectorg/add-to-project-list))

  1106. 

  1107. ;;;;; Counsel-projectile

  1108. 

  1109. (use-package counsel-projectile

  1110.   :config

  1111.   (setq counsel-projectile-org-capture-templates

  1112.         '(("pt"

  1113.            "[${name}] Todo"

  1114.            entry (file+headline "${root}/notes.org" "Tasks")

  1115.            "* TODO %^{todo}\n %? \n %a")

  1116.           ("pn"

  1117.            "[${name}] Note"

  1118.            entry (file+headline "${root}/notes.org" "Notes")

  1119.            "* %^{title} %t\n %?")))

  1120.   :general

  1121.   (spcleader

  1122.     "p"     '(:ignore t :which-key "Projectile")

  1123.     "pf"    'counsel-projectile-find-file

  1124.     "pb"    'counsel-projectile-switch-to-buffer

  1125.     "pp"    'counsel-projectile-switch-project

  1126.     "pg"    'counsel-projectile-grep

  1127.     "p SPC" '(lambda () (interactive) (find-file "~/Projects/projects.org"))))

  1128. 

  1129. ;;;;; Skeletor

  1130. 

  1131. (use-package skeletor

  1132.   :config

  1133.   (setq skeletor-completing-read-function 'ivy-completing-read

  1134.         skeletor-user-directory "~/Projects/skeletons"

  1135.         skeletor--project-types nil)

  1136.   (skeletor-define-template "skel-Requete"

  1137.     :title "Requête"

  1138.     :no-license? t)

  1139.   (skeletor-define-template "skel-Elisp"

  1140.     :title "Elisp"))

  1141. 

  1142. ;;;; Jump to definition

  1143. 

  1144. (use-package dumb-jump

  1145.   :config

  1146.   (setq dumb-jump-selector 'ivy)

  1147.   :general

  1148.   (spcleader

  1149.     "d" 'dumb-jump-go))

  1150. 

  1151. ;;;; CSV mode

  1152. 

  1153. (use-package csv-mode)

  1154. 

  1155. ;;;; ESS

  1156. ;;;;; ESS

  1157. 

  1158. (use-package ess

  1159.   :config

  1160.   (setq ess-ask-for-ess-directory nil

  1161.         comint-scroll-to-bottom-on-input t

  1162.         ess-use-ido nil

  1163.         ess-style 'RStudio

  1164.         ess-eldoc-show-on-symbol t)

  1165.   (add-to-list 'evil-insert-state-modes 'comint-mode)

  1166.   (add-to-list 'display-buffer-alist '("*R Dired"

  1167.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  1168.                                        (side . right)

  1169.                                        (slot . 1)

  1170.                                        (window-width . 0.2)

  1171.                                        (reusable-frames . nil)))

  1172.   (add-to-list 'display-buffer-alist '("\\*Help\\[R"

  1173.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  1174.                                        (side . right)

  1175.                                        (window-width . 0.4)

  1176.                                        (reusable-frames . nil)))

  1177.   (add-to-list 'display-buffer-alist '("*R"

  1178.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  1179.                                        (window-height . 0.3)

  1180.                                        (reusable-frames . nil)))

  1181. 

  1182.   :general

  1183.   (spcleader

  1184.      "r"  '(:ignore t :which-key "R")

  1185.      "rh" 'ess-display-help-on-object

  1186.      "rH" 'ess-handy-commands

  1187.      "rc" 'polymode-eval-region-or-chunk

  1188.      "ra" 'polymode-eval-buffer-from-beg-to-point

  1189.      "rq" 'ess-quit)

  1190. 

  1191.   (:keymaps 'ess-r-mode-map

  1192.    :states  'normal

  1193.    "RET"    'ess-eval-line-and-step)

  1194. 

  1195.   (:keymaps 'ess-r-mode-map

  1196.    :states  'visual

  1197.    "RET"    'ess-eval-region)

  1198. 

  1199.   (:keymaps 'ess-r-mode-map

  1200.    :states  'insert

  1201.    "»"      '(lambda () (interactive) (insert "%>%")))

  1202. 

  1203.   (:keymaps 'ess-r-help-mode-map

  1204.    :states  'normal

  1205.    "q" 'kill-buffer-and-window

  1206.    "TAB" 'forward-button

  1207.    "ð" 'ess-skip-to-previous-section

  1208.    "ß" 'ess-skip-to-next-section)

  1209. 

  1210.   (:keymaps 'inferior-ess-r-mode-map

  1211.    :states  'insert

  1212.    "TAB"    'company-complete

  1213.    "C-l"    'comint-clear-buffer

  1214.    "þ"      'comint-kill-input

  1215.    "ð"      'comint-previous-matching-input-from-input

  1216.    "ß"      'comint-next-matching-input-from-input

  1217.    "»"      '(lambda () (interactive) (insert "%>%")))

  1218. 

  1219.   (:keymaps 'inferior-ess-r-mode-map

  1220.    :states  '(insert normal)

  1221.    "C-d"    'evil-scroll-line-up

  1222.    "C-s"    'evil-scroll-line-down)

  1223. 

  1224.   (:keymaps 'inferior-ess-r-mode-map

  1225.    :states  'normal

  1226.    "ð"      'comint-previous-prompt

  1227.    "ß"      'comint-next-prompt)

  1228. 

  1229.   :hook (ess-mode . (lambda () (setq-local completing-read-function 'ivy-completing-read))))

  1230. 

  1231. ;;;;; Poly-R

  1232. 

  1233. (use-package poly-R

  1234.   :general

  1235.   (spcleader

  1236.      "r"  '(:ignore t :which-key "R")

  1237.      "rc" 'polymode-eval-region-or-chunk

  1238.      "ra" 'polymode-eval-buffer-from-beg-to-point

  1239.      "re" 'polymode-export

  1240.      "rE" 'polymode-set-exporter)

  1241. 

  1242.   (:keymaps '(markdown-mode-map ess-mode-map)

  1243.    :states  'normal

  1244.    "<tab>"  'markdown-cycle

  1245.    "ð"      'markdown-previous-visible-heading

  1246.    "ß"      'markdown-next-visible-heading

  1247.    "Ð"      'markdown-outline-previous-same-level

  1248.    "ẞ"      'markdown-outline-next-same-level

  1249.    "þ"      'markdown-hide-subtree

  1250.    "®"      '(lambda () (interactive)

  1251.               (markdown-show-children)

  1252.               (markdown-show-entry))

  1253.    "Þ"      'markdown-up-heading

  1254.    "©"      'polymode-next-chunk

  1255.    "ſ"      'polymode-previous-chunk

  1256.    "M-r"    'markdown-demote

  1257.    "M-t"    'markdown-promote

  1258.    "M-d"    'markdown-move-up

  1259.    "M-s"    'markdown-move-down))

  1260. 

  1261. ;;;; Git

  1262. ;;;;; Magit

  1263. 

  1264. (use-package magit

  1265.   :config

  1266.   (setq magit-status-goto-file-position t

  1267.         magit-popup-show-help-echo nil)

  1268.   (add-to-list 'evil-emacs-state-modes 'magit-mode)

  1269.   (add-to-list 'evil-emacs-state-modes 'git-rebase-mode)

  1270.   (add-to-list 'display-buffer-alist '("magit"

  1271.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  1272.                                        (side . left)

  1273.                                        (window-width . 80)

  1274.                                        (reusable-frames . nil)))

  1275.   (add-to-list 'display-buffer-alist '("magit-diff"

  1276.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  1277.                                        (side . left)

  1278.                                        (slot . 1)

  1279.                                        (window-height . .5)

  1280.                                        (window-width . 80)

  1281.                                        (reusable-frames . nil)))

  1282. 

  1283.   :general

  1284.   (spcleader

  1285.     "g"  '(:ignore t :which-key "Magit")

  1286.     "gd" 'magit-file-dispatch

  1287.     "gs" 'magit-status)

  1288. 

  1289.   (:keymaps '(magit-hunk-section-map

  1290.               magit-file-section-map

  1291.               magit-staged-section-map

  1292.               magit-unstaged-section-map

  1293.               magit-revision-mode-map

  1294.               magit-section-map

  1295.               magit-refs-mode-map

  1296.               magit-log-mode-map

  1297.               magit-diff-mode-map

  1298.               magit-untracked-section-map

  1299.               magit-status-mode-map

  1300.               magit-stash-section-map)

  1301.    "ð"      'magit-section-backward

  1302.    "ß"      'magit-section-forward

  1303.    "þ"      'magit-section-hide

  1304.    "®"      'magit-section-show

  1305.    "s"      'magit-next-line

  1306.    "d"      'magit-previous-line

  1307.    "q"      'quit-window)

  1308. 

  1309.   (:keymaps '(magit-hunk-section-map

  1310.               magit-status-mode-map

  1311.               magit-unstaged-section-map

  1312.               magit-untracked-section-map)

  1313.    "+"      'magit-stage

  1314.    "-"      'magit-unstage))

  1315. 

  1316. ;;;;; Magit-todos

  1317. 

  1318. (use-package magit-todos

  1319.   :config

  1320.   (magit-todos-mode))

  1321. 

  1322. ;;;;; Smerge

  1323. 

  1324. (use-package smerge-mode

  1325.   :general

  1326.   (:keymaps 'smerge-mode-map

  1327.    :states  'normal

  1328.    "RET"    'smerge-keep-current

  1329.    "n"      'smerge-next

  1330.    "p"      'smerge-prev))

  1331. 

  1332. ;;;;; Git-gutter-fringe

  1333. 

  1334. (use-package git-gutter-fringe

  1335.   :config

  1336.   (global-git-gutter-mode t))

  1337. 

  1338. ;;;; Slime

  1339. 

  1340. (use-package slime

  1341.   :config

  1342.   (setq inferior-lisp-program "clisp"))

  1343. 

  1344. ;;;; Flycheck

  1345. 

  1346. (use-package flycheck

  1347.   :config

  1348.   (global-flycheck-mode))

  1349. 

  1350. ;;;; Org

  1351. ;;;;; Org

  1352. 

  1353. (use-package org

  1354.   :demand

  1355.   :config

  1356.   ;; Supported languages in babel

  1357.   (org-babel-do-load-languages

  1358.    'org-babel-load-languages

  1359.    '((python . t)

  1360.      (R . t)

  1361.      (emacs-lisp . t)

  1362.      (shell . t)))

  1363. 

  1364.   (setq org-catch-invisible-edits 'smart

  1365.         ;; Folders

  1366.         org-directory "~/Projects"

  1367.         org-agenda-files (directory-files-recursively "~/Projects" "\.org$")

  1368.         org-default-notes-file "~/Projects/notes.org"

  1369.         ;; Startup

  1370.         org-startup-folded 'content

  1371.         org-startup-with-inline-images t

  1372.         org-startup-indented t

  1373.         org-startup-truncated t

  1374.         org-hide-emphasis-markers t

  1375.         org-hide-block-startup t

  1376.         ;; Org sub/superscript behavior

  1377.         org-use-sub-superscripts '{}

  1378.         org-pretty-entities t

  1379.         org-pretty-entities-include-sub-superscripts t

  1380.         ;; RET behavior

  1381.         org-M-RET-may-split-line nil

  1382.         org-return-follows-link nil

  1383.         org-image-actual-width 600

  1384.         ;; Generate UUIDs for links when storing link

  1385.         org-id-link-to-org-use-id t

  1386.         ;; Make todos dependent

  1387.         org-html-checkbox-type 'unicode

  1388.         org-enforce-todo-checkbox-dependencies nil

  1389.         org-enforce-todo-dependencies t

  1390.         ;; Log states

  1391.         org-log-into-drawer t

  1392.         ;; Recursive todo statistics

  1393.         org-hierarchical-todo-statistics nil

  1394.         ;; Todo keywords

  1395.         org-todo-keywords '((sequence "REFILE(r)" "SOMEDAY(s)" "TODO(t)" "WAITING(w!)" "|" "DONE(d!)" "CANCELED(c@)"))

  1396.         ;; Colors for TODOS

  1397.         org-todo-keyword-faces

  1398.         '(("REFILE" . "red4")

  1399.           ("TODO" . "red")

  1400.           ("WAITING" . "orange")

  1401.           ("CANCELED" . (:strike-through t :foreground "DimGrey" :weight bold)))

  1402.         ;; Do not create a TOC

  1403.         org-export-with-toc nil

  1404.         ;; REFILE

  1405.         org-refile-targets '((nil :maxlevel . 9)

  1406.                              (org-agenda-files :maxlevel . 9))

  1407.         org-refile-use-outline-path 'full-file-path

  1408.         org-outline-path-complete-in-steps nil

  1409.         )

  1410. 

  1411.   ;; Capture templates

  1412.   (setq org-capture-templates

  1413.         '(("t"

  1414.            "todo"

  1415.            entry (file+headline org-default-notes-file "Tasks")

  1416.            "* REFILE %^{todo}\n %? \n %a")

  1417.           ("n"

  1418.            "note"

  1419.            entry (file+headline org-default-notes-file "Notes")

  1420.            "* %^{title}\n %?")

  1421.           ("C"

  1422.            "cheatsheet"

  1423.            entry (file+headline org-default-notes-file "Cheatsheets")

  1424.            "* %^{title}\n %?")))

  1425. 

  1426.   ;; Org windows

  1427.   (add-to-list 'display-buffer-alist '("*Org Agenda*"

  1428.                                        (display-buffer-reuse-window display-buffer-in-side-window)

  1429.                                        (side . right)

  1430.                                        (window-width . 80)

  1431.                                        (reusable-frames . nil)))

  1432. 

  1433.   ;; Project mode

  1434.   (add-to-list 'org-capture-templates

  1435.                '("p"

  1436.                  "project"

  1437.                  entry (file+headline "~/Projects/projects.org" "Projects")

  1438.                  "* [[%^{project}/notes.org][%^{project}]] %^g\n%^{TYPE}p %?\n"))

  1439. 

  1440.   ;; ;; Allow emphasis markup in the middle of words

  1441.   ;; (setcar org-emphasis-regexp-components " \t('\"{[:alpha:]")

  1442.   ;; (setcar (nthcdr 1 org-emphasis-regexp-components) "[:alpha:]- \t.,:!?;'\")}\\")

  1443.   ;; (org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components)

  1444. 

  1445.   ;; Strike-through for checked boxes

  1446.   (defface org-checkbox-done-text

  1447.     '((t (:foreground "DimGrey" :strike-through t)))

  1448.     "Face for text of checked boxes")

  1449.   (font-lock-add-keywords

  1450.    'org-mode

  1451.    `(("^[ \t]*\\(?:[-+*]\\|[0-9]+[).]\\)[ \t]+\\(\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ \t]*\\)?\\[\\(?:X\\|\\([0-9]+\\)/\\2\\)\\][^\n]*\n\\)"

  1452.       1 'org-checkbox-done-text prepend))

  1453.    'append)

  1454. 

  1455.   ;; Menu keybindings

  1456.   :general

  1457.   (spcleader

  1458.     "o"  '(:ignore t :which-key "Org")

  1459.     "oO" 'projectorg/go-to-inbox

  1460.     "oo" 'projectorg/go-to-notes

  1461.     "oA" 'org-agenda

  1462.     "oa" 'counsel-projectile-org-agenda

  1463.     "oc" 'counsel-projectile-org-capture

  1464.     "ol" 'org-insert-link

  1465.     "oL" 'org-store-link

  1466.     "oi" 'org-redisplay-inline-images

  1467.     "os" 'org-sort

  1468.     "o*" 'org-toggle-heading

  1469.     "o/" 'org-sparse-tree

  1470.     "o|" 'org-table-create-or-convert-from-region

  1471.     "oe" 'org-table-edit-field

  1472.     "oE" 'org-export-dispatch

  1473.     "o}" 'org-table-toggle-coordinate-overlays

  1474.     "o{" 'org-table-toggle-formula-debugger

  1475.     "o?" 'org-table-field-info

  1476.     "o=" 'org-table-eval-formula

  1477.     "od" 'org-insert-drawer

  1478.     "ot" 'org-todo

  1479.     "op" 'org-set-property

  1480.     "oC" 'org-columns

  1481.     "of" 'org-footnote-action

  1482.     "oj" 'org-attach

  1483.     "ow" 'org-refile

  1484.     "oz" 'org-archive-subtree)

  1485. 

  1486.   ;; Normal keybindings

  1487.   (:keymaps  'org-mode-map

  1488.    :states   'normal

  1489.    "RET"     'org-open-at-point

  1490.    "gt"      'org-mark-ring-goto

  1491.    "U"       'undo-tree-redo

  1492.    "<tab>"   'org-cycle

  1493.    "S-<tab>" 'org-global-cycle

  1494.    "M-s"     'org-metadown

  1495.    "M-d"     'org-metaup

  1496.    "M-r"     'org-metaright

  1497.    "M-t"     'org-metaleft

  1498.    "M-S"     'org-shiftmetadown

  1499.    "M-D"     'org-shiftmetaup

  1500.    "M-R"     'org-shiftmetaright

  1501.    "M-T"     'org-shiftmetaleft

  1502.    "C-s"     'org-shiftdown

  1503.    "C-d"     'org-shiftup

  1504.    "C-r"     'org-shiftright

  1505.    "C-t"     'org-shiftleft

  1506.    "©"       'org-babel-next-src-block

  1507.    "ſ"       'org-babel-previous-src-block)

  1508. 

  1509.   ;; Insert keybindings

  1510.   (:keymaps 'org-mode-map

  1511.    :states  '(normal insert)

  1512.    "Þ"      'outline-up-heading

  1513.    "Ð"      'outline-backward-same-level

  1514.    "ẞ"      'outline-forward-same-level

  1515.    "þ"      'outshine-kbd-M-<left>

  1516.    "®"      'outshine-kbd-M-<right>

  1517.    "ð"      'org-previous-visible-heading

  1518.    "ß"      'org-next-visible-heading)

  1519. 

  1520.   ;; Pretty checkboxes

  1521.   :hook (org-mode . (lambda ()

  1522.                       (push '("[ ]" . "☐") prettify-symbols-alist)

  1523.                       (push '("[X]" . "☑" ) prettify-symbols-alist)

  1524.                       (push '("[-]" . "☒" ) prettify-symbols-alist)

  1525.                       (setq-local prettify-symbols-unprettify-at-point 'right-edge)

  1526.                       (prettify-symbols-mode)))

  1527. 

  1528.   ;; Use ivy for org-link

  1529.   :hook (org-mode . (lambda () (setq-local completing-read-function 'ivy-completing-read)))

  1530. 

  1531.   :custom-face

  1532.   (highlight ((t (:background nil :foreground nil :box (:line-width 2 :color "dim gray") :DistantForeground nil))))

  1533.   (outline-1 ((t (:height 1.9 :background nil))))

  1534.   (outline-2 ((t (:height 1.6))))

  1535.   (outline-3 ((t (:height 1.4))))

  1536.   (outline-4 ((t (:height 1.2))))

  1537.   (outline-5 ((t (:height 1.1)))))

  1538. 

  1539. ;;;;; Org Agenda

  1540. 

  1541. (use-package org-agenda

  1542.   :ensure nil

  1543.   :config

  1544.   (setq

  1545.    ;; Hide blocked todos from agenda

  1546.    org-agenda-dim-blocked-tasks 'invisible

  1547.    ;; Agenda window

  1548.    org-agenda-window-setup 'current-window

  1549.    org-agenda-restore-windows-after-quit t

  1550.    ;; Agenda for 10 days from 1 day before

  1551.    org-agenda-span 10

  1552.    org-agenda-start-day "-1d"

  1553.    org-agenda-include-diary t

  1554.    org-agenda-skip-scheduled-if-deadline-is-shown t

  1555.    org-agenda-tags-column -78

  1556.    org-agenda-start-with-follow-mode t

  1557.    org-agenda-todo-ignore-scheduled 'all

  1558.    org-agenda-skip-scheduled-if-done t

  1559.    org-agenda-skip-deadline-if-done t

  1560.    org-agenda-skip-deadline-prewarning-if-scheduled 3

  1561.    ;; org-agenda-sorting-strategy

  1562.    ;; '((agenda deadline-up priority-down)

  1563.    ;;   (todo priority-down category-keep)

  1564.    ;;   (tags priority-down category-keep)

  1565.    ;;   (search category-keep))

  1566.    )

  1567. 

  1568.   ;; Agenda keybindings

  1569.   :general

  1570.   (:keymaps 'org-agenda-mode-map

  1571.    :states  '(normal)

  1572.    "q"      'org-agenda-quit

  1573.    "C-d"    'org-agenda-priority-up

  1574.    "C-s"    'org-agenda-priority-down

  1575.    "i"      'org-agenda-diary-entry

  1576.    "T"      'org-agenda-todo

  1577.    "ß"      'org-agenda-next-item

  1578.    "ð"      'org-agenda-previous-item

  1579.    "RET"    'org-agenda-goto

  1580.    "®"      'org-agenda-goto

  1581.    "_"      'org-agenda-cycle-show

  1582.    "C"      'org-agenda-columns))

  1583. 

  1584. ;;;;; Org notifications

  1585. 

  1586. (use-package org-wild-notifier

  1587.   :config

  1588.   (setq alert-default-style 'libnotify)

  1589.   ;; (org-wild-notifier-mode)

  1590.   )

  1591. 

  1592. ;;;;; Org-bullets

  1593. 

  1594. (use-package org-bullets

  1595.   :config

  1596.   (setq org-hide-leading-stars t)

  1597. 

  1598.   :hook (org-mode . org-bullets-mode))

  1599. 

  1600. ;;;;; Org fancy priorities

  1601. 

  1602. (use-package org-fancy-priorities

  1603.   :config

  1604.   ;; Set colors

  1605.   (setq org-priority-faces

  1606.         '((?A . "#ff5d38")

  1607.           (?B . "orange")

  1608.           (?C . "#98be65")))

  1609. 

  1610.   ;; Set chars

  1611.   (setq org-fancy-priorities-list

  1612.         '((?A . "⬆")

  1613.           (?B . "·")

  1614.           (?C . "⬇")))

  1615. 

  1616.   :hook (org-mode . org-fancy-priorities-mode))

  1617. 

  1618. ;;;;; Outshine

  1619. 

  1620. (use-package outshine

  1621.   :general

  1622.   (:keymaps  'outshine-mode-map

  1623.    :states   'normal

  1624.    "<tab>"   'outshine-cycle

  1625.    "S-<tab>" 'outshine-cycle-buffer

  1626.    [(control return)] 'outshine-insert-heading

  1627.    "ð"       'outline-previous-visible-heading

  1628.    "ß"       'outline-next-visible-heading

  1629.    "Ð"       'outline-backward-same-level

  1630.    "ẞ"       'outline-forward-same-level

  1631.    "Þ"       'outline-up-heading

  1632.    "þ"       'outshine-kbd-M-<left>

  1633.    "®"       'outshine-kbd-M-<right>

  1634.    "M-t"     'outshine-kbd-M-S-<left>

  1635.    "M-r"     'outshine-kbd-M-S-<right>

  1636.    "M-d"     'outshine-kbd-M-S-<up>

  1637.    "M-s"     'outshine-kbd-M-S-<down>

  1638.    )

  1639. 

  1640.   :hook (emacs-lisp-mode . outshine-mode))

  1641. 

  1642. ;;;;; Org mobile

  1643. 

  1644. (use-package org-mobile

  1645.   :ensure nil

  1646.   :config

  1647.   (setq org-mobile-directory "/ssh:maxx@home:orgmobile"

  1648.         org-mobile-inbox-for-pull "/ssh:maxx@home:orginbox.org"))

  1649. 

  1650. ;;;;; Poly-org

  1651. 

  1652. (use-package poly-org)

  1653. 

  1654. ;;;; Mu4e

  1655. ;;;;; Mu4e

  1656. 

  1657. (use-package mu4e

  1658.   :demand

  1659.   :load-path "/usr/share/emacs/site-lisp/mu4e/"

  1660.   :config

  1661.   (add-to-list 'evil-emacs-state-modes 'mu4e-main-mode)

  1662. 

  1663.   ;; Folders

  1664.   (setq mu4e-sent-folder "/Inbox"

  1665.         mu4e-drafts-folder "/Drafts"

  1666.         mu4e-trash-folder "/Trash")

  1667. 

  1668.   ;; and their shortcuts

  1669.   (setq mu4e-maildir-shortcuts

  1670.         '(("/Inbox"    . ?i)

  1671.           ("/Archives" . ?a)

  1672.           ("/Trash"    . ?t)

  1673.           ("/Junk"     . ?j)

  1674.           ("/Sent"     . ?s)))

  1675. 

  1676.   ;; Mail accounts

  1677.   (cond ((equal (system-name) "hegp")

  1678.          (setq mu4e-maildir (expand-file-name "~/Mail/aphp")

  1679.                mu4e-get-mail-command "mbsync aphp"

  1680.                mu4e-refile-folder "/Local_archive"

  1681.                mu4e-user-mail-address-list '("maxime.wack@aphp.fr")

  1682.                mu4e-maildir-shortcuts

  1683.                '(("/Inbox"          . ?i)

  1684.                  ("/Local_archive"  . ?a)

  1685.                  ("/Trash"          . ?t)

  1686.                  ("/Junk"           . ?j)

  1687.                  ("/Sent"           . ?s))

  1688.                mu4e-compose-signature "Dr Maxime Wack, MD, MSc

  1689. Assistant Hospitalo-Universitaire

  1690. Pôle Informatique et Santé Publique

  1691. Hôpital Européen Georges Pompidou

  1692. tel: 01 56 09 23 63"))

  1693.         ((equal (system-name) "laptop")

  1694.          (setq mu4e-maildir (expand-file-name "~/Mail/free")

  1695.                mu4e-user-mail-address-list '("maximewack@free.fr")

  1696.                mu4e-get-mail-command "mbsync free"

  1697.                mu4e-refile-folder "/Archives"

  1698.                mu4e-compose-signature "Maxime")))

  1699. 

  1700.   ;; Options

  1701.   (setq mu4e-view-prefer-html t

  1702.         mu4e-update-interval 300

  1703.         mu4e-headers-auto-update t

  1704.         mu4e-compose-signature-auto-include t

  1705.         mu4e-compose-format-flowed t

  1706.         mu4e-attachment-dir "~/Downloads"

  1707.         mu4e-compose-in-new-frame nil

  1708.         mu4e-view-show-images t

  1709.         mu4e-headers-sort-direction 'ascending

  1710.         mu4e-confirm-quit nil

  1711.         ;; Required by mbsync

  1712.         mu4e-change-filenames-when-moving t

  1713.         message-kill-buffer-on-exit t

  1714.         mu4e-compose-dont-reply-to-self t

  1715.         mu4e-completing-read-function 'ivy-completing-read

  1716.         mu4e-split-view 'vertical

  1717.         mu4e-headers-visible-columns 110

  1718.         mu4e-headers-include-related nil

  1719.         mu4e-headers-skip-duplicates t

  1720.         mu4e-headers-results-limit 500

  1721.         mu4e-index-cleanup t

  1722.         mu4e-index-lazy-check nil

  1723.         mail-user-agent 'mu4e-user-agent)

  1724. 

  1725.   ;; Define headers

  1726.   (setq mu4e-headers-fields

  1727.         '((:flags . 4)

  1728.           (:thread-subject . 50)

  1729.           (:size . 6)

  1730.           (:from-or-to . 20)

  1731.           (:human-date . 15)))

  1732. 

  1733.   ;; Use imagemagick to view images, if available

  1734.   (when (fboundp 'imagemagick-register-types)

  1735.     (imagemagick-register-types))

  1736. 

  1737.   ;; Add action to view in browser

  1738.   (add-to-list 'mu4e-view-actions

  1739.                '("browser" . mu4e-action-view-in-browser) t)

  1740. 

  1741.   :general

  1742.   (:keymaps 'mu4e-headers-mode-map

  1743.    :states  'normal

  1744.    "ð"      'mu4e-headers-prev

  1745.    "ß"      'mu4e-headers-next

  1746.    "RET"    'mu4e-headers-view-message

  1747.    "®"      'mu4e-headers-view-message

  1748.    "q"      'mu4e~headers-quit-buffer

  1749.    "x"      'mu4e-headers-mark-for-trash

  1750.    "a"      'mu4e-headers-mark-for-refile

  1751.    "u"      'mu4e-headers-mark-for-unmark

  1752.    "l"      'mu4e-headers-mark-for-delete

  1753.    "U"      'mu4e-mark-unmark-all

  1754.    "X"      'mu4e-mark-execute-all

  1755.    "W"      'mu4e-headers-toggle-include-related

  1756.    "T"      'mu4e-compose-new

  1757.    "F"      'mu4e-compose-forward

  1758.    "R"      'mu4e-compose-reply

  1759.    "m"      'mu4e-update-mail-and-index

  1760.    "o"      'mu4e-headers-change-sorting

  1761.    "'"      'mu4e~headers-jump-to-maildir

  1762.    "M"      'mu4e-headers-mark-for-move)

  1763. 

  1764.   (:keymaps 'mu4e-headers-mode-map

  1765.    :states  'visual

  1766.    "l"      'mu4e-headers-mark-for-delete)

  1767. 

  1768.   (:keymaps 'mu4e-view-mode-map

  1769.    :states  'normal

  1770.    "ð"      'mu4e-view-headers-prev

  1771.    "ß"      'mu4e-view-headers-next

  1772.    "þ"      'mu4e-select-other-view

  1773.    "q"      'mu4e~view-quit-buffer

  1774.    "x"      'mu4e-view-mark-for-trash

  1775.    "a"      'mu4e-view-mark-for-refile

  1776.    "u"      'mu4e-view-mark-for-unmark

  1777.    "l"      'mu4e-view-mark-for-delete

  1778.    "U"      'mu4e-mark-unmark-all

  1779.    "X"      'mu4e-mark-execute-all

  1780.    "T"      'mu4e-compose-new

  1781.    "F"      'mu4e-compose-forward

  1782.    "R"      'mu4e-compose-reply

  1783.    "m"      'mu4e-update-mail-and-index

  1784.    "'"      'mu4e~headers-jump-to-maildir

  1785.    "h"      'mu4e-view-toggle-html

  1786.    "M"      'mu4e-view-mark-for-move

  1787.    "A"      'mu4e-view-attachment-action))

  1788. 

  1789. ;;;;; Mu4e-alert

  1790. 

  1791. (defun maxx/mu4e-alert-notification-formatter (mail-group all-emails)

  1792.   (list :title (format "%s  \uf0e0" (mu4e-alert--get-group (car mail-group)))

  1793.         :body ""))

  1794. 

  1795. (use-package mu4e-alert

  1796.   :after alert

  1797.   :config

  1798.   (mu4e-alert-set-default-style 'libnotify)

  1799.   (setq mu4e-alert-email-notification-types '(subjects))

  1800.   (setq mu4e-alert-grouped-mail-notification-formatter 'maxx/mu4e-alert-notification-formatter)

  1801. 

  1802.   (mu4e-alert-enable-notifications))

  1803. 

  1804. ;;;;; smtpmail

  1805. 

  1806. (use-package smtpmail

  1807.   :config

  1808.   (setq smtpmail-queue-mail nil

  1809.         message-send-mail-function 'smtpmail-send-it

  1810.         send-mail-function 'smtpmail-send-it)

  1811.   ;; Mail accounts

  1812.   (cond ((equal (system-name) "laptop")

  1813.          (setq smtpmail-smtp-server "smtp.free.fr"

  1814.                user-mail-address "maximewack@free.fr"

  1815.                auth-sources '(password-store)))

  1816.         ((equal (system-name) "hegp")

  1817.          (setq smtpmail-smtp-server "smtp.aphp.fr"

  1818.                user-mail-address "maxime.wack@aphp.fr"

  1819.                auth-sources '(password-store)

  1820.                smtpmail-smtp-service 25))))

  1821. 

  1822. ;;;;; Org-mime

  1823. 

  1824. (use-package org-mime)

  1825. 

  1826. ;;;;; Org-mu4e

  1827. 

  1828. (use-package org-mu4e

  1829.   :demand

  1830.   :ensure nil

  1831.   :config

  1832.   (setq org-mu4e-convert-to-html t)

  1833. 

  1834.   :hook (mu4e-compose-mode . org-mu4e-compose-org-mode))

  1835. 

  1836. ;;;;; Htmlize

  1837. 

  1838. (use-package htmlize)

  1839. 

  1840. ;;;;; Gnus-dired

  1841. 

  1842. (require 'gnus-dired)

  1843. 

  1844. (defun gnus-dired-mail-buffers ()

  1845.   "Return a list of active message buffers."

  1846.   (let (buffers)

  1847.     (save-current-buffer

  1848.       (dolist (buffer (buffer-list t))

  1849.         (set-buffer buffer)

  1850.         (when (and (derived-mode-p 'message-mode)

  1851.                    (null message-sent-message-via))

  1852.           (push (buffer-name buffer) buffers))))

  1853.     (nreverse buffers)))

  1854. 

  1855. (setq gnus-dired-mail-mode 'mu4e-user-agent)

  1856. 

  1857. (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode)