1
0
Fork 0

Emacs Settings

This commit is contained in:
J. Elfring (i) 2023-01-25 12:50:31 +01:00
parent 6641b6b642
commit c206468ca0
3 changed files with 19 additions and 32 deletions

View file

@ -77,24 +77,32 @@
;; ;;
;; ;;
;; No confirmation on exit
(setq confirm-kill-emacs nil)
;; Keymaps ;; Keymaps
(global-set-key [f8] 'neotree-toggle) (global-set-key [f8] 'neotree-toggle)
;; Just settings... ;; Just settings...
(beacon-mode 1) (beacon-mode 1)
(setq confirm-kill-emacs nil)
(setq ispell-dictionary "de_DE") ;; also make sure .emacs.d/.local/etc/ispell exists
;; org-mode options ;; org-mode options
(after! org (after! org
;; Setup folding bit not for agenda
(setq org-agenda-inhibit-startup t)
(setq org-startup-folded 'content)
(setq org-todo-keywords '((sequence "TODO(t)" "BACKLOG(b)" "|" "DONE(d)" "CLOSED(c)") (setq org-todo-keywords '((sequence "TODO(t)" "BACKLOG(b)" "|" "DONE(d)" "CLOSED(c)")
(sequence "REPORT" "BUG" "KNOWNCAUSE" "|" "FIXED"))) (sequence "REPORT" "BUG" "KNOWNCAUSE" "|" "FIXED")))
;; Setup a beautiful export
(setq org-export-default-language "de") (setq org-export-default-language "de")
(setq org-export-with-toc nil) (setq org-export-with-toc nil)
(setq org-export-with-tasks '("TODO" "DONE" "BACKLOG")) (setq org-export-with-tasks '("TODO" "DONE" "BACKLOG"))
(setq org-latex-default-class "je-article") (setq org-latex-default-class "je-article")
(add-to-list 'org-latex-packages-alist '("AUTO" "babel" nil)) (add-to-list 'org-latex-packages-alist '("AUTO" "babel" nil))
;; Customizations to the default export template
(with-eval-after-load 'ox-latex (add-to-list 'org-latex-classes '("je-article" (with-eval-after-load 'ox-latex (add-to-list 'org-latex-classes '("je-article"
"\\documentclass[a4paper,twocolumn]{article} "\\documentclass[a4paper,twocolumn]{article}
\\usepackage{enumitem} \\usepackage{enumitem}
@ -107,7 +115,7 @@
("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}")))) ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))))
;; An export todo-heading style for reference
(defun ref-org-latex-format-headline-function (todo todo-type priority text tags _info) (defun ref-org-latex-format-headline-function (todo todo-type priority text tags _info)
"Default format function for a headline. See `org-latex-format-headline-function' for details." "Default format function for a headline. See `org-latex-format-headline-function' for details."
(concat (concat
@ -122,6 +130,7 @@
(format "\\hfill{}\\textsc{%s}" (format "\\hfill{}\\textsc{%s}"
(mapconcat #'org-latex--protect-text tags ":"))))) (mapconcat #'org-latex--protect-text tags ":")))))
;; My export todo-heading style
(defun je-org-latex-format-headline-function (todo todo-type priority text tags _info) (defun je-org-latex-format-headline-function (todo todo-type priority text tags _info)
"Default format function for a headline. See `org-latex-format-headline-function' for details." "Default format function for a headline. See `org-latex-format-headline-function' for details."
(concat (concat
@ -132,26 +141,7 @@
todo)) todo))
text text
)) ))
(setq org-latex-format-headline-function 'je-org-latex-format-headline-function)) (setq org-latex-format-headline-function 'je-org-latex-format-headline-function))
(with-eval-after-load "ispell" ;; Use the internal latex viewer
;; Configure `LANG`, otherwise ispell.el cannot find a 'default (setq +latex-viewers '(pdf-tools skim))
;; dictionary' even though multiple dictionaries will be configured
;; in next line.
;(setenv "LANG" "en_US.UTF-8")
(setq ispell-program-name "hunspell")
;; Configure German, Swiss German, and two variants of English.
(setq ispell-dictionary "de_DE,en_GB,en_US")
;; ispell-set-spellchecker-params has to be called
;; before ispell-hunspell-add-multi-dic will work
(ispell-set-spellchecker-params)
(ispell-hunspell-add-multi-dic "de_DE,en_GB,en_US")
;; For saving words to the personal dictionary, don't infer it from
;; the locale, otherwise it would save to ~/.hunspell_de_DE.
(setq ispell-personal-dictionary "~/.hunspell_personal"))
;; The personal dictionary file has to exist, otherwise hunspell will
;; silently not use it.
(unless (file-exists-p ispell-personal-dictionary)
(write-region "" nil ispell-personal-dictionary nil 0))

View file

@ -77,11 +77,11 @@
eshell ; the elisp shell that works everywhere eshell ; the elisp shell that works everywhere
;;shell ; simple shell REPL for Emacs ;;shell ; simple shell REPL for Emacs
;;term ; basic terminal emulator for Emacs ;;term ; basic terminal emulator for Emacs
vterm ; the best terminal emulation in Emacs ;;vterm ; the best terminal emulation in Emacs
:checkers :checkers
syntax ; tasing you for every semicolon you forget syntax ; tasing you for every semicolon you forget
;;(spell +flyspell) ; tasing you for misspelling mispelling (spell +flyspell) ; tasing you for misspelling mispelling
;;grammar ; tasing grammar mistake every you make ;;grammar ; tasing grammar mistake every you make
:tools :tools
@ -99,7 +99,7 @@
magit ; a git porcelain for Emacs magit ; a git porcelain for Emacs
;;make ; run make tasks from Emacs ;;make ; run make tasks from Emacs
;;pass ; password manager for nerds ;;pass ; password manager for nerds
;;pdf ; pdf enhancements pdf ; pdf enhancements
;;prodigy ; FIXME managing external services & code builders ;;prodigy ; FIXME managing external services & code builders
;;rgb ; creating color strings ;;rgb ; creating color strings
;;taskrunner ; taskrunner for all your projects ;;taskrunner ; taskrunner for all your projects
@ -145,7 +145,7 @@
;;javascript ; all(hope(abandon(ye(who(enter(here)))))) ;;javascript ; all(hope(abandon(ye(who(enter(here))))))
;;julia ; a better, faster MATLAB ;;julia ; a better, faster MATLAB
;;kotlin ; a better, slicker Java(Script) ;;kotlin ; a better, slicker Java(Script)
;;latex ; writing papers in Emacs has never been so fun latex ; writing papers in Emacs has never been so fun
;;lean ; for folks with too much to prove ;;lean ; for folks with too much to prove
;;ledger ; be audit you can be ;;ledger ; be audit you can be
;;lua ; one-based indices? one-based indices ;;lua ; one-based indices? one-based indices

View file

@ -132,8 +132,5 @@ alias y_rem='pikaur -Rsn'
# Passwort erstellen # Passwort erstellen
alias mkpasswd='openssl rand -base64 40 | cut -c1-40' alias mkpasswd='openssl rand -base64 40 | cut -c1-40'
# Emacs called from bash should be run inside the terminal
alias emacs='emacs -nw'
# Copy latest Download into primary selection # Copy latest Download into primary selection
alias cld='cat $(ls --directory --format single-column -t --color=never ~/Downloads/* | head --lines 1) | xclip -in' alias cld='cat $(ls --directory --format single-column -t --color=never ~/Downloads/* | head --lines 1) | xclip -in'