This is my .emacs.el file, as a HTMLized emacs.org file.
You can browse the .el file here or clone the .org file from github.
Comments and suggestions are welcome! bzg AT gnu DOT org
;;; emacs.el --- bzg's GNU Emacs configuration -*- lexical-binding: t; -*-
;; This is bzg's GNU Emacs configuration, refined over the years.
;; For more Emacs-related stuff, see https://bzg.fr/en/tags/emacs/
;;
;; Code in this file is licensed under the GNU GPLv3 or any later
;; version.
;; Set `package-archives' to the ones I use
(setq package-archives
'(("gnu" . "http://elpa.gnu.org/packages/")
("nongnu" . "http://elpa.nongnu.org/nongnu/")
("melpa" . "http://melpa.org/packages/")));; Unset C-z which is bound to `suspend-frame' by default
(global-unset-key (kbd "C-z"))
;; Load my customization file
(setq custom-file "/home/bzg/.emacs.d/emacs-custom.el")
(load custom-file)
;; Initialize Org from sources
;; See https://orgmode.org/manual/Installation.html
(add-to-list 'load-path "~/install/git/org-mode/lisp/")
(add-to-list 'load-path "~/install/git/org-contrib/lisp/")
;; Initialize my `exec-path' and `load-path' with custom paths
(add-to-list 'exec-path "~/bin/")
;; Include org-mode and emacs local paths into Info
(add-to-list 'Info-directory-list "~/install/git/org-mode/doc/")
(add-to-list 'Info-directory-list "~/install/git/emacs/info/")
;; Don't ask for confirmation for "dangerous" commands
(put 'erase-buffer 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'set-goal-column 'disabled nil)
(put 'list-threads 'disabled nil)
(put 'scroll-left 'disabled nil)
;; Set `sentence-end-double-space' to nil
(setq sentence-end-double-space nil)
;; Expect local variables to be known
(setq enable-local-eval t)
;; Who I am
(setq user-full-name "Bastien Guerry")
(setq user-mail-address "bzg@bzg.fr")
;; Let's get a backtrace when errors are
(setq debug-on-error t)
;; Display byte-compiler warnings on error
(setq byte-compile-debug t)
;; The default is to wait 1 second, which I find a bit long
(setq echo-keystrokes 0.1)
;; ;; Let search for "e" match e.g. "é":
(setq search-default-mode 'char-fold-to-regexp)
;; Stop polluting the directory with auto-saved files and backup
(setq auto-save-default nil)
(setq make-backup-files nil)
;; Well, it's more so that you know this option
(setq kill-whole-line t)
(setq kill-read-only-ok t)
(setq require-final-newline t)
;; Scrolling done right
(setq scroll-error-top-bottom t)
(setq focus-follows-mouse t)
;; Number of lines of continuity when scrolling by screenfulls
(setq next-screen-context-lines 0)
;; Always use "y" for "yes"
(fset 'yes-or-no-p 'y-or-n-p);; Enabling and disabling some modes
;; Less is more - see https://bzg.fr/en/emacs-strip-tease/
(auto-insert-mode 1)
(display-time-mode 1)
(tooltip-mode -1)
(blink-cursor-mode -1)
(pixel-scroll-mode 1)
;; Default Frame
(setq initial-frame-alist
'((left-margin-width . 10)
(menu-bar-lines . 0)
(tool-bar-lines . 0)
(horizontal-scroll-bars . nil)
(vertical-scroll-bars . nil)))
;; Don't display initial messages
(setq initial-scratch-message "")
(setq initial-major-mode 'org-mode)
(setq inhibit-startup-screen t)
(setq inhibit-startup-echo-area-message t)
(setq use-dialog-box nil)
(setq default-frame-alist initial-frame-alist)
(setq line-move-visual nil)
(setq visible-bell t)
(setq tab-bar-show nil)
(set-frame-parameter nil 'fullscreen 'fullboth)(setq bzg-alt-font-size 200)
(setq bzg-default-font-size 120)
(defun bzg-toggle-default-font-size ()
(interactive)
(if (< (abs (- (face-attribute 'default :height) bzg-alt-font-size)) 10)
(custom-set-faces
`(default ((t (:height ,bzg-default-font-size)))))
(custom-set-faces
`(default ((t (:height ,bzg-alt-font-size)))))))
(add-to-list 'custom-theme-load-path "~/install/git/vxid-theme/")
(load-theme 'vxid)
;; Org agenda view keybindings
(global-set-key (kbd "C-!") (lambda () (interactive) (org-agenda nil "[")))
(global-set-key (kbd "C-M-!") (lambda () (interactive) (org-agenda nil "{")))
(global-set-key (kbd "C-*") (lambda () (interactive) (org-agenda nil "n!")))
(global-set-key (kbd "C-M-*") (lambda () (interactive) (org-agenda nil "n§")))
(global-set-key (kbd "C-$") (lambda () (interactive) (org-agenda nil "d!")))
(global-set-key (kbd "C-M-$") (lambda () (interactive) (org-agenda nil "d§")))
(global-set-key (kbd "C-ù") (lambda () (interactive) (org-agenda nil "$")))
(global-set-key (kbd "C-M-ù") (lambda () (interactive) (org-agenda nil "%")))
;; Other useful global keybindings
(define-key global-map "\M-Q" 'unfill-paragraph)
(global-set-key "\M- " 'hippie-expand)
(global-set-key (kbd "<home>") 'beginning-of-buffer)
(global-set-key (kbd "<end>") 'end-of-buffer)
(global-set-key (kbd "<f9>") 'calc)
(global-set-key (kbd "<f10>") (lambda () (interactive) (if (eq major-mode 'calendar-mode) (calendar-exit) (calendar))))
(global-set-key (kbd "<f11>") 'bzg-toggle-browser)
(global-set-key (kbd "<f12>") 'global-hl-line-mode)
(global-set-key (kbd "C-&") 'gnus)
(global-set-key (kbd "C-+") 'text-scale-increase)
(global-set-key (kbd "C--") 'text-scale-decrease)
(global-set-key (kbd "C-=") 'bzg-toggle-default-font-size)
(global-set-key (kbd "C-M-=") 'bzg-toggle-fringe-width)
(global-set-key (kbd "C-\"") (lambda () (interactive) (dired "~") (revert-buffer)))
(global-set-key (kbd "C-c F") 'auto-fill-mode)
(global-set-key (kbd "C-c o") 'occur)
(global-set-key (kbd "C-c O") 'multi-occur)
(global-set-key (kbd "C-c f") 'find-name-dired)
(global-set-key (kbd "C-c g") 'deadgrep)
(global-set-key (kbd "C-c m") 'magit-status)
(global-set-key (kbd "C-x <C-backspace>") 'bzg-find-bzg)
(global-set-key (kbd "C-x C-<left>") 'tab-previous)
(global-set-key (kbd "C-x C-<right>") 'tab-next)
(global-set-key (kbd "C-²") 'follow-delete-other-windows-and-split)
(global-set-key (kbd "C-é") 'bzg-cycle-view)
(global-set-key (kbd "C-M-]") 'origami-toggle-all-nodes)
(global-set-key (kbd "M-]") 'origami-toggle-node)
;; Easily jump to my main org file
(defun bzg-find-bzg nil
"Find the bzg.org file."
(interactive)
(find-file "~/org/bzg.org")
(hidden-mode-line-mode 1)
(delete-other-windows))
;; Easily unfill paragraphs
(defun unfill-paragraph ()
"Make a multi-line paragraph into a single line of text."
(interactive)
(let ((fill-column (point-max)))
(fill-paragraph nil)))(require 'org-tempo)
(require 'org-bullets)
(setq org-bullets-bullet-list '("►" "▸" "•" "★" "◇" "◇" "◇" "◇"))
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
(add-hook 'org-mode-hook (lambda () (electric-indent-local-mode -1)))
(add-hook 'message-mode-hook (lambda () (abbrev-mode 0)))
(require 'ol-gnus)
;; org-mode global keybindings
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(define-key global-map "\C-cc" 'org-capture)
(define-key global-map "\C-cL" 'org-occur-link-in-agenda-files)
;; Hook to update all blocks before saving
(add-hook 'org-mode-hook
(lambda() (add-hook 'before-save-hook
'org-update-all-dblocks t t)))
;; Hook to display dormant article in Gnus
(add-hook 'org-follow-link-hook
(lambda ()
(if (eq major-mode 'gnus-summary-mode)
(gnus-summary-insert-dormant-articles))))
(setq org-adapt-indentation 'headline-data)
(setq org-priority-start-cycle-with-default nil)
(setq org-pretty-entities t)
(setq org-fast-tag-selection-single-key 'expert)
(setq org-footnote-auto-label 'confirm)
(setq org-footnote-auto-adjust t)
(setq org-hide-emphasis-markers t)
(setq org-hide-macro-markers t)
(setq org-link-frame-setup '((gnus . gnus) (file . find-file-other-window)))
(setq org-log-into-drawer t)
(setq org-log-note-headings
'((done . "CLOSING NOTE %t") (state . "State %-12s %t") (clock-out . "")))
(setq org-refile-targets '((org-agenda-files . (:maxlevel . 3))
(("~/org/mll-todo/todo.org") . (:maxlevel . 1))
(("~/org/libre.org") . (:maxlevel . 1))))
(setq org-refile-use-outline-path t)
(setq org-refile-allow-creating-parent-nodes t)
(setq org-refile-use-cache t)
(setq org-element-use-cache nil)
(setq org-return-follows-link t)
(setq org-reverse-note-order t)
(setq org-scheduled-past-days 100)
(setq org-special-ctrl-a/e 'reversed)
(setq org-special-ctrl-k t)
(setq org-stuck-projects '("+LEVEL=1" ("NEXT" "TODO" "DONE")))
(setq org-tag-persistent-alist '(("Write" . ?w) ("Read" . ?r)))
(setq org-tag-alist
'((:startgroup)
("Handson" . ?o)
(:grouptags)
("Write" . ?w) ("Code" . ?c) ("Tel" . ?t)
(:endgroup)
(:startgroup)
("Handsoff" . ?f)
(:grouptags)
("Read" . ?r) ("View" . ?v) ("Listen" . ?l)
(:endgroup)
("Mail" . ?@) ("Print" . ?P) ("Buy" . ?b)))
(setq org-todo-keywords '((type "STRT" "NEXT" "TODO" "WAIT" "|" "DONE" "DELEGATED" "CANCELED")))
(setq org-todo-repeat-to-state t)
(setq org-use-property-inheritance t)
(setq org-use-sub-superscripts '{})
(setq org-insert-heading-respect-content t)
(setq org-confirm-babel-evaluate nil)
(setq org-id-uuid-program "uuidgen")
(setq org-use-speed-commands
(lambda nil
(and (looking-at org-outline-regexp-bol)
(not (org-in-src-block-p t)))))
(setq org-todo-keyword-faces
'(("STRT" . (:inverse-video t :foreground (face-foreground 'default)))
("NEXT" . (:weight bold :foreground (face-foreground 'default)))
("WAIT" . (:inverse-video t))
("CANCELED" . (:inverse-video t))))
(setq org-footnote-section "Notes")
(setq org-link-abbrev-alist
'(("ggle" . "http://www.google.com/search?q=%s")
("gmap" . "http://maps.google.com/maps?q=%s")
("omap" . "http://nominatim.openstreetmap.org/search?q=%s&polygon=1")))
(setq org-attach-id-dir "~/org/data/")
(setq org-allow-promoting-top-level-subtree t)
(setq org-blank-before-new-entry '((heading . t) (plain-list-item . auto)))
(setq org-enforce-todo-dependencies t)
(setq org-fontify-whole-heading-line t)
(setq org-file-apps
'((auto-mode . emacs)
(directory . emacs)
("\\.mm\\'" . default)
("\\.x?html?\\'" . default)
("\\.pdf\\'" . "evince %s")))
(setq org-hide-leading-stars t)
(setq org-global-properties '(("Effort_ALL" . "0:10 0:30 1:00 1:24 2:00 3:30 7:00")))
(setq org-cycle-include-plain-lists nil)
(setq org-default-notes-file "~/org/notes.org")
(setq org-link-email-description-format "%c: %.50s")
(setq org-support-shift-select t)
(setq org-ellipsis "…")(org-clock-persistence-insinuate)
(setq org-clock-display-default-range 'thisweek)
(setq org-clock-persist t)
(setq org-clock-idle-time 60)
(setq org-clock-in-resume t)
(setq org-clock-out-remove-zero-time-clocks t)
(setq org-clock-sound "~/Music/clock.wav")
;; Set headlines to STRT when clocking in
(add-hook 'org-clock-in-hook (lambda() (org-todo "STRT")))
;; Set headlines to STRT and clock-in when running a countdown
(add-hook 'org-timer-set-hook
(lambda ()
(if (eq major-mode 'org-agenda-mode)
(call-interactively 'org-agenda-clock-in)
(call-interactively 'org-clock-in))))
(add-hook 'org-timer-done-hook
(lambda ()
(if (and (eq major-mode 'org-agenda-mode)
org-clock-current-task)
(call-interactively 'org-agenda-clock-out)
(call-interactively 'org-clock-out))))
(add-hook 'org-timer-pause-hook
(lambda ()
(if org-clock-current-task
(if (eq major-mode 'org-agenda-mode)
(call-interactively 'org-agenda-clock-out)
(call-interactively 'org-clock-out)))))
(add-hook 'org-timer-stop-hook
(lambda ()
(if org-clock-current-task
(if (eq major-mode 'org-agenda-mode)
(call-interactively 'org-agenda-clock-out)
(call-interactively 'org-clock-out)))))(setq org-capture-templates
'(("c" "Misc (edit)" entry (file+headline "~/org/bzg.org" "Basement")
"* TODO %?\n :PROPERTIES:\n :CAPTURED: %U\n :END:\n\n- %a" :prepend t)
("C" "Misc" entry (file+headline "~/org/bzg.org" "Basement")
"* TODO %a\n :PROPERTIES:\n :CAPTURED: %U\n :END:\n"
:prepend t :immediate-finish t)
("r" "RDV Perso" entry (file+headline "~/org/rdv.org" "RDV Perso")
"* RDV avec %:fromname %?\n SCHEDULED: %^T\n :PROPERTIES:\n :CAPTURED: %U\n :END:\n\n- %a" :prepend t)
("R" "RDV MLL" entry (file+headline "~/org/rdv-mll.org" "RDV MLL")
"* RDV avec %:fromname %?\n SCHEDULED: %^T\n :PROPERTIES:\n :CAPTURED: %U\n :END:\n\n- %a" :prepend t)
("o" "Org" entry (file+headline "~/org/bzg.org" "Org")
"* TODO %a\n :PROPERTIES:\n :CAPTURED: %U\n :END:\n\n" :prepend t)
("m" "MLL" entry (file+headline "~/org/bzg.org" "MLL")
"* TODO %?\n :PROPERTIES:\n :CAPTURED: %U\n :END:\n\n- %a\n\n%i" :prepend t)
("g" "Garden" entry (file+headline "~/org/libre.org" "Garden")
"* TODO %?\n :PROPERTIES:\n :CAPTURED: %U\n :END:\n\n- %a\n\n%i" :prepend t)
))
(setq org-capture-templates-contexts
'(("r" ((in-mode . "gnus-summary-mode")
(in-mode . "gnus-article-mode")
(in-mode . "message-mode")))
("R" ((in-mode . "gnus-summary-mode")
(in-mode . "gnus-article-mode")
(in-mode . "message-mode")))))(org-babel-do-load-languages
'org-babel-load-languages
'((emacs-lisp . t)
(shell . t)
(dot . t)
(clojure . t)
(org . t)
(ditaa . t)
(org . t)
(ledger . t)
(scheme . t)
(plantuml . t)
(R . t)
(gnuplot . t)))
(setq org-babel-default-header-args
'((:session . "none")
(:results . "replace")
(:exports . "code")
(:cache . "no")
(:noweb . "yes")
(:hlines . "no")
(:tangle . "no")
(:padnewline . "yes")))
(setq org-edit-src-content-indentation 0)
(setq org-babel-clojure-backend 'babashka)
(setq org-link-elisp-confirm-function nil)
(setq org-link-shell-confirm-function nil)
(setq org-plantuml-jar-path "/home/bzg/bin/plantuml.jar")
(add-to-list 'org-src-lang-modes '("plantuml" . plantuml))
(org-babel-do-load-languages 'org-babel-load-languages '((plantuml . t)))(require 'ox-md)
(require 'ox-beamer)
(require 'ox-latex)
(require 'ox-odt)
(require 'ox-koma-letter)
(setq org-koma-letter-use-email t)
(setq org-koma-letter-use-foldmarks nil)
(add-to-list 'org-latex-classes
'("my-letter"
"\\documentclass\{scrlttr2\}
\\usepackage[english,frenchb]{babel}
\[NO-DEFAULT-PACKAGES]
\[NO-PACKAGES]
\[EXTRA]"))
(setq org-export-with-broken-links t)
(setq org-export-default-language "fr")
(setq org-export-backends '(latex odt icalendar html ascii koma-letter))
(setq org-export-with-archived-trees nil)
(setq org-export-with-drawers '("HIDE"))
(setq org-export-with-section-numbers nil)
(setq org-export-with-sub-superscripts nil)
(setq org-export-with-tags 'not-in-toc)
(setq org-export-with-timestamps t)
(setq org-html-head "")
(setq org-html-head-include-default-style nil)
(setq org-export-with-toc nil)
(setq org-export-with-priority t)
(setq org-export-dispatch-use-expert-ui t)
(setq org-export-use-babel t)
(setq org-latex-pdf-process
'("pdflatex -interaction nonstopmode -shell-escape -output-directory %o %f" "pdflatex -interaction nonstopmode -shell-escape -output-directory %o %f" "pdflatex -interaction nonstopmode -shell-escape -output-directory %o %f"))
(setq org-export-allow-bind-keywords t)
(setq org-publish-list-skipped-files nil)
(setq org-html-table-row-tags
(cons '(cond (top-row-p "<tr class=\"tr-top\">")
(bottom-row-p "<tr class=\"tr-bottom\">")
(t (if (= (mod row-number 2) 1)
"<tr class=\"tr-odd\">"
"<tr class=\"tr-even\">")))
"</tr>"))
(setq org-html-head-include-default-style nil)
(add-to-list 'org-latex-packages-alist '("AUTO" "babel" t ("pdflatex")))(org-agenda-to-appt)
;; Hook to display the agenda in a single window
(add-hook 'org-agenda-finalize-hook 'delete-other-windows)
(setq org-deadline-warning-days 3)
(setq org-agenda-inhibit-startup t)
(setq org-agenda-diary-file "/home/bzg/org/rdv.org")
(setq org-agenda-files '("~/org/rdv.org" "~/org/rdv-mll.org" "~/org/bzg.org"))
(setq org-agenda-prefix-format
'((agenda . " %i %-12:c%?-14t%s")
(timeline . " % s")
(todo . " %i %-14:c")
(tags . " %i %-14:c")
(search . " %i %-14:c")))
(setq org-agenda-remove-tags t)
(setq org-agenda-restore-windows-after-quit t)
(setq org-agenda-show-inherited-tags nil)
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-skip-timestamp-if-done t)
(setq org-agenda-sorting-strategy
'((agenda time-up) (todo time-up) (tags time-up) (search time-up)))
(setq org-agenda-tags-todo-honor-ignore-options t)
(setq org-agenda-use-tag-inheritance nil)
(setq org-agenda-window-frame-fractions '(0.0 . 0.5))
(setq org-agenda-deadline-faces
'((1.0001 . org-warning) ; due yesterday or before
(0.0 . org-upcoming-deadline))) ; due today or later
;; icalendar stuff
(setq org-icalendar-include-todo 'all)
(setq org-icalendar-combined-name "Bastien Guerry ORG")
(setq org-icalendar-use-scheduled '(todo-start event-if-todo event-if-not-todo))
(setq org-icalendar-use-deadline '(todo-due event-if-todo event-if-not-todo))
(setq org-icalendar-timezone "Europe/Paris")
(setq org-icalendar-store-UID t)
(setq org-agenda-custom-commands
'(
;; Week agenda for rendez-vous and tasks
("$" "All appointments" agenda* "Week planning"
((org-agenda-span 'week)
(org-agenda-sorting-strategy
'(time-up todo-state-up priority-down))))
("%" "Personal appointments" agenda* "Month planning"
((org-agenda-span 'month)
(org-agenda-files '("~/org/rdv.org"))
(org-agenda-sorting-strategy
'(time-up todo-state-up priority-down))))
("@" "Mail" tags-todo "+Mail+TODO={STRT\\|NEXT\\|TODO\\|WAIT}"
((org-agenda-sorting-strategy
'(todo-state-up deadline-up priority-down))))
("?" "Waiting" tags-todo "+TODO={WAIT}")
("#" "To archive"
todo "DONE|CANCELED|DELEGATED"
((org-agenda-sorting-strategy '(timestamp-up))))
("[" "Today's tasks for MLL" agenda "Tasks and rdv for today"
((org-agenda-category-filter-preset '("+MLL"))
(org-agenda-span 1)
(org-agenda-files '("~/org/bzg.org"))
(org-agenda-sorting-strategy
'(deadline-up scheduled-up todo-state-up priority-down))))
("{" "Today's tasks for non-MLL" agenda "Tasks and rdv for today"
((org-agenda-category-filter-preset '("-MLL"))
(org-agenda-span 1)
(org-agenda-files '("~/org/bzg.org"))
(org-agenda-sorting-strategy
'(deadline-up scheduled-up todo-state-up priority-down))))
("n" . "What's next?")
("nn" "STRT/NEXT all" tags-todo "TODO={STRT\\|NEXT}"
((org-agenda-files '("~/org/bzg.org"))
(org-agenda-sorting-strategy
'(todo-state-up deadline-up priority-down time-up))))
("n!" "STRT/NEXT MLL" tags-todo "TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("+MLL"))
(org-agenda-files '("~/org/bzg.org"))
(org-agenda-sorting-strategy
'(todo-state-up deadline-up priority-down time-up))))
("n§" "STRT/NEXT -MLL" tags-todo "TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("-MLL"))
(org-agenda-files '("~/org/bzg.org"))
(org-agenda-sorting-strategy
'(todo-state-up priority-down time-up))))
("n?" "STRT/NEXT (libre)" tags-todo "TODO={STRT\\|NEXT}"
((org-agenda-files '("~/org/libre.org"))
(org-agenda-sorting-strategy
'(todo-state-up deadline-up priority-down time-up))))
("t" . "What's next to do?")
("tt" "TODO all" tags-todo "TODO={TODO}"
((org-agenda-files '("~/org/bzg.org"))
(org-agenda-sorting-strategy
'(todo-state-up deadline-up priority-down time-up))))
("t!" "TODO MLL" tags-todo "TODO={TODO}"
((org-agenda-category-filter-preset '("+MLL"))
(org-agenda-files '("~/org/bzg.org"))
(org-agenda-sorting-strategy
'(todo-state-up deadline-up priority-down time-up))))
("t§" "TODO -MLL" tags-todo "TODO={TODO}"
((org-agenda-category-filter-preset '("-MLL"))
(org-agenda-files '("~/org/bzg.org"))
(org-agenda-sorting-strategy
'(todo-state-up priority-down time-up))))
("t?" "TODO (libre)" tags-todo "TODO={TODO}"
((org-agenda-files '("~/org/libre.org"))
(org-agenda-sorting-strategy
'(todo-state-up deadline-up priority-down time-up))))
(":" "Scheduled item work" agenda "Scheduled items"
((org-agenda-span 3)
(org-agenda-entry-types '(:scheduled))
(org-agenda-sorting-strategy
'(scheduled-up deadline-up todo-state-up priority-down))))
("d" . "Deadlines")
("dd" "Deadlines all" agenda "Past/upcoming deadlines"
((org-agenda-span 1)
(org-deadline-warning-days 60)
(org-agenda-entry-types '(:deadline))
(org-agenda-sorting-strategy
'(deadline-up todo-state-up priority-down))))
("d!" "Deadlines MLL" agenda "Past/upcoming work deadlines"
((org-agenda-span 1)
(org-agenda-category-filter-preset '("+MLL"))
(org-deadline-warning-days 60)
(org-agenda-entry-types '(:deadline))
(org-agenda-sorting-strategy
'(deadline-up todo-state-up priority-down))))
("d§" "Deadlines -MLL" agenda "Past/upcoming non-work deadlines"
((org-agenda-span 1)
(org-agenda-category-filter-preset '("-MLL"))
(org-deadline-warning-days 60)
(org-agenda-entry-types '(:deadline))
(org-agenda-sorting-strategy
'(deadline-up todo-state-up priority-down))))
("d?" "Deadlines libre" agenda "Past/upcoming deadlines (libre)"
((org-agenda-span 1)
(org-agenda-files '("~/org/libre.org"))
(org-deadline-warning-days 60)
(org-agenda-entry-types '(:deadline))
(org-agenda-sorting-strategy
'(deadline-up todo-state-up priority-down))))
("A" "Write, Code, Mail" tags-todo
"+TAGS={Write\\|Code\\|Mail}+TODO={STRT}")
("Z" "Read, Listen, View" tags-todo
"+TAGS={Read\\|Listen\\|View}+TODO={STRT}")
("r" . "Read")
("rr" "Read STRT/NEXT" tags-todo "+Read+TODO={STRT\\|NEXT}")
("rt" "Read TODO" tags-todo "+Read+TODO={TODO}")
("r!" "Read MLL" tags-todo "+Read+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("+MLL"))))
("r§" "Read -MLL" tags-todo "+Read+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("-MLL"))))
("r?" "Read (libre)" tags-todo "+Read+TODO={STRT\\|NEXT}"
((org-agenda-files '("~/org/libre.org"))))
("v" . "View")
("vv" "View STRT/NEXT" tags-todo "+View+TODO={STRT\\|NEXT}")
("vt" "View TODO" tags-todo "+View+TODO={TODO}")
("v!" "View MLL" tags-todo "+View+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("+MLL"))))
("v§" "View -MLL" tags-todo "+View+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("-MLL"))))
("v?" "View (libre)" tags-todo "+View+TODO={STRT\\|NEXT}"
((org-agenda-files '("~/org/libre.org"))))
("l" . "Listen")
("ll" "Listen STRT/NEXT" tags-todo "+Listen+TODO={STRT\\|NEXT}")
("lt" "Listen TODO" tags-todo "+Listen+TODO={TODO}")
("l!" "Listen MLL" tags-todo "+Listen+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("+MLL"))))
("l§" "Listen -MLL" tags-todo "+Listen+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("-MLL"))))
("l?" "Listen (libre)" tags-todo "+Listen+TODO={STRT\\|NEXT}"
((org-agenda-files '("~/org/libre.org"))))
("w" . "Write")
("ww" "Write STRT/NEXT" tags-todo "+Write+TODO={STRT\\|NEXT}")
("wt" "Write TODO" tags-todo "+Write+TODO={TODO}")
("w!" "Write MLL" tags-todo "+Write+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("+MLL"))))
("w§" "Write -MLL" tags-todo "+Write+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("-MLL"))))
("w?" "Write (libre)" tags-todo "+Write+TODO={STRT\\|NEXT}"
((org-agenda-files '("~/org/libre.org"))))
("c" . "Code")
("cc" "Code STRT/NEXT" tags-todo "+Code+TODO={STRT\\|NEXT}")
("ct" "Code TODO" tags-todo "+Code+TODO={TODO}")
("c!" "Code MLL" tags-todo "+Code+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("+MLL"))))
("c§" "Code -MLL" tags-todo "+Code+TODO={STRT\\|NEXT}"
((org-agenda-category-filter-preset '("-MLL"))))
("c?" "Code (libre)" tags-todo "+Code+TODO={STRT\\|NEXT}"
((org-agenda-files '("~/org/libre.org"))))
))(use-package epg :defer t)
(use-package epa
:defer t
:config
(setq epa-popup-info-window nil))
(use-package epg
:defer t
:config
(setq epg-pinentry-mode 'loopback))
(use-package gnus
:defer t
:config
(gnus-delay-initialize)
(setq gnus-refer-thread-limit t)
(setq gnus-use-atomic-windows nil)
(setq nndraft-directory "~/News/drafts/")
(setq nnmh-directory "~/News/drafts/")
(setq nnfolder-directory "~/Mail/archive")
(setq nnml-directory "~/Mail/old/Mail/")
(setq gnus-summary-ignore-duplicates t)
(setq gnus-suppress-duplicates t)
(setq gnus-auto-select-first nil)
(setq gnus-ignored-from-addresses
(regexp-opt '("bastien.guerry@free.fr"
"bastien.guerry@data.gouv.fr"
"bastien.guerry@code.gouv.fr"
"bastien.guerry@mail.numerique.gouv.fr"
"bastien.guerry@numerique.gouv.fr"
"bzg@bzg.fr"
"bzg@gnu.org"
)))
(setq send-mail-function 'sendmail-send-it)
(setq mail-use-rfc822 t)
;; Sources and methods
(setq mail-sources nil
gnus-select-method '(nnnil "")
gnus-secondary-select-methods
'((nnimap "localhost"
(nnimap-server-port "imaps")
(nnimap-authinfo-file "~/.authinfo")
(nnimap-stream ssl)
(nnimap-expunge t))))
(add-hook 'gnus-exit-gnus-hook
(lambda ()
(if (get-buffer "bbdb")
(with-current-buffer "bbdb" (save-buffer)))))
(setq read-mail-command 'gnus
gnus-directory "~/News/"
gnus-gcc-mark-as-read t
gnus-inhibit-startup-message t
gnus-interactive-catchup nil
gnus-interactive-exit nil
gnus-no-groups-message ""
gnus-novice-user nil
gnus-nov-is-evil t
gnus-use-cross-reference nil
gnus-verbose 6
mail-specify-envelope-from t
mail-envelope-from 'header
mail-user-agent 'gnus-user-agent
message-kill-buffer-on-exit t
message-mail-user-agent 'gnus-user-agent
message-forward-as-mime t)
(setq gnus-subscribe-newsgroup-method 'gnus-subscribe-interactively)
(setq nnir-notmuch-remove-prefix "/home/bzg/Mail/Maildir")
(defun my-gnus-message-archive-group (group-current)
"Return prefered archive group."
(cond
((and (stringp group-current)
(or (message-news-p)
(string-match "nntp\\+news" group-current 0)))
(concat "nnfolder+archive:" (format-time-string "%Y-%m")
"-divers-news"))
((and (stringp group-current) (< 0 (length group-current)))
(concat (replace-regexp-in-string "[^/]+$" "" group-current) "Sent"))
(t "nnimap+localhost:bzg@bzg.fr/Sent")))
(setq gnus-message-archive-group 'my-gnus-message-archive-group)
;; Group sorting
(setq gnus-group-sort-function
'(gnus-group-sort-by-unread
gnus-group-sort-by-rank
;; gnus-group-sort-by-score
;; gnus-group-sort-by-level
;; gnus-group-sort-by-alphabet
))
(add-hook 'gnus-summary-exit-hook 'gnus-summary-bubble-group)
(add-hook 'gnus-summary-exit-hook 'gnus-group-sort-groups-by-rank)
(add-hook 'gnus-suspend-gnus-hook 'gnus-group-sort-groups-by-rank)
(add-hook 'gnus-exit-gnus-hook 'gnus-group-sort-groups-by-rank)
;; Headers we wanna see:
(setq gnus-visible-headers
"^From:\\|^Subject:\\|^Date:\\|^To:\\|^Cc:\\|^Newsgroups:\\|^Comments:\\|^User-Agent:"
message-draft-headers '(References From In-Reply-To)
;; message-generate-headers-first t ;; FIXME: Not needed Emacs>=29?
message-hidden-headers
'("^References:" "^Face:" "^X-Face:" "^X-Draft-From:" "^In-Reply-To:" "^Message-ID:"))
;; Sort mails
(setq nnmail-split-abbrev-alist
'((any . "From\\|To\\|Cc\\|Sender\\|Apparently-To\\|Delivered-To\\|X-Apparently-To\\|Resent-From\\|Resent-To\\|Resent-Cc")
(mail . "Mailer-Daemon\\|Postmaster\\|Uucp")
(to . "To\\|Cc\\|Apparently-To\\|Resent-To\\|Resent-Cc\\|Delivered-To\\|X-Apparently-To")
(from . "From\\|Sender\\|Resent-From")
(nato . "To\\|Cc\\|Resent-To\\|Resent-Cc\\|Delivered-To\\|X-Apparently-To")
(naany . "From\\|To\\|Cc\\|Sender\\|Resent-From\\|Resent-To\\|Delivered-To\\|X-Apparently-To\\|Resent-Cc")))
;; Simplify the subject lines
(setq gnus-simplify-subject-functions
'(gnus-simplify-subject-re gnus-simplify-whitespace))
;; Thread by Xref, not by subject
(setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references
gnus-thread-sort-functions '(gnus-thread-sort-by-number
gnus-thread-sort-by-total-score
gnus-thread-sort-by-date)
gnus-sum-thread-tree-false-root ""
gnus-sum-thread-tree-indent " "
gnus-sum-thread-tree-leaf-with-other "├► "
gnus-sum-thread-tree-root ""
gnus-sum-thread-tree-single-leaf "╰► "
gnus-sum-thread-tree-vertical "│")
;; Dispkay a button for MIME parts
(setq gnus-buttonized-mime-types '("multipart/alternative"))
(setq gnus-user-date-format-alist
'(((gnus-seconds-today) . " %k:%M")
((+ 86400 (gnus-seconds-today)) . "hier %k:%M")
((+ 604800 (gnus-seconds-today)) . "%a %k:%M")
((gnus-seconds-month) . "%a %d")
((gnus-seconds-year) . "%b %d")
(t . "%b %d '%y")))
;; Add a time-stamp to a group when it is selected
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
;; Format group line
(setq gnus-group-line-format "%M%S%p%P %(%-40,40G%)\n")
(setq gnus-group-line-default-format "%M%S%p%P %(%-40,40G%) %-3y %-3T %-3I\n")
(defun bzg-gnus-toggle-group-line-format ()
(interactive)
(if (equal gnus-group-line-format
gnus-group-line-default-format)
(setq gnus-group-line-format
"%M%S%p%P %(%-40,40G%)\n")
(setq gnus-group-line-format
gnus-group-line-default-format)))
;; Toggle the group line format
(define-key gnus-group-mode-map "("
(lambda () (interactive) (bzg-gnus-toggle-group-line-format) (gnus)))
;; Scoring
(setq gnus-use-adaptive-scoring '(word line)
gnus-adaptive-pretty-print t
gnus-adaptive-word-length-limit 5
gnus-default-adaptive-score-alist
'((gnus-replied-mark (from 50) (subject 10))
(gnus-read-mark (from 30) (subject 10))
(gnus-cached-mark (from 30) (subject 10))
(gnus-forwarded-mark (from 10) (subject 5))
(gnus-saved-mark (from 10) (subject 5))
(gnus-expirable-mark (from 0) (subject 0))
(gnus-catchup-mark (from -5) (subject -30))
(gnus-del-mark (from -10) (subject -50))
(gnus-killed-mark (from -10 (subject -50)))
(gnus-dormant-mark (from 10) (subject 30))
(gnus-ticked-mark (from 10) (subject 50))
(gnus-unread-mark))
gnus-score-exact-adapt-limit nil
gnus-default-adaptive-word-score-alist
'((42 . 3) ;cached
(65 . 2) ;replied
(70 . 1) ;forwarded
(82 . 1) ;read
(67 . -1) ;catchup
(69 . 0) ;expired
(75 . -3) ;killed
(114 . -3))
;; gnus-score-decay-constant 1
;; gnus-decay-scores t
;; gnus-decay-score 1000
)
(setq gnus-summary-line-format
(concat "%*%0{%U%R%z%}"
"%0{ %}(%2t)"
"%2{ %}%-23,23n"
"%1{ %}%1{%B%}%2{%-102,102s%}%-140="
"\n")))
(use-package gnus-alias
:config
(define-key message-mode-map (kbd "C-c C-x C-i")
'gnus-alias-select-identity))
(use-package gnus-art
:defer t
:config
;; Highlight my name in messages
(add-to-list 'gnus-emphasis-alist
'("Bastien\\|bzg" 0 0 gnus-emphasis-highlight-words)))
(use-package gnus-icalendar
:config
(gnus-icalendar-setup)
;; To enable optional iCalendar->Org sync functionality
;; NOTE: both the capture file and the headline(s) inside must already exist
(setq gnus-icalendar-org-capture-file "~/org/rdv-mll.org")
(setq gnus-icalendar-org-capture-headline '("RDV MLL"))
(setq gnus-icalendar-org-template-key "I")
(gnus-icalendar-org-setup))
(use-package gnus-dired
:defer t
:config
;; Make the `gnus-dired-mail-buffers' function also work on
;; message-mode derived modes, such as mu4e-compose-mode
(defun gnus-dired-mail-buffers ()
"Return a list of active message buffers."
(let (buffers)
(save-current-buffer
(dolist (buffer (buffer-list t))
(set-buffer buffer)
(when (and (derived-mode-p 'message-mode)
(null message-sent-message-via))
(push (buffer-name buffer) buffers))))
(nreverse buffers))))
(use-package message
:defer t
:config
(setq message-send-mail-function 'message-send-mail-with-sendmail)
(setq message-dont-reply-to-names gnus-ignored-from-addresses)
(setq message-alternative-emails gnus-ignored-from-addresses))(use-package bbdb
:config
(require 'bbdb-com)
(require 'bbdb-anniv)
(require 'bbdb-gnus)
(setq bbdb-file "~/Documents/config/bbdb")
(bbdb-initialize 'message 'gnus)
(bbdb-mua-auto-update-init 'message 'gnus)
(setq bbdb-mua-pop-up nil)
(setq bbdb-allow-duplicates t)
(setq bbdb-pop-up-window-size 5)
(setq bbdb-ignore-redundant-mails t)
(add-hook 'mail-setup-hook 'bbdb-mail-aliases)
(add-hook 'message-setup-hook 'bbdb-mail-aliases)
(add-hook 'bbdb-notice-mail-hook 'bbdb-auto-notes)
;; (add-hook 'list-diary-entries-hook 'bbdb-include-anniversaries)
(setq bbdb-add-aka nil
bbdb-add-name nil
bbdb-add-mails t
bbdb-ignore-message-alist '(("Newsgroup" . ".*")))
(defalias 'bbdb-y-or-n-p #'(lambda (prompt) t))
(setq bbdb-auto-notes-alist
'(("Newsgroups" ("[^,]+" newsgroups 0))
("Subject" (".*" last-subj 0 t))
("User-Agent" (".*" mailer 0))
("X-Mailer" (".*" mailer 0))
("Organization" (".*" organization 0))
("X-Newsreader" (".*" mailer 0))
("X-Face" (".+" face 0 'replace))
("Face" (".+" face 0 'replace)))))(appt-activate t)
(setq display-time-24hr-format t
display-time-day-and-date t
appt-audible nil
appt-display-interval 10
appt-message-warning-time 120)
(setq diary-file "~/.diary")
(use-package calendar
:defer t
:config
(setq french-holiday
'((holiday-fixed 1 1 "Jour de l'an")
(holiday-fixed 5 8 "Victoire 45")
(holiday-fixed 7 14 "Fête nationale")
(holiday-fixed 8 15 "Assomption")
(holiday-fixed 11 1 "Toussaint")
(holiday-fixed 11 11 "Armistice 18")
(holiday-easter-etc 1 "Lundi de Pâques")
(holiday-easter-etc 39 "Ascension")
(holiday-easter-etc 50 "Lundi de Pentecôte")
(holiday-fixed 1 6 "Épiphanie")
(holiday-fixed 2 2 "Chandeleur")
(holiday-fixed 2 14 "Saint Valentin")
(holiday-fixed 5 1 "Fête du travail")
(holiday-fixed 5 8 "Commémoration de la capitulation de l'Allemagne en 1945")
(holiday-fixed 6 21 "Fête de la musique")
(holiday-fixed 11 2 "Commémoration des fidèles défunts")
(holiday-fixed 12 25 "Noël")
;; fêtes à date variable
(holiday-easter-etc 0 "Pâques")
(holiday-easter-etc 49 "Pentecôte")
(holiday-easter-etc -47 "Mardi gras")
(holiday-float 6 0 3 "Fête des pères") ;; troisième dimanche de juin
;; Fête des mères
(holiday-sexp
'(if (equal
;; Pentecôte
(holiday-easter-etc 49)
;; Dernier dimanche de mai
(holiday-float 5 0 -1 nil))
;; -> Premier dimanche de juin si coïncidence
(car (car (holiday-float 6 0 1 nil)))
;; -> Dernier dimanche de mai sinon
(car (car (holiday-float 5 0 -1 nil))))
"Fête des mères")))
(setq calendar-date-style 'european
calendar-mark-holidays-flag t
calendar-week-start-day 1));; notmuch configuration
(use-package notmuch
:config
(setq notmuch-fcc-dirs nil)
(add-hook 'gnus-group-mode-hook 'bzg-notmuch-shortcut)
(defun bzg-notmuch-shortcut ()
(define-key gnus-group-mode-map "GG" 'notmuch-search))
(defun bzg-notmuch-file-to-group (file)
"Calculate the Gnus group name from the given file name."
(cond ((string-match "/home/bzg/Mail/old/Mail/mail/\\([^/]+\\)/" file)
(format "nnml:mail.%s" (match-string 1 file)))
((string-match "/home/bzg/Mail/Maildir/\\([^/]+\\)/\\([^/]+\\)" file)
(format "nnimap+localhost:%s/%s" (match-string 1 file) (match-string 2 file)))
(t (user-error "Unknown group"))))
(defun bzg-notmuch-goto-message-in-gnus ()
"Open a summary buffer containing the current notmuch article."
(interactive)
(let ((group (bzg-notmuch-file-to-group (notmuch-show-get-filename)))
(message-id (replace-regexp-in-string
"^id:\\|\"" "" (notmuch-show-get-message-id))))
(if (and group message-id)
(progn (org-gnus-follow-link group message-id))
(message "Couldn't get relevant infos for switching to Gnus."))))
(define-key notmuch-show-mode-map
(kbd "C-c C-c") #'bzg-notmuch-goto-message-in-gnus))(use-package dired-x
:config
;; (define-key dired-mode-map "\C-cd" 'dired-clean-tex)
(setq dired-guess-shell-alist-user
(list
(list "\\.pdf$" "evince &")
(list "\\.docx?$" "libreoffice &")
(list "\\.aup?$" "audacity")
(list "\\.pptx?$" "libreoffice &")
(list "\\.odf$" "libreoffice &")
(list "\\.odt$" "libreoffice &")
(list "\\.odt$" "libreoffice &")
(list "\\.kdenlive$" "kdenlive")
(list "\\.svg$" "gimp")
(list "\\.csv$" "libreoffice &")
(list "\\.sla$" "scribus")
(list "\\.od[sgpt]$" "libreoffice &")
(list "\\.xls$" "libreoffice &")
(list "\\.xlsx$" "libreoffice &")
(list "\\.txt$" "gedit")
(list "\\.sql$" "gedit")
(list "\\.css$" "gedit")
(list "\\.jpe?g$" "sxiv")
(list "\\.png$" "sxiv")
(list "\\.gif$" "sxiv")
(list "\\.psd$" "gimp")
(list "\\.xcf" "gimp")
(list "\\.xo$" "unzip")
(list "\\.3gp$" "vlc")
(list "\\.mp3$" "vlc")
(list "\\.flac$" "vlc")
(list "\\.avi$" "vlc")
;; (list "\\.og[av]$" "vlc")
(list "\\.wm[va]$" "vlc")
(list "\\.flv$" "vlc")
(list "\\.mov$" "vlc")
(list "\\.divx$" "vlc")
(list "\\.mp4$" "vlc")
(list "\\.webm$" "vlc")
(list "\\.mkv$" "vlc")
(list "\\.mpe?g$" "vlc")
(list "\\.m4[av]$" "vlc")
(list "\\.mp2$" "vlc")
(list "\\.pp[st]$" "libreoffice &")
(list "\\.ogg$" "vlc")
(list "\\.ogv$" "vlc")
(list "\\.rtf$" "libreoffice &")
(list "\\.ps$" "gv")
(list "\\.mp3$" "play")
(list "\\.wav$" "vlc")
(list "\\.rar$" "unrar x")
))
(setq dired-tex-unclean-extensions
'(".toc" ".log" ".aux" ".dvi" ".out" ".nav" ".snm")))
(setq list-directory-verbose-switches "-al")
(setq dired-listing-switches "-l")
(setq dired-dwim-target t)
(setq dired-maybe-use-globstar t)
(setq dired-recursive-copies 'always)
(setq dired-recursive-deletes 'always)
(setq delete-old-versions t)(setq browse-url-browser-function 'eww-browse-url)
(setq browse-url-secondary-browser-function 'browse-url-generic)
(setq browse-url-generic-program "firefox")
(setq browse-url-firefox-new-window-is-tab t)
(defun bzg-toggle-browser ()
(interactive)
(if (eq browse-url-browser-function 'browse-url-generic)
(progn (setq browse-url-browser-function 'eww-browse-url)
(setq browse-url-secondary-browser-function 'browse-url-generic)
(message "Browser set to eww"))
(setq browse-url-browser-function 'browse-url-generic)
(setq browse-url-secondary-browser-function 'eww-browse-url)
(message "Browser set to generic")))(use-package whitespace
:defer t
:config
(add-to-list 'whitespace-style 'lines-tail))
(use-package ibuffer
:defer t
:config
(global-set-key (kbd "C-x C-b") 'ibuffer))
;; M-x package-install RET register-list RET
(use-package register-list
:config
(global-set-key (kbd "C-x r L") 'register-list))hidden-mode and fringes
;; Hide fringe indicators
(mapc (lambda (fb) (set-fringe-bitmap-face fb 'org-hide))
fringe-bitmaps)
;; Hide fringe background
(set-face-attribute 'fringe nil :background nil)
(setq bzg-big-fringe 300)
(defun bzg-toggle-fringe-width ()
(interactive)
(if (equal bzg-big-fringe 300)
(progn (setq bzg-big-fringe 700)
(message "Fringe set to 700"))
(setq bzg-big-fringe 300)
(message "Fringe set to 300")))
(define-minor-mode bzg-big-fringe-mode
"Minor mode to hide the mode-line in the current buffer."
:init-value nil
:global t
:variable bzg-big-fringe-mode
:group 'editing-basics
(if (not bzg-big-fringe-mode)
(fringe-mode 10)
(fringe-mode bzg-big-fringe)))
;; (bzg-big-fringe-mode 1)
;; See https://bzg.fr/emacs-hide-mode-line.html
(defvar-local hidden-mode-line-mode nil)
(defvar-local hide-mode-line nil)
(define-minor-mode hidden-mode-line-mode
"Minor mode to hide the mode-line in the current buffer."
:init-value nil
:global nil
:variable hidden-mode-line-mode
:group 'editing-basics
(if hidden-mode-line-mode
(setq hide-mode-line mode-line-format
mode-line-format nil)
(setq mode-line-format hide-mode-line
hide-mode-line nil))
(force-mode-line-update)
;; Apparently force-mode-line-update is not always enough to
;; redisplay the mode-line
(redraw-display)
(when (and (called-interactively-p 'interactive)
hidden-mode-line-mode)
(run-with-idle-timer
0 nil 'message
(concat "Hidden Mode Line Mode enabled. "
"Use M-x hidden-mode-line-mode to make the mode-line appear."))))
(add-hook 'after-change-major-mode-hook 'hidden-mode-line-mode)
(add-hook 'org-mode-hook (lambda () (electric-indent-mode 0)))(use-package eww
:defer t
:config
(add-hook 'eww-mode-hook 'visual-line-mode)
(setq eww-header-line-format nil
shr-width 80
shr-inhibit-images t
shr-use-colors nil
shr-use-fonts nil));; Google translate
(require 'google-translate)
(defun google-translate--search-tkk ()
"Search TKK."
(list 430675 2721866130))
(defun google-translate-word-at-point ()
(interactive)
(let ((w (thing-at-point 'word)))
(google-translate-translate "auto" "fr" w)))
(global-set-key (kbd "C-c t") (lambda (s) (interactive "sTranslate: ")
(google-translate-translate "auto" "fr" s)))
(global-set-key (kbd "C-c T") 'google-translate-word-at-point)(defun uniquify-all-lines-region (start end)
"Find duplicate lines in region START to END keeping first occurrence."
(interactive "*r")
(save-excursion
(let ((end (copy-marker end)))
(while
(progn
(goto-char start)
(re-search-forward "^\\(.*\\)\n\\(\\(.*\n\\)*\\)\\1\n" end t))
(replace-match "\\1\n\\2")))))
(defun uniquify-all-lines-buffer ()
"Delete duplicate lines in buffer and keep first occurrence."
(interactive "*")
(uniquify-all-lines-region (point-min) (point-max)))(setq bzg-cycle-view-current nil)
(defun bzg-cycle-view ()
"Cycle through my favorite views."
(interactive)
(let ((splitted-frame
(or (< (window-height) (1- (frame-height)))
(< (window-width) (frame-width)))))
(cond ((not (eq last-command 'bzg-cycle-view))
(delete-other-windows)
(bzg-big-fringe-mode)
(setq bzg-cycle-view-current 'one-window-with-fringe))
((and (not bzg-cycle-view-current) splitted-frame)
(delete-other-windows))
((not bzg-cycle-view-current)
(delete-other-windows)
(if bzg-big-fringe-mode
(progn (bzg-big-fringe-mode)
(setq bzg-cycle-view-current 'one-window-no-fringe))
(bzg-big-fringe-mode)
(setq bzg-cycle-view-current 'one-window-with-fringe)))
((eq bzg-cycle-view-current 'one-window-with-fringe)
(delete-other-windows)
(bzg-big-fringe-mode -1)
(setq bzg-cycle-view-current 'one-window-no-fringe))
((eq bzg-cycle-view-current 'one-window-no-fringe)
(delete-other-windows)
(split-window-right)
(bzg-big-fringe-mode -1)
(other-window 1)
(balance-windows)
(setq bzg-cycle-view-current 'two-windows-balanced))
((eq bzg-cycle-view-current 'two-windows-balanced)
(delete-other-windows)
(bzg-big-fringe-mode 1)
(setq bzg-cycle-view-current 'one-window-with-fringe)))))
(advice-add 'split-window-horizontally :before (lambda () (interactive) (bzg-big-fringe-mode 0)))
(advice-add 'split-window-right :before (lambda () (interactive) (bzg-big-fringe-mode 0)))(defun find-variable-or-function-at-point ()
(interactive)
(or (find-variable-at-point)
(find-function-at-point)
(message "No variable or function at point.")))
(global-set-key (kbd "C-,") 'find-variable-or-function-at-point);; Paredit initialization
(use-package paredit
:config
(define-key paredit-mode-map (kbd "C-M-w") 'sp-copy-sexp))
;; Clojure initialization
(setq inf-clojure-generic-cmd "clojure")
(use-package clojure-mode
:config
(require 'flycheck-clj-kondo)
(setq clojure-align-forms-automatically t)
(add-hook 'clojure-mode-hook 'company-mode)
(add-hook 'clojure-mode-hook 'origami-mode)
(add-hook 'clojure-mode-hook 'paredit-mode)
;; (add-hook 'clojure-mode-hook 'clj-refactor-mode)
(add-hook 'clojure-mode-hook 'aggressive-indent-mode))
(use-package clj-refactor
:defer t
:config
;; (setq clojure-thread-all-but-last t)
(define-key clj-refactor-map "\C-ctf" #'clojure-thread-first-all)
(define-key clj-refactor-map "\C-ctl" #'clojure-thread-last-all)
(define-key clj-refactor-map "\C-cu" #'clojure-unwind)
(define-key clj-refactor-map "\C-cU" #'clojure-unwind-all))
(use-package cider
:defer t
:config
(add-hook 'cider-repl-mode-hook 'company-mode)
(setq cider-use-fringe-indicators nil)
(setq cider-repl-pop-to-buffer-on-connect nil)
(setq nrepl-hide-special-buffers t))
;; Emacs Lisp initialization
(add-hook 'emacs-lisp-mode-hook 'company-mode)
(add-hook 'emacs-lisp-mode-hook 'electric-indent-mode 'append)
(add-hook 'emacs-lisp-mode-hook 'paredit-mode)
(add-hook 'emacs-lisp-mode-hook 'origami-mode);; By default, killing a word backward will put it in the ring, I don't want this
(defun backward-kill-word-noring (arg)
(interactive "p")
(let ((kr kill-ring))
(backward-kill-word arg)
(setq kill-ring (reverse kr))))
(global-set-key (kbd "C-M-<backspace>") 'backward-kill-word-noring);; Displays a helper about the current available keybindings
(require 'which-key)
(which-key-mode)(use-package multi-term
:config
(global-set-key (kbd "C-:") (lambda () (interactive) (vterm))))
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
(use-package dired-subtree
:config
(setq dired-subtree-use-backgrounds nil)
(define-key dired-mode-map (kbd "I") 'dired-subtree-toggle)
(define-key dired-mode-map (kbd "TAB") 'dired-subtree-cycle))(envrc-global-mode);; Load forge
;; (use-package forge :after magit)
;; Use ugrep
(setq xref-search-program 'ugrep)
;; Always follow symbolic links when editing
(setq vc-follow-symlinks t)
;; elp.el is the Emacs Lisp profiler, sort by average time
(setq elp-sort-by-function 'elp-sort-by-average-time)
;; Don't show bookmark line in the margin
(setq bookmark-fringe-mark nil)
;; doc-view and eww/shr configuration
(setq doc-view-continuous t)
;; Use imagemagick, if available
(when (fboundp 'imagemagick-register-types)
(imagemagick-register-types))
(add-hook 'dired-mode-hook #'turn-on-gnus-dired-mode)
(add-hook 'dired-mode-hook #'dired-hide-details-mode)
;; Fontifying todo items outside of org-mode
(defface bzg-todo-comment-face
'((t (:weight bold :bold t)))
"Face for TODO in code buffers."
:group 'org-faces)
(defvar bzg-todo-comment-face 'bzg-todo-comment-face)
(pdf-tools-install)
(defun bzg-gnus-toggle-nntp ()
(interactive)
(if (= (length gnus-secondary-select-methods) 1)
(progn (add-to-list
'gnus-secondary-select-methods
'(nntp "news" (nntp-address "news.gmane.io")))
(message "nntp server ON"))
(progn
(setq gnus-secondary-select-methods
(remove '(nntp "news" (nntp-address "news.gmane.io"))
gnus-secondary-select-methods))
(message "nntp server OFF"))))
(define-key gnus-group-mode-map (kbd "%") #'bzg-gnus-toggle-nntp)