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.
443 Commits
2 Branches
464MB
Tree: 014f49b1b9
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '014f49b1b9'
${ noResults }
dotfiles/.emacs

1570 lines
43KB
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 "~/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. 

  56. ;;;;; Autosave

  57. 

  58. (setq

  59.  ;; Enable

  60.  auto-save-default t

  61.  ;; Set interval and timeout

  62.  auto-save-interval 300

  63.  auto-save-timeout 30

  64.  ;; Set directory for auto-saves

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

  66. 

  67. ;;;;; Scrolling

  68. 

  69. (setq

  70.  scroll-margin 10

  71.  hscroll-margin 10

  72.  scroll-conservatively 100000

  73.  scroll-preserve-screen-position 1

  74.  hscroll-step 1

  75.  maximum-scroll-margin 0.5)

  76. 

  77. ;;;;; Disable GUI

  78. 

  79. (menu-bar-mode -1)

  80. (tool-bar-mode -1)

  81. (scroll-bar-mode -1)

  82. (blink-cursor-mode -1)

  83. (tooltip-mode -1)

  84. 

  85. (setq

  86.  inhibit-startup-screen t

  87.  inhibit-startup-message t

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

  89. 

  90. ;;;;; UTF8

  91. 

  92. (setq

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

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

  95. 

  96. ;; Prefer UTF-8

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

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

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

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

  101. 

  102. ;;;;; Set proxy at work

  103. 

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

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

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

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

  108. 

  109. ;;;;; Misc

  110. 

  111. ;; Stop warning when using narrow

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

  113. 

  114. (setq

  115.  fill-column 100

  116.  ;; Kill debug windows after use

  117.  debugger-bury-or-kill 'kill

  118.  ;; Set tramp terminal type

  119.  tramp-terminal-type "tramp"

  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.  user-mail-address "maximewack@free.fr"

  131.  ;; GC and file size limits

  132.  gc-cons-threshold 50000000

  133.  large-file-warning-threshold 100000000

  134.  ;; Filename in title

  135.  frame-title-format

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

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

  138.             "%b")))

  139.  )

  140. 

  141. (setq-default

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

  143.  indicate-empty-lines t

  144.  ;; Spaces for indent

  145.  tab-width 2

  146.  ;; Don't use tabs in indentation

  147.  indent-tabs-mode nil)

  148. 

  149. ;; Set transparency

  150. (set-frame-parameter (selected-frame) 'alpha '(85 . 90))

  151. 

  152. ;; Font

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

  154.   (set-frame-font "Fira Code 10" nil t))

  155. 

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

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

  158. 

  159. ;; Disable package-selected-packages

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

  161. 

  162. ;;; Packages

  163. ;;;; Keys

  164. ;;;;; General

  165. 

  166. (use-package general

  167.   :demand

  168.   :config

  169.   (general-create-definer spcleader

  170.    :states '(normal visual insert emacs)

  171.    :prefix "SPC"

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

  173. 

  174.   (spcleader

  175.    "RET" 'eval-defun

  176.    "."   'eval-expression

  177.    "k"   '((lambda () (interactive) (kill-buffer nil)) :which-key "kill buffer")

  178.    "K"   'kill-some-buffers

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

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

  181.    "l"   'reposition-window

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

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

  184. 

  185.   (spcleader

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

  187.     "nr" 'narrow-to-region

  188.     "np" 'narrow-to-page

  189.     "nf" 'narrow-to-defun

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

  191.     "nw" 'widen)

  192. 

  193.   (spcleader

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

  195.     "mo" 'org-mode

  196.     "mm" '(lambda () (interactive) (mu4e~headers-jump-to-maildir "/Inbox"))

  197.     "me" 'eshell

  198.     "mc" 'calc

  199.     "mC" 'calendar))

  200. 

  201. ;;;;; Hydra

  202. 

  203. (use-package hydra)

  204. 

  205. ;;;;; Evil

  206. ;;;;;; Evil

  207. 

  208. (use-package evil

  209.   :demand

  210.   :config

  211.   (evil-mode t)

  212.   (setq evil-want-integration nil

  213.         evil-want-keybinding nil

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

  215.         ;; Colored cursors based on evil-state

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

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

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

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

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

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

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

  223.         evil-default-state 'normal

  224.         evil-motion-state-modes nil

  225.         evil-normal-state-modes nil

  226.         evil-insert-state-modes nil

  227.         ;; Use emacs state in these selected modes

  228.         evil-emacs-state-modes nil

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

  230.         evil-overriding-maps nil

  231.         evil-intercept-maps nil)

  232. 

  233.   ;; Set alias w to save-buffer (to continue using :w to save)

  234.   (defalias 'w 'save-buffer)

  235. 

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

  237.     "Windows"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  254.     ("é" nil "Cancel"))

  255. 

  256.   :general

  257.   (:states 'visual

  258.    "l" 'evil-delete

  259.    "H" 'evil-change

  260.    "J" 'evil-join)

  261. 

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

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

  264. 

  265.   (:states '(normal motion)

  266.    "t"   'evil-backward-char

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

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

  269.    "r"   'evil-forward-char

  270.    "T"   'evil-window-top

  271.    "S"   'evil-scroll-down

  272.    "D"   'evil-scroll-up

  273.    "R"   'evil-window-bottom

  274.    "l"   'evil-delete

  275.    "L"   'evil-delete-line

  276.    "h"   'evil-replace

  277.    "H"   'evil-replace-state

  278.    "gs"  'evil-next-line

  279.    "gd"  'evil-previous-line

  280.    "M"   'evil-window-middle

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

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

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

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

  285.    "÷"   'evil-ex

  286.    "gt"  'previous-buffer

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

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

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

  290. 

  291.   (:states 'insert

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

  293.    "C-u" 'counsel-unicode-char))

  294. 

  295. ;;;;;; Evil-numbers

  296. 

  297. (use-package evil-numbers

  298.   :general

  299.   (:states '(normal motion)

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

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

  302. 

  303. ;;;;;; Evil-escape

  304. 

  305. (use-package evil-escape

  306.   :config

  307.   (evil-escape-mode t)

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

  309.                 evil-escape-delay 0.2))

  310. 

  311. ;;;;;; Evil-commentary

  312. 

  313. (use-package evil-commentary

  314.   :demand

  315.   :config

  316.   (evil-commentary-mode t)

  317. 

  318.   :general

  319.   (:states 'normal

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

  321. 

  322. ;;;;;; Evil-surround

  323. 

  324. (use-package evil-surround

  325.   :config

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

  327. 

  328. ;;;;;; Evil-lion

  329. 

  330. (use-package evil-lion

  331.   :general

  332.   (spcleader

  333.     "a" 'evil-lion-left

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

  335. 

  336. ;;;;; Which-key

  337. 

  338. (use-package which-key

  339.   :config

  340.   (which-key-mode t)

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

  342. 

  343. ;;;; Basics

  344. ;;;;; Built-in

  345. ;;;;;; Package

  346. 

  347. (use-package package

  348.   :general

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

  350.    :states 'normal

  351.    "q" 'quit-window))

  352. 

  353. ;;;;;; Custom

  354. 

  355. (use-package cus-edit

  356.   :ensure nil

  357.   :config

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

  359. 

  360. ;;;;;; Ediff

  361. 

  362. (use-package ediff

  363.   :config

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

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

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

  367. 

  368. ;;;;;; Debugger

  369. 

  370. (use-package debug

  371.   :demand

  372.   :config

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

  374. 

  375. ;;;;;; Paren

  376. 

  377. (use-package paren

  378.   :config

  379.   (show-paren-mode t)

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

  381. 

  382. ;;;;;; Flyspell

  383. 

  384. (use-package flyspell

  385.   :general

  386.   (spcleader

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

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

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

  390.     "sc" 'ispell-word

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

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

  393. 

  394.   (:states 'insert

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

  396. 

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

  398. 

  399. ;;;;;; Tar-mode

  400. 

  401. (use-package tar-mode

  402.   :general

  403.   (:keymaps 'tar-mode-map

  404.    :states 'normal

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

  406. 

  407. ;;;;;; Whitespace

  408. 

  409. (use-package whitespace

  410.   :config

  411.   (setq whitespace-style

  412.         '(face

  413.           tabs

  414.           spaces

  415.           trailing

  416.           empty

  417.           space-mark

  418.           tab-mark

  419.           ))

  420. 

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

  422. 

  423. ;;;;;; Info

  424. 

  425. (use-package info

  426.   :general

  427.   (:keymaps 'Info-mode-map

  428.    :states 'normal

  429.    "ð"  'Info-backward-node

  430.    "ß"  'Info-forward-node

  431.    "Þ"  'Info-up

  432.    "þ"  'Info-up

  433.    "q"  'Info-exit

  434.    "ẞ"  'Info-next

  435.    "Ð"  'Info-prev

  436.    "gr" 'Info-history-forward

  437.    "gt" 'Info-history-back

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

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

  440. 

  441. ;;;;;; Highlight line

  442. 

  443. (use-package hl-line

  444.   :config

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

  446. 

  447.   :custom-face

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

  449. 

  450. ;;;;;; Simple

  451. 

  452. (use-package simple

  453.   :ensure nil

  454.   :config

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

  456. 

  457.   :custom-face

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

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

  460. 

  461. ;;;;;; Revert

  462. 

  463. (use-package autorevert

  464.   :config

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

  466. 

  467. ;;;;;; Elisp

  468. 

  469. (use-package elisp-mode

  470.   :ensure nil

  471.   :config

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

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

  474. 

  475.   :general

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

  477.    :states 'normal

  478.    "RET" 'eval-defun)

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

  480.    :states 'visual

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

  482.             (interactive "r")

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

  484. 

  485. ;;;;;; Help

  486. 

  487. (use-package help-mode

  488.   :ensure nil

  489.   :config

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

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

  492.                                        (side . left)

  493.                                        (window-width . 80)

  494.                                        (reusable-frames . nil)))

  495. 

  496.   :general

  497.    (spcleader

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

  499.    "hh" 'help-for-help

  500.    "ha" 'apropos-command

  501.    "hb" 'counsel-descbinds

  502.    "hv" 'counsel-describe-variable

  503.    "hf" 'counsel-describe-function

  504.    "ho" 'helpful-at-point

  505.    "hm" 'describe-mode

  506.    "hp" 'finder-by-keyword

  507.    "hP" 'describe-package

  508.    "hk" 'helpful-key

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

  510.    "hi" 'info

  511.    "hF" 'counsel-faces

  512.    "hc" 'counsel-colors-emacs

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

  514. 

  515.   (:keymaps 'help-mode-map

  516.    :states 'normal

  517.    "TAB" 'forward-button

  518.    "q"   'quit-window

  519.    "P"   'help-go-back

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

  521. 

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

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

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

  525. 

  526. ;;;;;; Markdown

  527. 

  528. (use-package markdown-mode

  529.   :config

  530.   (setq markdown-asymmetric-header t)

  531.   :custom-face

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

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

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

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

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

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

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

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

  540. 

  541. ;;;;;; Eshell

  542. 

  543. ;; eshell-mode-map is not ppoulated outside of eshell

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

  545. (defun maxx/eshell-keys ()

  546.   (evil-define-key*

  547.    'insert

  548.    eshell-mode-map

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

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

  551.    "þ" 'eshell-backward-argument

  552.    "®" 'eshell-forward-argument

  553.    "Þ" 'eshell-kill-input

  554.    "Ð" 'eshell-previous-prompt

  555.    "ẞ" 'eshell-next-prompt

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

  557.   )

  558. 

  559. (use-package eshell

  560.   :config

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

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

  563. 

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

  565. 

  566. ;;;;;; Zoom

  567. 

  568. (use-package face-remap

  569.   :config

  570. 

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

  572.     "Zoom"

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

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

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

  576. 

  577.   :general

  578.   (:states 'normal

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

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

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

  582. 

  583. ;;;;;; Calc

  584. 

  585. (use-package calc

  586.   :config

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

  588. 

  589. ;;;;;; Calendar

  590. 

  591. (use-package calendar

  592.   :config

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

  594.   (setq holiday-french-holidays

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

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

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

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

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

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

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

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

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

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

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

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

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

  608.           ;; fetes a date variable

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

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

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

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

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

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

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

  616. 

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

  618.         calendar-holidays holiday-french-holidays

  619.         calendar-mark-holidays-initially-flag nil

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

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

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

  623.         calendar-left-margin 4)

  624. 

  625.   (add-to-list 'display-buffer-alist '("^Calendar"

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

  627.                                        (side . top)

  628.                                        (window-height . 12)

  629.                                        (reusable-frames . nil)))

  630. 

  631.   :general

  632.   (:keymaps 'calendar-mode-map

  633.    :states 'normal

  634.    "q" 'calendar-exit

  635.    "ð" 'calendar-backward-week

  636.    "ß" 'calendar-forward-week

  637.    "þ" 'calendar-backward-day

  638.    "®" 'calendar-forward-day

  639.    "Þ" '(lambda ()

  640.           (interactive)

  641.           (calendar-backward-month 1)

  642.           (calendar-scroll-right))

  643.    "™" '(lambda ()

  644.           (interactive)

  645.           (calendar-forward-month 1)

  646.           (calendar-scroll-left))

  647.    "Ð" 'calendar-backward-year

  648.    "ẞ" 'calendar-forward-year

  649.    "T" 'calendar-goto-today

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

  651. 

  652. ;;;;;; Diary

  653. 

  654. (use-package diary-lib

  655.   :config

  656.   (setq diary-number-of-entries 7)

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

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

  659.                                        (side . top)

  660.                                        (slot . 1)

  661.                                        (window-height . 12)

  662.                                        (reusable-frames . nil)))

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

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

  665.                                        (side . top)

  666.                                        (slot . -1)

  667.                                        (window-height . 12)

  668.                                        (reusable-frames . nil)))

  669. 

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

  671. 

  672.   :custom-face

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

  674. 

  675. ;;;;;; Minibuffer

  676. 

  677. (use-package minibuffer

  678.   :ensure nil

  679.   :general

  680.   (:keymaps 'read-expression-map

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

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

  683. 

  684. ;;;;; Undo-tree

  685. 

  686. (use-package undo-tree

  687.   :demand

  688.   :config

  689.   (global-undo-tree-mode)

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

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

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

  693. 

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

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

  696.                                        (side . left)

  697.                                        (window-width . 0.15)

  698.                                        (reusable-frames . nil)))

  699.   :general

  700.   (spcleader

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

  702. 

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

  704.    :states 'normal

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

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

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

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

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

  710. 

  711. ;;;;; Avy

  712. 

  713. (use-package avy

  714.   :config

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

  716.         avy-background t

  717.         avy-highlight-first t)

  718. 

  719.   :general

  720.   (spcleader

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

  722. 

  723.   :custom-face

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

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

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

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

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

  729. 

  730. 

  731. ;;;;; Ace-link

  732. 

  733. (use-package ace-link

  734.   :general

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

  736.               help-mode-map

  737.               helpful-mode-map

  738.               mu4e-view-mode-map

  739.               org-mode-map)

  740.    :states 'normal

  741.    "f" 'ace-link))

  742. 

  743. ;;;;; Doom

  744. ;;;;;; Doom theme

  745. 

  746. (use-package doom-themes

  747.   :config

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

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

  750.         doom-themes-enable-italic t)

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

  752. 

  753. ;;;;;; Doom modeline

  754. 

  755. (use-package doom-modeline

  756.   :config

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

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

  759. 

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

  761. 

  762. ;;;;; Expand region

  763. 

  764. (use-package expand-region

  765.   :config

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

  767.     "Expand-region"

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

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

  770. 

  771.   :general

  772.   (spcleader

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

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

  775. 

  776. ;;;;; Autopairs

  777. 

  778. (use-package autopair

  779.   :config

  780.   (autopair-global-mode))

  781. 

  782. ;;;;; Minions

  783. 

  784. (use-package minions

  785.   :config

  786.   (minions-mode t)

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

  788. 

  789. ;;;;; Helpful

  790. 

  791. (use-package helpful

  792.   :demand

  793.   :config

  794.   ;; Use helpful as backend for counsel describe

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

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

  797.         ;; use only one buffer for help

  798.         helpful-max-buffers 1)

  799. 

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

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

  802.                                        (side . left)

  803.                                        (window-width . 80)

  804.                                        (reusable-frames . nil)))

  805. 

  806.   :general

  807.   (:keymaps 'helpful-mode-map

  808.    :states 'normal

  809.    "TAB" 'forward-button

  810.    "q"   'quit-window)

  811. 

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

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

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

  815. 

  816.   :custom-face

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

  818. 

  819. ;;;; Completion

  820. ;;;;; Ivy

  821. ;;;;;; Ivy

  822. 

  823. (use-package ivy

  824.   :config

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

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

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

  828.   (setq ivy-wrap t

  829.         ivy-height 15

  830.         ivy-use-virtual-buffers t

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

  832.         ivy-extra-directories nil

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

  834. 

  835.   :general

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

  837.    "ð" 'ivy-previous-line

  838.    "ß" 'ivy-next-line

  839.    "ẞ" '(lambda ()

  840.           (interactive)

  841.           (scroll-other-window 1))

  842.    "Ð" '(lambda ()

  843.           (interactive)

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

  845.    "®" 'ivy-done

  846.    "þ" '(lambda ()

  847.             (interactive)

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

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

  850. 

  851. ;;;;;; Counsel

  852. 

  853. (use-package counsel

  854.   :general

  855.   (spcleader

  856.    "i"   'counsel-imenu

  857.    "f"   'counsel-find-file

  858.    "b"   'counsel-switch-buffer

  859.    "x"   'counsel-M-x

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

  861. 

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

  863.   (:states '(normal motion)

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

  865. 

  866. (defun maxx/counsel-describe ()

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

  868.   (interactive)

  869.   (let ((inhibit-message t)

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

  871.     (describe-symbol object)))

  872. 

  873. ;;;;; Company-tabnine

  874. 

  875. (use-package company-tabnine

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

  877.   :demand)

  878. 

  879. ;;;;; Company

  880. 

  881. (use-package company

  882.   :demand

  883.   :config

  884.   (global-company-mode t)

  885.   (setq company-idle-delay 0

  886.         tab-always-indent 'complete

  887.         company-minimum-prefix-length 2)

  888.   (nconc company-backends '(company-tabnine))

  889. 

  890.   :general

  891.   (:keymaps 'company-active-map

  892.    "ß" 'company-select-next

  893.    "ð" 'company-select-previous

  894.    "Ð" 'company-previous-page

  895.    "ẞ" 'company-next-page

  896.    "þ" 'company-abort

  897.    "®" 'company-complete

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

  899. 

  900. ;;;; Projectile

  901. ;;;;; Projectile

  902. 

  903. (use-package projectile

  904.   :config

  905.   (setq projectile-project-root-files '("README.org"))

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

  907.   (mapcar 'projectile-add-known-project

  908.         (mapcar (lambda (path) (substring path 0 -10))

  909.                 (directory-files-recursively "~/Projects" "README.org"))))

  910. 

  911. ;;;;; Counsel-projectile

  912. 

  913. (use-package counsel-projectile

  914.   :config

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

  916.         '(("pt"

  917.            "[${name}] Todo"

  918.            entry (file+headline "${root}/README.org" "Tasks")

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

  920.           ("pn"

  921.            "[${name}] Note"

  922.            entry (file+olp+datetree "${root}/README.org" "Notes")

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

  924.   :general

  925.   (spcleader

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

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

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

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

  930.     "pg"    'counsel-projectile-grep

  931.     "p SPC" 'counsel-projectile))

  932. 

  933. ;;;; Jump to definition

  934. 

  935. (use-package dumb-jump

  936.   :config

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

  938.   :general

  939.   (spcleader

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

  941. 

  942. ;;;; CSV mode

  943. 

  944. (use-package csv-mode)

  945. 

  946. ;;;; ESS

  947. ;;;;; ESS

  948. 

  949. (use-package ess

  950.   :config

  951.   (setq ess-ask-for-ess-directory nil)

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

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

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

  955.                                        (side . right)

  956.                                        (slot . 1)

  957.                                        (window-width . 0.2)

  958.                                        (reusable-frames . nil)))

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

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

  961.                                        (side . right)

  962.                                        (window-width . 0.4)

  963.                                        (reusable-frames . nil)))

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

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

  966.                                        (window-height . 0.3)

  967.                                        (reusable-frames . nil)))

  968. 

  969.   :general

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

  971.    :states 'normal

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

  973. 

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

  975.    :states 'visual

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

  977. 

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

  979.    :states 'insert

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

  981. 

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

  983.    :states 'insert

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

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

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

  987. 

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

  989.    :states '(insert normal)

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

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

  992. 

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

  994.    :states 'normal

  995.    "i" '(lambda ()

  996.           (interactive)

  997.           (if (= (line-number-at-pos) (count-lines (point-min) (point-max)))

  998.               (evil-insert 1)

  999.             (progn (goto-char (point-max))

  1000.                    (evil-append 1))))

  1001.               )

  1002. 

  1003.   :hook (ess-mode . (lambda ()

  1004.                       (setq-local prettify-symbols-alist '(("%>%" . "|>")))

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

  1006.                       (prettify-symbols-mode))))

  1007. 

  1008. ;;;;; Poly-R

  1009. 

  1010. (use-package poly-R

  1011.   :general

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

  1013.    :states 'normal

  1014.    "<tab>" 'markdown-cycle

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

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

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

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

  1019.    "þ"     'markdown-hide-subtree

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

  1021.               (markdown-show-children)

  1022.               (markdown-show-entry))

  1023.    "Þ"     'markdown-up-heading

  1024.    "M-r"   'markdown-demote

  1025.    "M-t"   'markdown-promote

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

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

  1028. 

  1029. ;;;; Git

  1030. ;;;;; Magit

  1031. 

  1032. (use-package magit

  1033.   :config

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

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

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

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

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

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

  1040.                                        (side . left)

  1041.                                        (window-width . 80)

  1042.                                        (reusable-frames . nil)))

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

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

  1045.                                        (side . left)

  1046.                                        (slot . 1)

  1047.                                        (window-height . .5)

  1048.                                        (window-width . 80)

  1049.                                        (reusable-frames . nil)))

  1050. 

  1051.   :general

  1052.   (spcleader

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

  1054.     "gd" 'magit-file-dispatch

  1055.     "gs" 'magit-status)

  1056. 

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

  1058.               magit-file-section-map

  1059.               magit-staged-section-map

  1060.               magit-unstaged-section-map

  1061.               magit-revision-mode-map

  1062.               magit-section-map

  1063.               magit-refs-mode-map

  1064.               magit-log-mode-map

  1065.               magit-diff-mode-map

  1066.               magit-untracked-section-map

  1067.               magit-status-mode-map

  1068.               magit-stash-section-map)

  1069.             "ð" 'magit-section-backward

  1070.             "ß" 'magit-section-forward

  1071.             "þ" 'magit-section-hide

  1072.             "®" 'magit-section-show

  1073.             "s" 'magit-next-line

  1074.             "d" 'magit-previous-line

  1075.             "q" 'quit-window)

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

  1077.               magit-status-mode-map

  1078.               magit-unstaged-section-map

  1079.               magit-untracked-section-map)

  1080.             "+" 'magit-stage

  1081.             "-" 'magit-unstage))

  1082. 

  1083. ;;;;; Magit-todos

  1084. 

  1085. (use-package magit-todos

  1086.   :config

  1087.   (magit-todos-mode))

  1088. 

  1089. ;;;;; Smerge

  1090. 

  1091. (use-package smerge-mode

  1092.   :general

  1093.   (:keymaps 'smerge-mode-map

  1094.    :states 'normal

  1095.    "RET" 'smerge-keep-current))

  1096. 

  1097. ;;;;; Git-gutter-fringe

  1098. 

  1099. (use-package git-gutter-fringe

  1100.   :config

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

  1102. 

  1103. ;;;; Slime

  1104. 

  1105. (use-package slime

  1106.   :config

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

  1108. 

  1109. ;;;; Flycheck

  1110. 

  1111. (use-package flycheck

  1112.   :config

  1113.   (global-flycheck-mode))

  1114. 

  1115. ;;;; Org

  1116. ;;;;; Org

  1117. 

  1118. (use-package org

  1119.   :demand

  1120.   :config

  1121.   ;; Supported languages in babel

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

  1123.    'org-babel-load-languages

  1124.    '((python . t)

  1125.      (R . t)

  1126.      (emacs-lisp . t)

  1127.      (shell . t)))

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

  1129.         ;; Folders

  1130.         org-directory "~/Projects"

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

  1132.         org-default-notes-file "~/Projects/agenda.org"

  1133.         ;; Startup

  1134.         org-startup-folded t

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

  1136.         org-startup-indented t

  1137.         org-startup-truncated t

  1138.         org-hide-emphasis-markers t

  1139.         org-hide-block-startup t

  1140.         ;; Org sub/superscript behavior

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

  1142.         org-pretty-entities t

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

  1144.         ;; RET behavior

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

  1146.         org-return-follows-link t

  1147.         org-image-actual-width 600

  1148.         ;; Generate UUIDs for links when storing link

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

  1150.         ;; Make todos dependent

  1151.         org-enforce-todo-checkbox-dependencies t

  1152.         org-enforce-todo-dependencies t

  1153.         ;; Hide blocked todos from agenda

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

  1155.         ;; Log states

  1156.         org-log-into-drawer t

  1157.         ;; Recursive todo statistics

  1158.         org-hierarchical-todo-statistics nil

  1159.         ;; Agenda window

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

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

  1162.         ;; Colors for TODOS

  1163.         org-todo-keyword-faces

  1164.         '(("TODO" . "red")

  1165.           ("WAITING" . "orange")

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

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

  1168.         org-agenda-span 10

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

  1170.         org-agenda-include-diary t

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

  1172.         org-agenda-tags-column -78

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

  1174.         ;; org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled

  1175.         ;; org-agenda-todo-ignore-scheduled 'all

  1176.         ;; org-agenda-sorting-strategy

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

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

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

  1180.         ;;   (search category-keep))

  1181.         )

  1182. 

  1183.   ;; Capture templates

  1184.   (setq org-capture-templates

  1185.         '(("t"

  1186.            "todo"

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

  1188.            "* SOMEDAY %^{todo}\n %? \n %a")

  1189.           ("n"

  1190.            "note"

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

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

  1193.           ("j"

  1194.            "journal note"

  1195.            entry (file+olp+datetree org-default-notes-file "Journal")

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

  1197.           ("c"

  1198.            "citation"

  1199.            entry (file+headline org-default-notes-file "Citations")

  1200.            "")

  1201.           ("C"

  1202.            "cheatsheet"

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

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

  1205. 

  1206.   ;; Org windows

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

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

  1209.                                        (side . right)

  1210.                                        (window-width . 80)

  1211.                                        (reusable-frames . nil)))

  1212. 

  1213.   ;; Project mode

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

  1215.                '("p"

  1216.                  "project"

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

  1218.                  "* %^{Nom du projet}\n %?\n"))

  1219. 

  1220.   ;; Register the dotfiles README.org

  1221.   (add-to-list 'org-agenda-files "~/dotfiles/README.org")

  1222. 

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

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

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

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

  1227. 

  1228.   ;; Strike-through for checked boxes

  1229.   (defface org-checkbox-done-text

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

  1231.     "Face for text of checked boxes")

  1232.   (font-lock-add-keywords

  1233.    'org-mode

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

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

  1236.    'append)

  1237. 

  1238.   ;; Menu keybindings

  1239.   :general

  1240.   (spcleader

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

  1242.    "oo" '((lambda () (interactive) (find-file org-default-notes-file)) :which-key "Open org file")

  1243.    "oa" 'org-agenda

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

  1245.    "ol" 'org-insert-link

  1246.    "oL" 'org-store-link

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

  1248.    "os" 'org-sort

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

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

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

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

  1253.    "oE" 'org-export-dispatch

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

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

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

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

  1258.    "od" 'org-insert-drawer

  1259.    "ot" 'org-todo

  1260.    "op" 'org-set-property

  1261.    "oC" 'org-columns

  1262.    "of" 'org-footnote-action

  1263.    "ow" 'org-refile)

  1264. 

  1265.   ;; Normal keybindings

  1266.   (:keymaps  'org-mode-map

  1267.    :states   'normal

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

  1269.    "U"       'undo-tree-redo

  1270.    "<tab>"   'org-cycle

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

  1272.    "M-s"     'org-metadown

  1273.    "M-d"     'org-metaup

  1274.    "M-r"     'org-metaright

  1275.    "M-t"     'org-metaleft

  1276.    "M-S"     'org-shiftmetadown

  1277.    "M-D"     'org-shiftmetaup

  1278.    "M-R"     'org-shiftmetaright

  1279.    "M-T"     'org-shiftmetaleft

  1280.    "C-s"     'org-shiftdown

  1281.    "C-d"     'org-shiftup

  1282.    "C-r"     'org-shiftright

  1283.    "C-t"     'org-shiftleft)

  1284. 

  1285.   ;; Insert keybindings

  1286.   (:keymaps 'org-mode-map

  1287.    :states  '(normal insert)

  1288.    "Þ"      'outline-up-heading

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

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

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

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

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

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

  1295. 

  1296.   ;; Agenda keybindings

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

  1298.    :states  '(normal)

  1299.    "q"      'org-agenda-quit

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

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

  1302.    "T"      'org-agenda-todo

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

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

  1305.    "RET"    'org-agenda-goto

  1306.    "®"      'org-agenda-goto

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

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

  1309. 

  1310.   ;; Pretty checkboxes

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

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

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

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

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

  1316.                       (prettify-symbols-mode)))

  1317. 

  1318.   :custom-face

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

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

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

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

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

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

  1325. 

  1326. ;;;;; Org-bullets

  1327. 

  1328. (use-package org-bullets

  1329.   :config

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

  1331. 

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

  1333. 

  1334. ;;;;; Org fancy priorities

  1335. 

  1336. (use-package org-fancy-priorities

  1337.   :config

  1338.   ;; Set colors

  1339.   (setq org-priority-faces

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

  1341.           (?B . "orange")

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

  1343. 

  1344.   ;; Set chars

  1345.   (setq org-fancy-priorities-list

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

  1347.           (?B . "·")

  1348.           (?C . "⬇")))

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

  1350. 

  1351. ;;;;; Outshine

  1352. 

  1353. (use-package outshine

  1354.   :general

  1355.   (:keymaps 'outshine-mode-map

  1356.    :states 'normal

  1357.    "<tab>"   'outshine-cycle

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

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

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

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

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

  1363.    "Þ"       'outline-up-heading

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

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

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

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

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

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

  1370.    )

  1371. 

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

  1373. 

  1374. ;;;; Mu4e

  1375. ;;;;; Mu4e

  1376. 

  1377. (use-package mu4e

  1378.   :demand

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

  1380.   :config

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

  1382. 

  1383.   ;; Folders

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

  1385.         mu4e-drafts-folder "/Drafts"

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

  1387. 

  1388.   ;; and their shortcuts

  1389.   (setq mu4e-maildir-shortcuts

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

  1391.           ("/Archives" . ?a)

  1392.           ("/Trash"    . ?t)

  1393.           ("/Junk"     . ?j)

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

  1395. 

  1396.   ;; Mail accounts

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

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

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

  1400.                mu4e-refile-folder "/Inbox/Archives"

  1401.                mu4e-maildir-shortcuts

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

  1403.                  ("/Inbox/Archives" . ?a)

  1404.                  ("/Trash"          . ?t)

  1405.                  ("/Junk"           . ?j)

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

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

  1408. Assistant Hospitalo-Universitaire

  1409. Pôle Informatique et Santé Publique

  1410. Hôpital Européen Georges Pompidou

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

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

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

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

  1415.                mu4e-refile-folder "/Archives"

  1416.                mu4e-compose-signature "Maxime"

  1417.                )))

  1418. 

  1419.   ;; Options

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

  1421.         mu4e-update-interval 180

  1422.         mu4e-headers-auto-update t

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

  1424.         mu4e-compose-format-flowed t

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

  1426.         mu4e-compose-in-new-frame t

  1427.         mu4e-view-show-images t

  1428.         mu4e-headers-sort-direction 'ascending

  1429.         mu4e-confirm-quit nil

  1430.         ;; Required by mbsync

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

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

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

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

  1435.         mu4e-split-view 'vertical

  1436.         mu4e-headers-visible-columns 110

  1437.         mu4e-headers-include-related nil

  1438.         mu4e-headers-results-limit 500

  1439.         )

  1440. 

  1441.   (setq mu4e-headers-fields

  1442.         '((:flags . 4)

  1443.           (:thread-subject . 50)

  1444.           (:size . 6)

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

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

  1447. 

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

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

  1450.     (imagemagick-register-types))

  1451. 

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

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

  1454. 

  1455.   :general

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

  1457.    :states 'normal

  1458.    "ð" 'mu4e-headers-prev

  1459.    "ß" 'mu4e-headers-next

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

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

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

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

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

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

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

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

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

  1469.    "T" 'mu4e-compose-new

  1470.    "F" 'mu4e-compose-forward

  1471.    "R" 'mu4e-compose-reply

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

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

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

  1475.    "M" 'mu4e-headers-mark-for-move

  1476.    )

  1477. 

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

  1479.    :states 'normal

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

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

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

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

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

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

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

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

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

  1489.    "T" 'mu4e-compose-new

  1490.    "F" 'mu4e-compose-forward

  1491.    "R" 'mu4e-compose-reply

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

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

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

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

  1496.    "A" 'mu4e-view-attachment-action

  1497.             )

  1498.   )

  1499. 

  1500. ;;;;; smtpmail

  1501. 

  1502. (use-package smtpmail

  1503.   :config

  1504.   (setq smtpmail-queue-mail nil

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

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

  1507.     ;; Mail accounts

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

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

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

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

  1512.          (setq smtpmail-smtp-server "localhost"

  1513.                auth-sources '(password-store)

  1514.                smtpmail-smtp-service 1025))))

  1515. 

  1516. ;;;;; Org-mime

  1517. 

  1518. (use-package org-mime)

  1519. 

  1520. ;;;;; Org-mu4e

  1521. 

  1522. (use-package org-mu4e

  1523.   :ensure nil

  1524.   :config

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

  1526.   (defun org~mu4e-mime-convert-to-html ()

  1527.     "Convert the current body to html."

  1528.     (unless (fboundp 'org-export-string-as)

  1529.       (mu4e-error "require function 'org-export-string-as not found"))

  1530.     (let* ((begin

  1531.             (save-excursion

  1532.               (goto-char (point-min))

  1533.               (search-forward mail-header-separator)))

  1534.            (end (point-max))

  1535.            (raw-body (buffer-substring begin end))

  1536.            (tmp-file (make-temp-name (expand-file-name "mail"

  1537.                                                        temporary-file-directory)))

  1538.            ;; because we probably don't want to skip part of our mail

  1539.            (org-export-skip-text-before-1st-heading nil)

  1540.            ;; because we probably don't want to export a huge style file

  1541.            (org-export-htmlize-output-type 'inline-css)

  1542.            ;; makes the replies with ">"s look nicer

  1543.            (org-export-preserve-breaks nil)

  1544.            ;; turn off TOC

  1545.            (org-export-with-toc nil)

  1546.            ;; dvipng for inline latex because MathJax doesn't work in mail

  1547.            (org-export-with-LaTeX-fragments

  1548.             (if (executable-find "dvipng") 'dvipng

  1549.               (mu4e-message "Cannot find dvipng, ignore inline LaTeX") nil))

  1550.            ;; to hold attachments for inline html images

  1551.            (html-and-images

  1552.             (org~mu4e-mime-replace-images

  1553.              (org-export-string-as raw-body 'html t)

  1554.              tmp-file))

  1555.            (html-images (cdr html-and-images))

  1556.            (html (car html-and-images)))

  1557.       (delete-region begin end)

  1558.       (save-excursion

  1559.         (goto-char begin)

  1560.         (newline)

  1561.         (insert (org~mu4e-mime-multipart

  1562.                  raw-body html (mapconcat 'identity html-images "\n"))))))

  1563. 

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

  1565.   )

  1566. 

  1567. ;;;;; Htmlize

  1568. 

  1569. (use-package htmlize)