181 lines
3.9 KiB
EmacsLisp
181 lines
3.9 KiB
EmacsLisp
;; set default font
|
|
(when (member "Fantasque Sans Mono" (font-family-list))
|
|
(set-face-attribute 'default nil :font "Fantasque Sans Mono-16"))
|
|
|
|
;; Always use slant for italic, not underline
|
|
'(italic ((t (:slant italic))))
|
|
|
|
;;;; Load my packages
|
|
;;Default theme
|
|
(use-package zenburn-theme
|
|
:config
|
|
(load-theme 'zenburn t))
|
|
|
|
;;Org
|
|
(use-package org
|
|
:config
|
|
(load "~/.emacs.d/elisp/org-setup.el"))
|
|
(use-package org-ref)
|
|
(use-package org-roam
|
|
:config
|
|
(load "~/.emacs.d/elisp/org-roam-setup.el"))
|
|
|
|
;; modeline
|
|
;; configure the default one
|
|
(load "~/.emacs.d/elisp/modeline-setup.el")
|
|
;; then use doom-modeline
|
|
(use-package all-the-icons)
|
|
(use-package doom-modeline
|
|
:config
|
|
(progn
|
|
(setq doom-modeline-buffer-encoding nil)
|
|
(setq doom-modeline-height 15)
|
|
(when (member "Fantasque Sans Mono" (font-family-list))
|
|
(set-face-attribute 'mode-line nil :font "Fantasque Sans Mono-14")
|
|
(set-face-attribute 'mode-line-inactive nil :font "Fantasque Sans Mono-13")))
|
|
:hook
|
|
(after-init . doom-modeline-mode))
|
|
|
|
(use-package dashboard
|
|
:config
|
|
(dashboard-setup-startup-hook))
|
|
|
|
;; Reading
|
|
(use-package nov
|
|
:config
|
|
(add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)))
|
|
|
|
(use-package pdf-tools
|
|
:config
|
|
(progn
|
|
(pdf-tools-install)
|
|
(setq pdf-view-midnight-colors '("#DCDCCC" . "#3F3F3F"))))
|
|
|
|
(use-package saveplace-pdf-view
|
|
:straight t
|
|
:config
|
|
(save-place-mode 1))
|
|
|
|
;; Mail reader
|
|
(use-package mu4e
|
|
:config
|
|
(load "~/.emacs.d/elisp/mu4e-setup.el"))
|
|
;; mail notification in modeline
|
|
(use-package mu4e-alert
|
|
:after mu4e
|
|
:init
|
|
(setq mu4e-alert-interesting-mail-query "flag:unread maildir:/posteo/INBOX")
|
|
:hook
|
|
(after-init . mu4e-alert-enable-mode-line-display))
|
|
|
|
;; Read Gopher and Gemini
|
|
(use-package elpher)
|
|
|
|
;; Read feeds
|
|
(use-package elfeed)
|
|
|
|
;; Write gemtext
|
|
(use-package gemini-mode
|
|
:straight t)
|
|
|
|
;; Interface with guix package manager
|
|
(use-package guix)
|
|
|
|
;; Programming environment
|
|
;; We need colors in eshell
|
|
(use-package xterm-color)
|
|
|
|
;; git
|
|
(use-package magit)
|
|
|
|
;; code completion
|
|
(use-package company
|
|
:config
|
|
(add-hook 'after-init-hook 'global-company-mode))
|
|
|
|
;; language server
|
|
(use-package lsp-mode)
|
|
|
|
;; R
|
|
(use-package ess
|
|
;:config
|
|
;(load "~/.emacs.d/elisp/ess-setup.el")
|
|
)
|
|
|
|
;; Javascript and React
|
|
(use-package rjsx-mode
|
|
:config
|
|
(add-to-list 'auto-mode-alist '("\\.js\\'" . rjsx-mode)))
|
|
|
|
;; Typescript
|
|
(use-package tide
|
|
:config
|
|
(load "~/.emacs.d/elisp/typescript.el"))
|
|
|
|
;; Java
|
|
(use-package lsp-java)
|
|
|
|
;; Geiser
|
|
(use-package geiser)
|
|
(use-package geiser-guile)
|
|
|
|
;; Common Lisp
|
|
(use-package slime
|
|
:config
|
|
(load "~/.emacs.d/elisp/slime-setup.el"))
|
|
|
|
;; Clojure
|
|
(use-package cider)
|
|
|
|
;; Rust
|
|
(use-package rust-mode
|
|
:config
|
|
(load "~/.emacs.d/elisp/rust-setup.el"))
|
|
|
|
;; Haskell
|
|
(use-package haskell-mode)
|
|
|
|
;; Racket
|
|
(use-package racket-mode)
|
|
|
|
;; Python
|
|
(use-package elpy
|
|
:disabled
|
|
:init
|
|
(elpy-enable)
|
|
:config
|
|
(add-to-list 'process-coding-system-alist '("python" . (utf-8 . utf-8))))
|
|
|
|
;;Ivy related stuff
|
|
(use-package ivy)
|
|
(use-package ivy-bibtex
|
|
:straight t)
|
|
(use-package counsel)
|
|
(use-package swiper)
|
|
(load "~/.emacs.d/elisp/ivy-setup.el")
|
|
|
|
;;TRAMP
|
|
(load "~/.emacs.d/elisp/tramp-setup.el")
|
|
(load "~/.emacs.d/elisp/outline-keymap.el")
|
|
(load "~/.emacs.d/elisp/bibtex-setup.el")
|
|
(load "~/.emacs.d/elisp/keypad.el")
|
|
|
|
;; from https://www.anghyflawn.net/blog/2014/emacs-give-a-doi-get-a-bibtex-entry/
|
|
(defun get-bibtex-from-doi (doi)
|
|
"Get a BibTeX entry from the DOI"
|
|
(interactive "MDOI: ")
|
|
(let ((url-mime-accept-string "text/bibliography;style=bibtex"))
|
|
(with-current-buffer
|
|
(url-retrieve-synchronously
|
|
(format "http://dx.doi.org/%s"
|
|
(replace-regexp-in-string "http://dx.doi.org/" "" doi)))
|
|
(switch-to-buffer (current-buffer))
|
|
(goto-char (point-max))
|
|
(setq bibtex-entry
|
|
(buffer-substring
|
|
(string-match "@" (buffer-string))
|
|
(point)))
|
|
(kill-buffer (current-buffer))))
|
|
(insert (decode-coding-string bibtex-entry 'utf-8))
|
|
(bibtex-fill-entry))
|