Dimitri Lozeve
4f826a6c9b
Uses the API of the DOI service directly. Before, I had to add them to the bibtex file or use an external service like citation.crosscite.org. Now I can just copy-paste the DOI and get the formatted citation in the kill-ring directly.
859 lines
27 KiB
EmacsLisp
859 lines
27 KiB
EmacsLisp
;;; ~/.emacs.d/init.el --- Configuration file for Emacs
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
;; Always load newest byte code
|
|
(setq load-prefer-newer t)
|
|
|
|
(setq inhibit-startup-screen t)
|
|
(tool-bar-mode -1)
|
|
(scroll-bar-mode -1)
|
|
(menu-bar-mode -1)
|
|
(setq visible-bell 1)
|
|
(line-number-mode 1)
|
|
(column-number-mode 1)
|
|
(size-indication-mode 1)
|
|
(blink-cursor-mode 0)
|
|
|
|
(setq auto-window-vscroll nil)
|
|
|
|
;; Dired human readable sizes
|
|
(setq dired-listing-switches "-alh")
|
|
|
|
;; Enable disabled commands
|
|
(put 'narrow-to-region 'disabled nil)
|
|
|
|
;; more useful frame title, that show either a file or a
|
|
;; buffer name (if the buffer isn't visiting a file)
|
|
(setq frame-title-format
|
|
'((:eval (if (buffer-file-name)
|
|
(abbreviate-file-name (buffer-file-name))
|
|
"%b"))))
|
|
|
|
;; Newline at end of file
|
|
(setq require-final-newline t)
|
|
|
|
(prefer-coding-system 'utf-8)
|
|
(set-default-coding-systems 'utf-8)
|
|
(set-terminal-coding-system 'utf-8)
|
|
(set-keyboard-coding-system 'utf-8)
|
|
|
|
;; System locale to use for formatting time values. Make sure that
|
|
;; the weekdays in the time stamps of your Org mode files and in the
|
|
;; agenda appear in English.
|
|
(setq system-time-locale "C")
|
|
|
|
;; replace buffer-menu with ibuffer
|
|
(global-set-key (kbd "C-x C-b") #'ibuffer)
|
|
|
|
(global-set-key (kbd "M-z") #'zap-up-to-char)
|
|
|
|
;; Better than default: act on the region if active
|
|
(global-set-key (kbd "M-c") 'capitalize-dwim)
|
|
(global-set-key (kbd "M-l") 'downcase-dwim)
|
|
(global-set-key (kbd "M-u") 'upcase-dwim)
|
|
|
|
(setq-default c-basic-offset 2)
|
|
(setq c-default-style "linux")
|
|
|
|
(let ((my-font "Iosevka")
|
|
(my-height 110))
|
|
(set-face-attribute 'default nil :family my-font :height my-height)
|
|
(set-face-attribute 'fixed-pitch nil :family my-font :height my-height))
|
|
|
|
(set-face-attribute 'variable-pitch nil :family "Linux Libertine O" :height 130)
|
|
|
|
(defun unfill-paragraph ()
|
|
(interactive)
|
|
(let ((fill-column (point-max)))
|
|
(fill-paragraph nil)))
|
|
|
|
(defun unfill-region ()
|
|
(interactive)
|
|
(let ((fill-column (point-max)))
|
|
(fill-region (region-beginning) (region-end) nil)))
|
|
|
|
;; Straight.el setup
|
|
(defvar bootstrap-version)
|
|
(let ((bootstrap-file
|
|
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
|
|
(bootstrap-version 5))
|
|
(unless (file-exists-p bootstrap-file)
|
|
(with-current-buffer
|
|
(url-retrieve-synchronously
|
|
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
|
|
'silent 'inhibit-cookies)
|
|
(goto-char (point-max))
|
|
(eval-print-last-sexp)))
|
|
(load bootstrap-file nil 'nomessage))
|
|
|
|
(straight-use-package 'use-package)
|
|
|
|
;;; Built-in packages
|
|
(use-package paren
|
|
:config
|
|
(show-paren-mode 1))
|
|
|
|
;; Highlight the current line
|
|
(use-package hl-line
|
|
:config
|
|
(global-hl-line-mode -1))
|
|
|
|
;; Better renaming rules for buffers with the same name
|
|
(use-package uniquify
|
|
:config
|
|
(setq uniquify-buffer-name-style 'forward)
|
|
(setq uniquify-separator "/")
|
|
;; rename after killing uniquified
|
|
(setq uniquify-after-kill-buffer-p t)
|
|
;; don't muck with special buffers
|
|
(setq uniquify-ignore-buffers-re "^\\*"))
|
|
|
|
;; Theme
|
|
;; (use-package base16-theme
|
|
;; :straight t
|
|
;; :init
|
|
;; (setq base16-theme-256-color-source 'base16-shell)
|
|
;; :config
|
|
;; (load-theme 'base16-default-dark t))
|
|
|
|
(use-package color-theme-sanityinc-tomorrow
|
|
:straight t
|
|
:config
|
|
(load-theme 'sanityinc-tomorrow-night t))
|
|
|
|
(use-package mood-line
|
|
:straight t
|
|
:config
|
|
(mood-line-mode t))
|
|
|
|
(use-package exec-path-from-shell
|
|
:straight t
|
|
:config
|
|
(when (memq window-system '(mac ns x))
|
|
(exec-path-from-shell-initialize)
|
|
(exec-path-from-shell-copy-env "LD_LIBRARY_PATH")
|
|
(exec-path-from-shell-copy-env "PYENV_ROOT")
|
|
(exec-path-from-shell-copy-env "PYENV_ROOT")
|
|
(exec-path-from-shell-copy-env "GAMBIT")
|
|
(exec-path-from-shell-copy-env "GERBIL_HOME")))
|
|
|
|
(use-package ivy
|
|
:straight t
|
|
:config
|
|
(ivy-mode 1)
|
|
(setq ivy-use-virtual-buffers t)
|
|
(setq enable-recursive-minibuffers t)
|
|
(global-set-key (kbd "C-c C-r") 'ivy-resume)
|
|
(global-set-key (kbd "<f6>") 'ivy-resume))
|
|
|
|
(use-package swiper
|
|
:straight t
|
|
:config
|
|
(global-set-key "\C-s" 'swiper))
|
|
|
|
(use-package counsel
|
|
:straight t
|
|
:config
|
|
(global-set-key (kbd "M-x") 'counsel-M-x)
|
|
(global-set-key (kbd "C-x C-f") 'counsel-find-file)
|
|
(global-set-key (kbd "<f1> f") 'counsel-describe-function)
|
|
(global-set-key (kbd "<f1> v") 'counsel-describe-variable)
|
|
(global-set-key (kbd "<f1> l") 'counsel-find-library)
|
|
(global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
|
|
(global-set-key (kbd "<f2> u") 'counsel-unicode-char)
|
|
(global-set-key (kbd "C-c g") 'counsel-git)
|
|
(global-set-key (kbd "C-c j") 'counsel-git-grep)
|
|
(global-set-key (kbd "C-c a") 'counsel-ag)
|
|
(global-set-key (kbd "C-x l") 'counsel-locate)
|
|
(define-key minibuffer-local-map (kbd "C-r") 'counsel-minibuffer-history))
|
|
|
|
(use-package deadgrep
|
|
:straight t
|
|
:bind (("<f5>" . deadgrep)))
|
|
|
|
(use-package ace-window
|
|
:straight t
|
|
:config
|
|
(global-set-key (kbd "M-o") 'ace-window)
|
|
(setq aw-keys '(?q ?s ?d ?f ?g ?h ?j ?k ?l)))
|
|
|
|
(use-package magit
|
|
:straight t
|
|
:bind (("C-x g" . magit-status)
|
|
("C-x M-g" . magit-dispatch)))
|
|
|
|
(use-package forge
|
|
:straight t
|
|
:after magit)
|
|
|
|
(use-package yasnippet
|
|
:straight t
|
|
:diminish yas-minor-mode
|
|
:init
|
|
(use-package yasnippet-snippets :straight t :after yasnippet)
|
|
:hook ((prog-mode LaTeX-mode org-mode) . yas-minor-mode)
|
|
:bind
|
|
(:map yas-minor-mode-map ("C-c C-n" . yas-expand-from-trigger-key))
|
|
(:map yas-keymap
|
|
(("TAB" . smarter-yas-expand-next-field)
|
|
([(tab)] . smarter-yas-expand-next-field)))
|
|
:config
|
|
(yas-reload-all)
|
|
(defun smarter-yas-expand-next-field ()
|
|
"Try to `yas-expand' then `yas-next-field' at current cursor position."
|
|
(interactive)
|
|
(let ((old-point (point))
|
|
(old-tick (buffer-chars-modified-tick)))
|
|
(yas-expand)
|
|
(when (and (eq old-point (point))
|
|
(eq old-tick (buffer-chars-modified-tick)))
|
|
(ignore-errors (yas-next-field))))))
|
|
|
|
(use-package flycheck
|
|
:straight t
|
|
:config
|
|
(add-hook 'after-init-hook #'global-flycheck-mode))
|
|
|
|
(use-package projectile
|
|
:straight t
|
|
:init
|
|
(setq projectile-completion-system 'ivy)
|
|
:config
|
|
(setq projectile-enable-caching t)
|
|
(setq projectile-tags-command "ctags-universal -Re")
|
|
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
|
|
(projectile-mode +1))
|
|
|
|
(use-package yaml-mode
|
|
:straight t)
|
|
|
|
(use-package json-mode
|
|
:straight t)
|
|
|
|
(use-package cmake-mode
|
|
:straight t)
|
|
|
|
(use-package dockerfile-mode
|
|
:straight t)
|
|
|
|
(use-package flyspell
|
|
:config
|
|
(setq ispell-program-name "hunspell")
|
|
(setq ispell-local-dictionary "en_GB")
|
|
(setq ispell-local-dictionary-alist
|
|
;; Please note the list `("-d" "en_US")` contains ACTUAL parameters passed to hunspell
|
|
;; You could use `("-d" "en_US,en_US-med")` to check with multiple dictionaries
|
|
'(("en_US" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_GB") nil utf-8)))
|
|
(add-hook 'text-mode-hook #'flyspell-mode)
|
|
;; (add-hook 'prog-mode-hook #'flyspell-prog-mode)
|
|
(global-set-key (kbd "<f8>") 'ispell-word)
|
|
(global-set-key (kbd "C-S-<f8>") 'flyspell-mode)
|
|
(global-set-key (kbd "M-<f8>") 'flyspell-buffer)
|
|
(global-set-key (kbd "C-<f8>") 'flyspell-check-previous-highlighted-word))
|
|
|
|
(use-package langtool
|
|
:straight t
|
|
:init
|
|
(setq langtool-java-classpath
|
|
"/usr/share/languagetool:/usr/share/java/languagetool/*"))
|
|
|
|
(use-package lsp-mode
|
|
:commands lsp
|
|
:straight t
|
|
:hook ((rust-mode . lsp)
|
|
(c-mode . lsp)
|
|
(python-mode . lsp))
|
|
:config
|
|
(setq lsp-clients-clangd-args
|
|
'("-j=2"
|
|
"--background-index"
|
|
"--clang-tidy"
|
|
"--completion-style=bundled"
|
|
"--pch-storage=memory"
|
|
"--header-insertion=never"
|
|
"--header-insertion-decorators=0"
|
|
"--suggest-missing-includes"))
|
|
;; https://emacs-lsp.github.io/lsp-mode/page/performance/
|
|
(setq read-process-output-max (* 1024 1024)) ;; 1mb
|
|
(setq gc-cons-threshold 100000000)
|
|
(setq lsp-completion-provider :capf)
|
|
(setq lsp-file-watch-threshold nil)
|
|
(setq lsp-zig-zls-executable (expand-file-name "~/build/zls/zig-out/bin/zls")))
|
|
|
|
(use-package lsp-ui
|
|
:commands lsp-ui-mode
|
|
:straight t
|
|
:config
|
|
(setq lsp-ui-sideline-show-hover nil)
|
|
(setq lsp-ui-doc-position 'top))
|
|
|
|
(use-package lsp-ivy
|
|
:commands lsp-ivy-workspace-symbol
|
|
:straight t)
|
|
|
|
(use-package lsp-pyright
|
|
:straight t
|
|
:hook (python-mode . (lambda ()
|
|
(require 'lsp-pyright)
|
|
(lsp) ; or lsp-deferred
|
|
(local-unset-key (kbd "C-f"))))
|
|
:config
|
|
(setq lsp-pyright-use-library-code-for-types nil)
|
|
(flycheck-add-next-checker 'lsp 'python-pylint))
|
|
|
|
(use-package pyvenv
|
|
:straight t)
|
|
|
|
(use-package julia-mode
|
|
:straight t)
|
|
|
|
(use-package julia-repl
|
|
:straight t
|
|
:hook (julia-mode . julia-repl-mode)
|
|
:init
|
|
(setenv "JULIA_NUM_THREADS" "6")
|
|
:config
|
|
(julia-repl-set-terminal-backend 'vterm))
|
|
|
|
(use-package dante
|
|
:straight t
|
|
:after haskell-mode
|
|
:commands 'dante-mode
|
|
:init
|
|
(add-hook 'haskell-mode-hook 'dante-mode)
|
|
(add-hook 'haskell-mode-hook 'flycheck-mode))
|
|
|
|
(use-package lispy
|
|
:straight t
|
|
:hook ((emacs-lisp-mode
|
|
eval-expression-minibuffer-setup
|
|
ielm-mode
|
|
lisp-mode
|
|
lisp-interaction-mode
|
|
scheme-mode
|
|
inferior-scheme-mode
|
|
slime-repl-mode
|
|
racket-mode
|
|
racket-repl-mode
|
|
gerbil-mode) . lispy-mode))
|
|
|
|
(use-package slime
|
|
:straight t
|
|
:config
|
|
(require 'slime-autoloads)
|
|
(setq slime-contribs '(slime-fancy slime-repl slime-quicklisp))
|
|
(setq slime-lisp-implementations
|
|
'((sbcl ("/usr/bin/sbcl") :coding-system utf-8-unix)))
|
|
(setq slime-net-coding-system 'utf-8-unix)
|
|
;; Stop SLIME's REPL from grabbing DEL,
|
|
;; which is annoying when backspacing over a '('
|
|
(defun override-slime-repl-bindings-with-paredit ()
|
|
(define-key slime-repl-mode-map
|
|
(read-kbd-macro paredit-backward-delete-key) nil))
|
|
(add-hook 'slime-repl-mode-hook 'override-slime-repl-bindings-with-paredit)
|
|
(setq lisp-indent-function 'lisp-indent-function)
|
|
;; Use the offline hyperspec from the "clhs" quicklisp package:
|
|
;; https://www.hexstreamsoft.com/libraries/clhs/
|
|
(load "/home/dimitri/quicklisp/clhs-use-local.el" t))
|
|
|
|
(use-package racket-mode
|
|
:straight t)
|
|
|
|
(use-package gerbil-mode
|
|
:when (getenv "GERBIL_HOME")
|
|
:straight nil
|
|
:defer t
|
|
:mode (("\\.ss\\'" . gerbil-mode)
|
|
("\\.pkg\\'" . gerbil-mode))
|
|
:bind (:map comint-mode-map
|
|
(("C-S-n" . comint-next-input)
|
|
("C-S-p" . comint-previous-input)
|
|
("C-S-l" . clear-comint-buffer))
|
|
:map gerbil-mode-map
|
|
(("C-S-l" . clear-comint-buffer)))
|
|
:init
|
|
(setf gambit (getenv "GAMBIT"))
|
|
(setf gerbil (getenv "GERBIL_HOME"))
|
|
(autoload 'gerbil-mode
|
|
(concat gerbil "/etc/gerbil-mode.el") "Gerbil editing mode." t)
|
|
:hook
|
|
((inferior-scheme-mode-hook . gambit-inferior-mode))
|
|
:config
|
|
(require 'gambit (concat gambit "/share/emacs/site-lisp/gambit.el"))
|
|
(setf scheme-program-name (concat gerbil "/bin/gxi"))
|
|
|
|
(let ((tags (locate-dominating-file default-directory "TAGS")))
|
|
(when tags (visit-tags-table tags)))
|
|
(visit-tags-table (concat gerbil "/src/TAGS"))
|
|
|
|
(when (package-installed-p 'smartparens)
|
|
(sp-pair "'" nil :actions :rem)
|
|
(sp-pair "`" nil :actions :rem))
|
|
|
|
(defun clear-comint-buffer ()
|
|
(interactive)
|
|
(with-current-buffer "*scheme*"
|
|
(let ((comint-buffer-maximum-size 0))
|
|
(comint-truncate-buffer)))))
|
|
|
|
(use-package rust-mode
|
|
:straight t)
|
|
|
|
;; Use APL font face in current buffer
|
|
(defun my-buffer-face-mode-apl ()
|
|
"Use the APL font in current buffer."
|
|
(interactive)
|
|
(setq buffer-face-mode-face '(:family "APL385 Unicode" :height 150))
|
|
(buffer-face-mode))
|
|
|
|
(use-package matlab
|
|
:straight matlab-mode
|
|
:config
|
|
;; This is a simple script to set the required environment variables
|
|
;; before launching Matlab in Emacs. This prevents an issue where
|
|
;; all plot windows are blank. See Arch wiki for more details.
|
|
|
|
;; #!/usr/bin/env bash
|
|
;; export _JAVA_AWT_WM_NONREPARENTING=1
|
|
;; /usr/local/bin/matlab "$@"
|
|
(setq matlab-shell-command "~/.local/bin/run_matlab")
|
|
(setq matlab-shell-command-switches '("-nodesktop"))
|
|
;; :custom-face
|
|
;; (linemark-stop-face ((t (:background 'unspecified)
|
|
;; (:underline '(:color "red3" :style wave)))))
|
|
;; (linemark-caution-face ((t (:background 'unspecified)
|
|
;; (:underline '(:color "yellow4" :style wave)))))
|
|
;; (linemark-go-face ((t (:background 'unspecified)
|
|
;; (:underline '(:color "green4" :style wave)))))
|
|
;; (linemark-funny-face ((t (:background 'unspecified)
|
|
;; (:underline '(:color "blue3" :style wave)))))
|
|
)
|
|
|
|
(use-package dyalog-mode
|
|
:straight t
|
|
:hook (dyalog-mode . my-buffer-face-mode-apl)
|
|
:custom
|
|
(dyalog-fix-whitespace-before-save t))
|
|
|
|
(use-package gnu-apl-mode
|
|
:straight t
|
|
:config
|
|
(defface gnu-apl-default
|
|
'((t (:height 1.2 :family "APL385 Unicode"))) t)
|
|
(defun em-gnu-apl-init ()
|
|
(setq buffer-face-mode-face 'gnu-apl-default)
|
|
(buffer-face-mode))
|
|
(add-hook 'gnu-apl-interactive-mode-hook 'em-gnu-apl-init)
|
|
(add-hook 'gnu-apl-mode-hook 'em-gnu-apl-init))
|
|
|
|
(use-package tex-site
|
|
:defer t
|
|
:straight auctex
|
|
:config
|
|
(setq TeX-auto-save t)
|
|
(setq TeX-parse-self t)
|
|
(setq-default TeX-master nil)
|
|
(setq TeX-engine 'luatex)
|
|
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
|
|
|
|
;; Use pdf-tools to open PDF files
|
|
(setq TeX-view-program-selection '((output-pdf "PDF Tools"))
|
|
TeX-source-correlate-start-server t)
|
|
|
|
;; Update PDF buffers after successful LaTeX runs
|
|
(add-hook 'TeX-after-compilation-finished-functions
|
|
#'TeX-revert-document-buffer))
|
|
|
|
(use-package format-all
|
|
:straight t
|
|
:bind ("C-c C-f" . format-all-buffer))
|
|
|
|
(use-package restclient
|
|
:straight t
|
|
:defer t
|
|
:mode (("\\.http\\'" . restclient-mode))
|
|
:bind (:map restclient-mode-map
|
|
("C-c C-f" . json-mode-beautify)))
|
|
|
|
(use-package elfeed
|
|
:straight t
|
|
:bind ("C-c f" . elfeed)
|
|
:config
|
|
(setq shr-width 100))
|
|
|
|
(use-package elfeed-org
|
|
:straight t
|
|
:config
|
|
(elfeed-org)
|
|
(setq rmh-elfeed-org-files (list "~/notes/elfeed.org")))
|
|
|
|
(use-package pdf-tools
|
|
:straight t
|
|
:load-path "site-lisp/pdf-tools/lisp"
|
|
:magic ("%PDF" . pdf-view-mode)
|
|
:config
|
|
(pdf-tools-install))
|
|
|
|
(use-package nov
|
|
:straight t
|
|
:config
|
|
(add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
|
|
(setq nov-text-width 100))
|
|
|
|
(use-package twittering-mode
|
|
:straight t
|
|
:config
|
|
(setq twittering-reverse-mode nil))
|
|
|
|
(use-package mathpix.el
|
|
:straight (:host github :repo "jethrokuan/mathpix.el")
|
|
;; You also need to configure `mathpix-app-id` and
|
|
;; `mathpix-app-key`, for instance in secrets.el
|
|
:bind
|
|
("C-x m" . mathpix-screenshot))
|
|
|
|
;; Org-mode
|
|
;; Pour accéder rapidement à l'organisation
|
|
(defun gtd ()
|
|
"Find the planner/GTD file."
|
|
(interactive)
|
|
(find-file "~/notes/planner.org"))
|
|
|
|
(defun journal ()
|
|
"Find the journal file."
|
|
(interactive)
|
|
(find-file "~/notes/journal.org"))
|
|
|
|
(defun bib ()
|
|
"Find the bibliography file."
|
|
(interactive)
|
|
(find-file "~/notes/bibliography/bibliography.bib"))
|
|
|
|
(use-package org
|
|
:straight t
|
|
:bind (("C-c l" . org-store-link)
|
|
("C-c a" . org-agenda)
|
|
("C-c b" . org-iswitchb)
|
|
("C-c c" . org-capture))
|
|
:config
|
|
(setq org-agenda-files (list "~/notes/planner.org"))
|
|
(setq org-default-notes-file "~/notes/planner.org")
|
|
;; autorise les listes avec numérotation en a. b. a) b), etc.
|
|
(setq org-list-allow-alphabetical t)
|
|
;; fontify code in code blocks
|
|
(setq org-src-fontify-natively t)
|
|
;; tabs in src blocks
|
|
(setq org-src-tab-acts-natively t)
|
|
;; full contents opened by default
|
|
(setq org-startup-folded nil)
|
|
|
|
(add-hook 'org-mode-hook #'visual-line-mode)
|
|
(add-hook 'org-mode-hook 'org-fragtog-mode)
|
|
|
|
;; Set to the location of your Org files on your local system
|
|
(setq org-directory "~/notes")
|
|
|
|
(setq org-agenda-custom-commands
|
|
(quote
|
|
(("z" "Agenda and TODOs"
|
|
((agenda ""
|
|
((org-agenda-span 7)
|
|
(org-agenda-start-on-weekday 1)
|
|
(org-agenda-prefix-format " → %t%s ")
|
|
(org-agenda-repeating-timestamp-show-all t)))
|
|
(tags-todo "work"
|
|
((org-agenda-prefix-format "[ ] ")
|
|
(org-agenda-sorting-strategy '(tag-up priority-down))))
|
|
(tags-todo "personal"
|
|
((org-agenda-prefix-format "[ ] ")
|
|
(org-agenda-sorting-strategy '(tag-up priority-down)))))
|
|
((org-agenda-remove-tags t))
|
|
("fortnight.html"))
|
|
("n" "Agenda and all TODOs"
|
|
((agenda "" nil)
|
|
(alltodo "" nil))
|
|
nil))))
|
|
|
|
(setq org-clock-persist 'history)
|
|
(org-clock-persistence-insinuate)
|
|
|
|
(require 'ox-md nil t)
|
|
|
|
(setq org-capture-templates
|
|
(quote
|
|
(("t" "Task" entry
|
|
(file+olp "~/notes/planner.org" "Inbox")
|
|
"** TODO %?")
|
|
("e" "Event" entry
|
|
(file+olp "~/notes/planner.org" "Inbox")
|
|
"** %?"))))
|
|
(setq org-log-into-drawer t)
|
|
(setq org-structure-template-alist
|
|
(quote
|
|
(("a" . "export ascii")
|
|
("c" . "center")
|
|
("C" . "comment")
|
|
("e" . "example")
|
|
("E" . "export")
|
|
("h" . "export html")
|
|
("l" . "export latex")
|
|
("q" . "quote")
|
|
("s" . "src")
|
|
("v" . "verse")
|
|
("d" . "definition")
|
|
("t" . "theorem")
|
|
("p" . "proposition")
|
|
("P" . "proof"))))
|
|
|
|
;; Org-babel
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'((R . t)
|
|
(emacs-lisp . t)
|
|
(python . t)
|
|
(awk . t)
|
|
(C . t)
|
|
(ditaa . t)
|
|
(dot . t)
|
|
(latex . t)
|
|
(lisp . t)
|
|
(plantuml . t)
|
|
(shell . t)))
|
|
|
|
(setq org-confirm-babel-evaluate nil)
|
|
(setq org-src-preserve-indentation nil
|
|
org-edit-src-content-indentation 0)
|
|
|
|
(require 'ob-plantuml)
|
|
(setq org-plantuml-jar-path (expand-file-name "~/build/plantuml.jar"))
|
|
|
|
;; System locale to use for formatting time values. Make sure that
|
|
;; the weekdays in the time stamps of your Org mode files and in the
|
|
;; agenda appear in English.
|
|
(setq system-time-locale "C")
|
|
|
|
(with-eval-after-load "ox-latex"
|
|
(add-to-list 'org-latex-classes
|
|
'("koma-article" "\\documentclass{scrartcl}"
|
|
("\\section{%s}" . "\\section*{%s}")
|
|
("\\subsection{%s}" . "\\subsection*{%s}")
|
|
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
|
|
("\\paragraph{%s}" . "\\paragraph*{%s}")
|
|
("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
|
|
(add-to-list 'org-latex-packages-alist
|
|
'("AUTO" "babel" t ("pdflatex")))
|
|
(add-to-list 'org-latex-packages-alist
|
|
'("AUTO" "polyglossia" t ("xelatex" "lualatex"))))
|
|
|
|
(setq org-latex-pdf-process
|
|
'("latexmk -shell-escape -lualatex -bibtex -pdf %f"))
|
|
(setq org-latex-default-class "koma-article"))
|
|
|
|
(use-package ox-pandoc
|
|
:straight t
|
|
:config
|
|
(setq org-pandoc-options '((standalone . t)
|
|
(bibliography . "~/notes/bibliography/bibliography.bib"))))
|
|
|
|
(use-package org-fragtog
|
|
:straight t)
|
|
|
|
(use-package org-ref
|
|
:straight t
|
|
:config
|
|
(setq reftex-default-bibliography '("~/notes/bibliography/bibliography.bib"))
|
|
(setq org-ref-bibliography-notes "~/notes/bibliography/notes.org"
|
|
org-ref-default-bibliography '("~/notes/bibliography/bibliography.bib")
|
|
org-ref-pdf-directory "~/notes/bibliography/files/")
|
|
|
|
(setq org-ref-completion-library 'org-ref-helm-bibtex)
|
|
(setq bibtex-dialect 'biblatex)
|
|
|
|
(add-to-list 'org-ref-formatted-citation-formats
|
|
'("custom"
|
|
("article" . "${author}, ${title}, ${journal}, ${volume}(${number}), ${pages} (${year}). ${doi} ${url}")
|
|
("inproceedings" . "${author}, ${title}, In ${editor}, ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}. ${url}")
|
|
("book" . "${author}, ${title} (${year}), ${address}: ${publisher}. ${url}")
|
|
("phdthesis" . "${author}, ${title} (Doctoral dissertation) (${year}). ${school}, ${address}. ${url}")
|
|
("inbook" . "${author}, ${title}, In ${editor} (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}. ${url}")
|
|
("incollection" . "${author}, ${title}, In ${editor} (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}. ${url}")
|
|
("proceedings" . "${editor} (Eds.), ${booktitle} (${year}). ${address}: ${publisher}. ${url}")
|
|
("unpublished" . "${author}, ${title} (${year}). Unpublished manuscript. ${url}")
|
|
(nil . "${author}, ${title} (${year}). ${url}")))
|
|
(setq org-ref-formatted-citation-backend "custom")
|
|
|
|
(require 'doi-utils)
|
|
(require 'org-ref-isbn)
|
|
(require 'org-ref-arxiv)
|
|
|
|
(setq bibtex-autokey-year-length 4)
|
|
|
|
(defun dl/formatted-citation-at-point ()
|
|
"Kill the formatted citation for the reference at point using Pandoc."
|
|
(interactive)
|
|
(let* ((bibfile (expand-file-name (car (org-ref-find-bibliography))))
|
|
(cslfile (concat (file-name-directory bibfile) "chicago-author-date.csl")))
|
|
(kill-new
|
|
(shell-command-to-string
|
|
(format
|
|
"echo cite:%s | pandoc --filter=pandoc-citeproc --bibliography=%s --csl=%s -f org -t markdown_strict | tail -n +3 | tr '\n' ' '"
|
|
(org-ref-get-bibtex-key-under-cursor)
|
|
bibfile
|
|
cslfile)))))
|
|
|
|
(defun dl/formatted-citation-from-doi (doi)
|
|
"Kill the formatted citation for the given DOI."
|
|
(interactive
|
|
(list (read-string
|
|
"DOI: "
|
|
;; now set initial input
|
|
(doi-utils-maybe-doi-from-region-or-current-kill))))
|
|
(let ((url-mime-accept-string "text/x-bibliography; style=chicago-author-date"))
|
|
(with-temp-buffer
|
|
(url-insert-file-contents (format "https://doi.org/%s" doi))
|
|
(kill-new (buffer-string))))))
|
|
|
|
(use-package org-roam
|
|
:straight t
|
|
:hook (after-init . org-roam-mode)
|
|
:custom
|
|
(org-roam-directory "~/notes/notes")
|
|
:bind
|
|
(:map org-roam-mode-map
|
|
(("C-c n l" . org-roam)
|
|
("C-c n f" . org-roam-find-file)
|
|
("C-c n b" . org-roam-switch-to-buffer)
|
|
("C-c n g" . org-roam-graph)
|
|
("C-c n j" . org-roam-dailies-capture-today)
|
|
("C-c n t" . org-roam-dailies-find-today)))
|
|
(:map org-mode-map
|
|
(("C-c n i" . org-roam-insert)))
|
|
:config
|
|
(setq org-roam-graph-executable "dot")
|
|
(setq org-roam-graph-extra-config '(("overlap" . "false") ("rankdir" . "LR")))
|
|
(setq org-roam-completion-system 'ivy)
|
|
(setq org-roam-link-use-custom-faces 'everywhere)
|
|
(set-face-attribute 'org-roam-link nil :foreground "lime green")
|
|
(require 'org-roam-protocol)
|
|
(setq org-roam-dailies-directory "daily/"))
|
|
|
|
(use-package org-roam-bibtex
|
|
:straight t
|
|
:after org-roam
|
|
:hook (org-roam-mode . org-roam-bibtex-mode))
|
|
|
|
(use-package deft
|
|
:straight t
|
|
:after org
|
|
:bind ("C-c n d" . deft)
|
|
:custom
|
|
(deft-recursive t)
|
|
(deft-use-filter-string-for-filename t)
|
|
(deft-default-extension "org")
|
|
(deft-directory "~/notes/notes"))
|
|
|
|
(use-package ox-gfm
|
|
:straight t
|
|
:after (org)
|
|
:config
|
|
(eval-after-load "org"
|
|
'(require 'ox-gfm nil t)))
|
|
|
|
(use-package graphviz-dot-mode
|
|
:straight t
|
|
:config
|
|
(setq graphviz-dot-indent-width 4)
|
|
(setq graphviz-dot-preview-extension "svg"))
|
|
|
|
(use-package company-graphviz-dot)
|
|
|
|
(use-package hledger-mode
|
|
:straight t
|
|
:mode ("\\.journal\\'" "\\.hledger\\'")
|
|
:init
|
|
(setq hledger-jfile (expand-file-name "~/.hledger.journal"))
|
|
:config
|
|
(add-to-list 'company-backends 'hledger-company)
|
|
(global-set-key (kbd "C-c e") 'hledger-jentry)
|
|
(global-set-key (kbd "C-c j") 'hledger-run-command))
|
|
|
|
(use-package mu4e
|
|
:load-path "~/build/mu-1.4.13/mu4e"
|
|
:bind ("C-c m" . mu4e)
|
|
:custom
|
|
;; Folders
|
|
(mu4e-sent-folder "/sent") ;; folder for sent messages
|
|
(mu4e-drafts-folder "/drafts") ;; unfinished messages
|
|
(mu4e-trash-folder "/trash") ;; trashed messages
|
|
(mu4e-refile-folder "/archive") ;; saved messages
|
|
;; Sync
|
|
(mu4e-get-mail-command "mbsync -a")
|
|
(mu4e-update-interval 300) ; ;; update every 5 min
|
|
;; Personal details
|
|
(user-mail-address "dimitri@lozeve.com")
|
|
(user-full-name "Dimitri Lozeve")
|
|
;; Behaviour
|
|
(message-kill-buffer-on-exit t)
|
|
(mu4e-confirm-quit nil)
|
|
(mu4e-attachment-dir "~/Downloads")
|
|
(mu4e-sent-messages-behavior 'delete) ;; don't save messages to Sent Messages, Gmail/IMAP takes care of this
|
|
(mail-user-agent 'mu4e-user-agent) ;; default program for sending mail in Emacs
|
|
;; View and compose
|
|
(mu4e-use-fancy-chars nil)
|
|
(mu4e-view-show-addresses t)
|
|
(mu4e-view-show-images t)
|
|
(mu4e-headers-show-threads t)
|
|
(mu4e-compose-dont-reply-to-self t)
|
|
(mu4e-compose-format-flowed t)
|
|
:config
|
|
(add-to-list 'mu4e-view-actions '("view in browser" . mu4e-action-view-in-browser))
|
|
(add-hook 'mu4e-view-mode-hook #'visual-line-mode)
|
|
(add-hook 'mu4e-compose-mode-hook 'flyspell-mode)
|
|
(require 'smtpmail)
|
|
(setq message-send-mail-function 'smtpmail-send-it
|
|
;; starttls-use-gnutls t
|
|
;; smtpmail-starttls-credentials '(("smtp.zoho.eu" 587 nil nil))
|
|
smtpmail-auth-credentials '(("smtp.zoho.eu" 465 "dimitri@lozeve.com" nil))
|
|
smtpmail-default-smtp-server "smtp.zoho.eu"
|
|
smtpmail-smtp-server "smtp.zoho.eu"
|
|
smtpmail-stream-type 'ssl
|
|
smtpmail-smtp-service 465))
|
|
|
|
(use-package vterm
|
|
:straight t
|
|
:config
|
|
(setq vterm-kill-buffer-on-exit t)
|
|
(global-set-key (kbd "C-x RET RET") 'vterm-other-window)
|
|
(define-key vterm-mode-map (kbd "<C-backspace>")
|
|
(lambda () (interactive) (vterm-send-key (kbd "C-w")))))
|
|
|
|
(defun my-insert-char ()
|
|
"Search for a unicode character and insert it."
|
|
(interactive)
|
|
(with-temp-buffer
|
|
(call-interactively 'insert-char)
|
|
(kill-ring-save (point-min) (point-max))))
|
|
|
|
|
|
;; configuration file for secrets (API keys, etc)
|
|
(setq secrets-file (expand-file-name "secrets.el" user-emacs-directory))
|
|
|
|
(when (file-exists-p secrets-file)
|
|
(load secrets-file))
|
|
|
|
|
|
;; config changes made through the customize UI will be stored here
|
|
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
|
|
|
|
(when (file-exists-p custom-file)
|
|
(load custom-file))
|
|
|
|
;;(setq initial-scratch-message ";; ╔═╗┌─┐┬─┐┌─┐┌┬┐┌─┐┬ ┬\n;; ╚═╗│ ├┬┘├─┤ │ │ ├─┤\n;; ╚═╝└─┘┴└─┴ ┴ ┴ └─┘┴ ┴\n\n")
|
|
;;(setq initial-scratch-message ";; ____ \\__ \\ \n;; \\__ \\__/ / __\n;; __/ ____ \\ \\ \\ ____\n;; / __ \\__ \\ \\/ / __ \\__ \\ \n;; ____ \\ \\ \\__/ / __ \\/ / __/ / __\n;; ____ \\__ \\ \\/ ____ \\/ / __/ / __ \\ \\ \\ \n;; \\__ \\__/ / __ \\__ \\__/ / __ \\ \\ \\ \\/\n;; __/ ____ \\ \\ \\__/ ____ \\ \\ \\ \\/ / __\n;; / __ \\__ \\ \\/ ____ \\__ \\ \\/ / __ \\/ /\n;; \\ \\ \\__/ / __ \\__ \\__/ / __ \\ \\ \\__/\n;; \\/ ____ \\/ / __/ ____ \\ \\ \\ \\/ ____\n;; \\__ \\__/ / __ \\__ \\ \\/ / __ \\__ \\ \n;; __/ ____ \\ \\ \\__/ / __ \\/ / __/ / __\n;; / __ \\__ \\ \\/ ____ \\/ / __/ / __ \\/ /\n;; \\/ / __/ / __ \\__ \\__/ / __ \\/ / __/\n;; __/ / __ \\ \\ \\__/ ____ \\ \\ \\__/ / __\n;; / __ \\ \\ \\ \\/ ____ \\__ \\ \\/ ____ \\/ /\n;; \\ \\ \\ \\/ / __ \\__ \\__/ / __ \\__ \\__/\n;; \\/ / __ \\/ / __/ ____ \\ \\ \\__/\n;; \\ \\ \\__/ / __ \\__ \\ \\/\n;; \\/ \\ \\ \\__/ / __\n;; \\/ ____ \\/ /\n;; \\__ \\__/\n;; __/\n\n\n")
|
|
;;(setq initial-scratch-message ";; ____\n;; /.../\\\n;; /.../--\\ \n;; /.../----\\ \n;; /.../------\\\n;; /.../---/\\---\\ \n;; /.../---/\\\\\\---\\\n;; /.../---/\\\\\\\\\\---\\\n;; /.../===/__\\\\\\\\\\---\\\n;; /............\\\\\\\\\\---\\\n;; /..............\\\\\\\\\\---\\\n;; \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\--/\n;; \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/\n\n\n")
|
|
|
|
|
|
;;; init.el ends here
|