mmk2410/dotfiles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Emacs: better use of set (mostly combining)

Browse source
This commit is contained in:
Marcel Kapfer 2018-02-23 09:52:42 +01:00
parent 8f3185c82b
commit b206903d31
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09
1 changed files with 104 additions and 115 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

219
emacs/emacs.el
View file

@ -342,48 +342,43 @@
("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}")))) ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))))
;; add latex packages and configurations
(setq org-latex-packages-alist
'(
("" "booktabs" t)
("" "listings" t)
("" "xcolor" t)
("" "polyglossia" t)
("utf8" "luainputenc" t)
("" "fontspec" t)
("hidelinks" "hyperref" t)
("" "libertineotf" t)
("scale=0.9" "AnonymousPro" t)
"\\setmainfont{Linux Libertine O}"
"\\setsansfont{Linux Biolinum O}"
"\\setmonofont{AnonymousPro}"
"\\addtokomafont{disposition}{\\fontspec{LinBiolinum_RB}}"
"\\setdefaultlanguage{german}"))
;; enable latex listings ;; latex related option (mainly support for lualatex)
(setq org-latex-listings 'listings) (setq
;; add latex packages and configurations
;; latex listings options org-latex-packages-alist
(setq org-latex-listings-options '(
'( ("" "booktabs" t)
("frame" "single") ("" "listings" t)
("rulesep" "6pt") ("" "xcolor" t)
("backgroundcolor" "\\color{gray!20}") ("" "polyglossia" t)
("basicstyle" "\\footnotesize\\ttfamily") ("utf8" "luainputenc" t)
("breaklines" "true") ("" "fontspec" t)
)) ("hidelinks" "hyperref" t)
("scale=0.9" "AnonymousPro" t)
"\\setmainfont{Linux Libertine O}"
"\\setsansfont{Linux Biolinum O}"
"\\setmonofont{AnonymousPro}"
"\\setdefaultlanguage{german}")
;; enable latex listings
org-latex-listings 'listings
;; latex listings options
org-latex-listings-options
'(
("frame" "single")
("rulesep" "6pt")
("backgroundcolor" "\\color{gray!20}")
("basicstyle" "\\footnotesize\\ttfamily")
("breaklines" "true")))
;; remove unused default packages ;; remove unused default packages
(unless (boundp 'org-latex-default-packages-alist) (unless (boundp 'org-latex-default-packages-alist)
(setq org-latex-default-packages-alist nil)) (setq org-latex-default-packages-alist nil))
(setq org-latex-default-packages-alist (setq
(remove '("AUTO" "inputenc" t) org-latex-default-packages-alist)) org-latex-default-packages-alist (remove '("AUTO" "inputenc" t) org-latex-default-packages-alist)
(setq org-latex-default-packages-alist org-latex-default-packages-alist (remove '("" "fixltx2e" nil) org-latex-default-packages-alist)
(remove '("" "fixltx2e" nil) org-latex-default-packages-alist)) org-latex-default-packages-alist (remove '("" "hyperref" nil) org-latex-default-packages-alist)
(setq org-latex-default-packages-alist org-latex-default-packages-alist (remove '"\\tolerance=1000" org-latex-default-packages-alist))
(remove '("" "hyperref" nil) org-latex-default-packages-alist))
(setq org-latex-default-packages-alist
(remove '"\\tolerance=1000" org-latex-default-packages-alist))
;; syntax highlighting ;; syntax highlighting
(setq org-src-fontify-natively t) (setq org-src-fontify-natively t)
@ -395,9 +390,11 @@
;; Graphically indicate the fill column ;; Graphically indicate the fill column
(use-package fill-column-indicator (use-package fill-column-indicator
:config :config
;; set rule width to 5px (setq
(setq fci-rule-width 5) ;; set rule width to 5px
(setq fci-rule-color "#5B6268")) fci-rule-width 5
;; set rule color
fci-rule-color "#5B6268"))
;; diff-hl ;; diff-hl
;; Highlight uncommitted changes using VC ;; Highlight uncommitted changes using VC
@ -527,12 +524,10 @@
;; Isearch with an overview. Oh, man! ;; Isearch with an overview. Oh, man!
(use-package swiper (use-package swiper
:config :config
(progn (ivy-mode 1)
(ivy-mode 1) (setq ivy-use-virtual-buffers t
(setq ivy-use-virtual-buffers t) ivy-display-style 'fancy
(setq ivy-display-style 'fancy) ivy-extra-directories nil)
(setq ivy-extra-directories nil)
(define-key read-expression-map (kbd "C-r") 'counsel-expression-history))
:bind :bind
(("C-s" . swiper) (("C-s" . swiper)
("C-r" . swiper))) ("C-r" . swiper)))
@ -562,8 +557,9 @@
(use-package ox-pandoc (use-package ox-pandoc
:mode ("\\.org$" . org-mode) :mode ("\\.org$" . org-mode)
:config :config
(setq org-pandoc-options-for-latex-pdf '((latex-engine . "lualatex"))) ;; use lualatex instead of pdflatex
(setq org-pandoc-options-for-beamer-pdf '((latex-engine . "lualatex")))) (setq org-pandoc-options-for-latex-pdf '((latex-engine . "lualatex"))
org-pandoc-options-for-beamer-pdf '((latex-engine . "lualatex"))))
;; org-trello ;; org-trello
;; Minor mode to synchronize org-mode buffer and trello board ;; Minor mode to synchronize org-mode buffer and trello board
@ -634,11 +630,11 @@
(("\\.html?\\'" . web-mode)) (("\\.html?\\'" . web-mode))
(("\\.css?\\'" . web-mode)) (("\\.css?\\'" . web-mode))
:config :config
(setq web-mode-markup-indent-offset 2) (setq web-mode-markup-indent-offset 2
(setq web-mode-css-indent-offset 2) web-mode-css-indent-offset 2
(setq web-mode-enable-css-colorization t) web-mode-enable-css-colorization t
(setq web-mode-code-indent-offset 2) web-mode-code-indent-offset 2
(setq web-mode-indent-style 2)) web-mode-indent-style 2))
;; dart-mode ;; dart-mode
;; Major mode for editing Dart files ;; Major mode for editing Dart files
@ -721,19 +717,17 @@
;; coffee-mode ;; coffee-mode
;; Major mode for CoffeeScript code ;; Major mode for CoffeeScript code
(use-package coffee-mode (use-package coffee-mode
:config
(setq whitespace-action '(auto-cleanup))
(setq whitespace-style '(trailing space-before-tab indentation empty space-after-tab))
(setq coffee-tab-width 2)
:mode (("\\.coffee\\'" . coffee-mode)) :mode (("\\.coffee\\'" . coffee-mode))
:config (setq whitespace-action '(auto-cleanup)
whitespace-style '(trailing space-before-tab indentation empty space-after-tab)
coffee-tab-width 2)
:hook (coffee-mode-hook whitespace-mode)) :hook (coffee-mode-hook whitespace-mode))
;; python ;; python
;; Python's flying circus support for Emacs ;; Python's flying circus support for Emacs
(use-package python (use-package python
:config
(setq flycheck-python-pylint-executable "pylint3"))
:mode (("\\.py\\'" . python-mode)) :mode (("\\.py\\'" . python-mode))
:config (setq flycheck-python-pylint-executable "pylint3"))
;; sr-speedbar ;; sr-speedbar
;; Same frame speedbar ;; Same frame speedbar
@ -753,56 +747,54 @@
mu4e-update-interval 300) mu4e-update-interval 300)
;; faster reindexing ;; faster reindexing
(setq (setq mu4e-maildir-index-cleanup nil
mu4e-maildir-index-cleanup nil mu4e-index-lazy-check t)
mu4e-index-lazy-check t)
;; smtpmail settings ;; smtpmail settings
(setq message-send-mail-function 'smtpmail-send-it (setq message-send-mail-function 'smtpmail-send-it
send-mail-function 'smtpmail-send-it) send-mail-function 'smtpmail-send-it)
;; don't save sent messages to "Sent" folder ;; general mu4e options
(setq mu4e-sent-messages-behavior 'delete) (setq
;; use mu4e as default emacs mailer
;; use mu4e as default emacs mailer mail-user-agent 'mu4e-user-agent
(setq mail-user-agent 'mu4e-user-agent) ;; don't keep message buffers around
message-kill-buffer-on-exit t
;; don't keep message buffers around ;; don't save sent messages to "Sent" folder
(setq message-kill-buffer-on-exit t) mu4e-sent-messages-behavior 'delete
;; complete date format
;; complete date format mu4e-headers-date-format "%Y-%m-%d %H:%M"
(setq mu4e-headers-date-format "%Y-%m-%d %H:%M") ;; show full addresses
mu4e-view-show-addresses 't
;; show full addresses ;; attachment directory
(setq mu4e-view-show-addresses 't) mu4e-attachment-dir "/tmp"
;; don't reply to myself
;; attachment directory mu4e-compose-dont-reply-to-self t
(setq mu4e-attachment-dir "/tmp") ;; maildir
mu4e-maildir "~/.mail"
;; maildir ;; use correct account context when sending mail based from headers
(setq mu4e-maildir "~/.mail") message-sendmail-envelope-from 'header)
;; don't reply to myself
(setq mu4e-compose-dont-reply-to-self t)
;; list of email addresses ;; list of email addresses
(setq mu4e-user-mail-address-list '("marcel.kapfer@uni-ulm.de" (setq mu4e-user-mail-address-list
"marcel@marcel-kapfer.de" '("marcel.kapfer@uni-ulm.de"
"tex@mmk2410.org" "marcel@marcel-kapfer.de"
"me@mmk2410.org" "tex@mmk2410.org"
"debian@mmk2410.org" "me@mmk2410.org"
"hugo@marcel-kapfer.de" "debian@mmk2410.org"
"info@marcel-kapfer.de" "hugo@marcel-kapfer.de"
"contact@marcel-kapfer.de" "info@marcel-kapfer.de"
"kontakt@marcel-kapfer.de" "contact@marcel-kapfer.de"
"opensource@mmk2410.org")) "kontakt@marcel-kapfer.de"
"opensource@mmk2410.org"))
;; customize mu4e list view ;; customize mu4e list view
(setq mu4e-headers-fields '((:human-date . 20) (setq mu4e-headers-fields
(:flags . 6) '((:human-date . 20)
(:mailing-list . 10) (:flags . 6)
(:from-or-to . 22) (:mailing-list . 10)
(:subject . nil))) (:from-or-to . 22)
(:subject . nil)))
;; convenience function for starting the whole mu4e in its own frame ;; convenience function for starting the whole mu4e in its own frame
;; posted by the author of mu4e on the mailing list ;; posted by the author of mu4e on the mailing list
@ -812,12 +804,6 @@
(select-frame (make-frame)) (select-frame (make-frame))
(mu4e)) (mu4e))
;; spell checking
(add-hook 'mu4e-compose-mode-hook 'flyspell-mode)
;; use correct account context when sending mail based from headers
(setq message-sendmail-envelope-from 'header)
;; set citation line ;; set citation line
(setq message-citation-line-format "%f on %Y-%m-%d %H:%M %Z:\n") (setq message-citation-line-format "%f on %Y-%m-%d %H:%M %Z:\n")
(setq message-citation-line-function 'message-insert-citation-line) (setq message-citation-line-function 'message-insert-citation-line)
@ -881,11 +867,11 @@
;; custom shortcuts ;; custom shortcuts
(setq mu4e-maildir-shortcuts (setq mu4e-maildir-shortcuts
'(("/university/inbox" . ?u) '(("/university/inbox" . ?u)
("/university/fin.fin" . ?f) ("/university/fin/fin" . ?f)
("/university/fin.intern" . ?i) ("/university/fin/intern" . ?i)
("/mailbox/inbox" . ?m) ("/mailbox/inbox" . ?m)
("/mailbox/debian.devel-changes" . ?c) ("/mailbox/debian/devel-changes" . ?c)
("/mailbox/debian.user" . ?d))) ("/mailbox/debian/user" . ?d)))
;; always add myself as BCC ;; always add myself as BCC
(add-hook 'mu4e-compose-mode-hook (add-hook 'mu4e-compose-mode-hook
@ -967,10 +953,13 @@
TeX-source-correlate-start-server t TeX-source-correlate-start-server t
;; use pdf-tools with synctex ;; use pdf-tools with synctex
TeX-view-program-selection '((output-pdf "PDF Tools")) TeX-view-program-selection '((output-pdf "PDF Tools"))
TeX-source-correlate-start-server t TeX-source-correlate-start-server t)
)
(setq-default TeX-master nil (setq-default
TeX-engine 'luatex)) ;; set to nil, so AUCTeX always asks for the master file
TeX-master nil
;; use a decent, modern TeX engine
TeX-engine 'luatex))
;; LaTeX with AUCTeX ;; LaTeX with AUCTeX
;; Integrated environment for TeX ;; Integrated environment for TeX