new fancy config
This commit is contained in:
parent
b9188d14cc
commit
b45712de26
GPG key ID:
91FA5E5BF9AA901C
7 changed files with 254 additions and 457 deletions
17
.gitignore
vendored
17
.gitignore
vendored
|
|
@ -1,18 +1,21 @@
|
||||||
|
.org-id-locations
|
||||||
|
.tmp
|
||||||
auto-save-list
|
auto-save-list
|
||||||
backups
|
backups
|
||||||
bookmarks
|
bookmarks
|
||||||
|
bookmarks
|
||||||
custom.el
|
custom.el
|
||||||
|
eln-cache
|
||||||
|
elpa
|
||||||
|
games
|
||||||
games
|
games
|
||||||
ido.last
|
ido.last
|
||||||
irony
|
irony
|
||||||
|
org-latex-preview
|
||||||
|
org-roam.db
|
||||||
projectile-bookmarks.eld
|
projectile-bookmarks.eld
|
||||||
|
projects
|
||||||
|
racket-mode
|
||||||
smex-items
|
smex-items
|
||||||
straight
|
straight
|
||||||
transient
|
transient
|
||||||
games
|
|
||||||
bookmarks
|
|
||||||
org-roam.db
|
|
||||||
eln-cache
|
|
||||||
org-latex-preview
|
|
||||||
.org-id-locations
|
|
||||||
racket-mode
|
|
||||||
|
|
|
||||||
523
init.el
523
init.el
|
|
@ -1,249 +1,86 @@
|
||||||
;;; init.el --- emacs configuration -*- lexical-binding: t; -*-
|
(add-to-list 'load-path "~/.emacs.d/lisp/")
|
||||||
;;; Commentary:
|
;;; basic bits
|
||||||
;;; M-x 🦋
|
(require 'oxa/sane-defaults)
|
||||||
;;; Code:
|
(require 'oxa/utils)
|
||||||
;; bug in emacs<26.3
|
(require 'oxa/misc)
|
||||||
(if (version< emacs-version "26.3")
|
|
||||||
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3"))
|
|
||||||
|
|
||||||
(defconst oxa/using-native-comp (and (fboundp 'native-comp-available-p)
|
(require 'oxa/org)
|
||||||
(native-comp-available-p)))
|
(require 'oxa/latex)
|
||||||
|
|
||||||
(if oxa/using-native-comp
|
;;; theme
|
||||||
(setq native-comp-deferred-compilation t
|
(oxa/insure 'gruber-darker-theme)
|
||||||
native-comp-async-query-on-exit t
|
(load-theme 'gruber-darker t)
|
||||||
native-comp-async-jobs-number 6
|
(set-face-italic 'font-lock-comment-face t)
|
||||||
native-comp-async-report-warnings-errors nil))
|
(set-face-italic 'font-lock-comment-delimiter-face nil)
|
||||||
|
(global-display-line-numbers-mode)
|
||||||
|
(setq-default indicate-empty-lines t)
|
||||||
|
(setq-default show-trailing-whitespace t)
|
||||||
|
(add-hook 'prog-mode-hook '(lambda () (whitespace-mode t)))
|
||||||
|
|
||||||
;; Change some settings based on where we are
|
;;; package management
|
||||||
(defvar oxa-workplace "home")
|
(require 'package)
|
||||||
|
(package-initialize)
|
||||||
(if (string= oxa-workplace "work")
|
(setq package-native-compile t
|
||||||
;; here we have our work proxy
|
native-comp-async-report-warnings-errors nil)
|
||||||
(message "we are at work"))
|
;;; soruces
|
||||||
|
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
|
||||||
;; package management with straight.el
|
|
||||||
(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))
|
|
||||||
|
|
||||||
;; Use use-package for sugar, but use straight.el under the hood
|
|
||||||
(straight-use-package 'use-package)
|
|
||||||
|
|
||||||
;; clean up the modeline
|
|
||||||
(straight-use-package 'diminish)
|
|
||||||
(diminish 'auto-revert-mode)
|
|
||||||
|
|
||||||
(menu-bar-mode -1)
|
|
||||||
(when (display-graphic-p)
|
|
||||||
(toggle-scroll-bar -1)
|
|
||||||
(tool-bar-mode -1))
|
|
||||||
(global-display-line-numbers-mode -1)
|
|
||||||
(column-number-mode 1)
|
|
||||||
(setq inhibit-startup-screen t)
|
|
||||||
(setq-default indicate-buffer-boundaries 'left)
|
|
||||||
(setq auto-save-default nil)
|
|
||||||
(setq visible-bell t)
|
|
||||||
;; (setq-default fill-column 80)
|
|
||||||
|
|
||||||
;; I'm the only cowboy on this mainframe
|
|
||||||
;; (setq create-lockfiles nil)
|
|
||||||
|
|
||||||
;; X is dead
|
|
||||||
(setq inhibit-x-resources t)
|
|
||||||
|
|
||||||
(straight-use-package 'nyan-mode)
|
|
||||||
(nyan-mode 1)
|
|
||||||
|
|
||||||
(straight-use-package 'which-key)
|
|
||||||
(which-key-mode)
|
|
||||||
(diminish 'which-key-mode)
|
|
||||||
|
|
||||||
;; use ibuffer instead of standard buffer list
|
|
||||||
(global-set-key (kbd "C-x C-b") 'ibuffer)
|
|
||||||
|
|
||||||
|
;;; personal framework bits
|
||||||
;; my personal keymap
|
;; my personal keymap
|
||||||
(define-prefix-command 'oxamap)
|
(define-prefix-command 'oxamap)
|
||||||
(global-set-key (kbd "C-z") 'oxamap)
|
(global-set-key (kbd "C-z") 'oxamap)
|
||||||
|
;; bind compile
|
||||||
|
(define-key 'oxamap (kbd "c") 'compile)
|
||||||
|
|
||||||
(fset 'yes-or-no-p 'y-or-n-p)
|
;;; tabs hooks
|
||||||
(setq confirm-nonexistent-file-or-buffer nil)
|
|
||||||
|
|
||||||
(defadvice term-handle-exit
|
|
||||||
(after term-kill-buffer-on-exit activate)
|
|
||||||
"Advice term to kill buffer after shell exits."
|
|
||||||
(kill-buffer))
|
|
||||||
|
|
||||||
(defun my-whitespace-hook ()
|
|
||||||
"Hook to show trailing whitespace and empty lines."
|
|
||||||
(setq show-trailing-whitespace t
|
|
||||||
indicate-empty-lines t))
|
|
||||||
|
|
||||||
(add-hook 'prog-mode-hook #'my-whitespace-hook)
|
|
||||||
(add-hook 'text-mode-hook #'my-whitespace-hook)
|
|
||||||
|
|
||||||
(defun oxa/graphical-setup ()
|
|
||||||
"Setup bits for non-terminal frames."
|
|
||||||
(if (window-system)
|
|
||||||
(progn
|
|
||||||
(use-package modus-themes
|
|
||||||
:straight t
|
|
||||||
:init
|
|
||||||
(setq modus-themes-italic-constructs t
|
|
||||||
modus-themes-bold-constructs t
|
|
||||||
modus-themes-mixed-fonts nil
|
|
||||||
modus-themes-subtle-line-numbers 'nil)
|
|
||||||
(modus-themes-load-themes)
|
|
||||||
:config
|
|
||||||
(modus-themes-load-vivendi)
|
|
||||||
:bind (:map oxamap ("\\" . modus-themes-toggle)))
|
|
||||||
|
|
||||||
;; use modern pdf-tools
|
|
||||||
(straight-use-package 'pdf-tools)
|
|
||||||
(pdf-loader-install)
|
|
||||||
;; theme pdf automagically
|
|
||||||
(add-hook 'pdf-tools-enabled-hook 'pdf-view-themed-minor-mode))))
|
|
||||||
|
|
||||||
(defun oxa/frame-functions (frame)
|
|
||||||
(with-selected-frame frame
|
|
||||||
(oxa/graphical-setup)))
|
|
||||||
|
|
||||||
;; for stand-alone emacs
|
|
||||||
(oxa/graphical-setup)
|
|
||||||
;; for emacsclient
|
|
||||||
(add-hook 'after-make-frame-functions #'oxa/frame-functions)
|
|
||||||
|
|
||||||
|
|
||||||
;; let's delete a tab as a whole...
|
|
||||||
(setq backward-delete-char-untabify-method 'nil)
|
|
||||||
|
|
||||||
;; smarttabs!
|
|
||||||
(straight-use-package 'smart-tabs-mode)
|
|
||||||
(smart-tabs-insinuate 'c 'c++)
|
|
||||||
|
|
||||||
(setq-default indent-tabs-mode 'nil)
|
|
||||||
(defun tabs-yay ()
|
(defun tabs-yay ()
|
||||||
"Function to enable tab indentation in buffer."
|
"Function to enable tab indentation in buffer."
|
||||||
(setq indent-tabs-mode t))
|
(setq indent-tabs-mode t))
|
||||||
|
|
||||||
(add-hook 'c-mode-hook 'tabs-yay)
|
(add-hook 'c-mode-hook 'tabs-yay)
|
||||||
|
|
||||||
;; highlight the parens
|
;;; expand region
|
||||||
(setq show-paren-delay 0)
|
(oxa/insure 'expand-region)
|
||||||
(show-paren-mode 1)
|
(require 'expand-region)
|
||||||
|
(global-set-key (kbd "C-=") 'er/expand-region)
|
||||||
|
|
||||||
;; follow symlinks to version-controlled files
|
;;; move text
|
||||||
(setq vc-follow-symlinks t)
|
(oxa/insure 'move-text)
|
||||||
|
(global-set-key (kbd "M-n") 'move-text-down)
|
||||||
|
(global-set-key (kbd "M-p") 'move-text-up)
|
||||||
|
|
||||||
(setq read-extended-command-predicate
|
;;; ido/smex for completion
|
||||||
#'command-completion-default-include-p)
|
(oxa/insure 'smex)
|
||||||
(setq enable-recursive-minibuffers t)
|
(oxa/insure 'ido-completing-read+)
|
||||||
|
(require 'ido)
|
||||||
|
(require 'ido-completing-read+)
|
||||||
|
(setq ido-require-flex-matching t)
|
||||||
|
(setq ido-everywhere t)
|
||||||
|
(ido-mode 1)
|
||||||
|
(ido-ubiquitous-mode 1)
|
||||||
|
|
||||||
;; backup management
|
;; direnv
|
||||||
(setq backup-directory-alist `(("." . "~/.emacs.d/backups")))
|
(oxa/insure 'direnv)
|
||||||
(setq delete-old-versions t
|
(direnv-mode 1)
|
||||||
kept-new-versions 6
|
|
||||||
kept-old-versions 2
|
|
||||||
version-control t)
|
|
||||||
|
|
||||||
;; completion framework
|
;; magit
|
||||||
(use-package vertico
|
(oxa/insure 'magit)
|
||||||
:straight t
|
(require 'magit)
|
||||||
:init
|
(global-set-key (kbd "C-x g") 'magit-status)
|
||||||
(vertico-mode))
|
(global-set-key (kbd "C-x M-g") 'magit-dispatch)
|
||||||
|
(global-set-key (kbd "C-c M-g") 'magit-file-dispatch)
|
||||||
|
|
||||||
|
;;; Language support
|
||||||
|
(oxa/insure 'nix-mode)
|
||||||
|
(setq nix-nixfmt-bin "nixpkgs-fmt")
|
||||||
|
(oxa/insure 'markdown-mode)
|
||||||
|
(oxa/insure 'yaml-mode)
|
||||||
|
|
||||||
(use-package orderless
|
(oxa/insure 'rust-mode)
|
||||||
:straight t
|
(require 'rust-mode)
|
||||||
:init
|
(oxa/hook rust-mode-hook
|
||||||
(setq completion-styles '(orderless basic)
|
(setq-local fill-column 100))
|
||||||
completion-category-defaults nil
|
|
||||||
completion-category-overrides '((file (styles partial-completion)))))
|
|
||||||
|
|
||||||
(use-package marginalia
|
|
||||||
:straight t
|
|
||||||
:bind (:map minibuffer-local-map
|
|
||||||
("M-A" . marginalia-cycle))
|
|
||||||
:init (marginalia-mode))
|
|
||||||
|
|
||||||
(use-package consult
|
|
||||||
:straight t
|
|
||||||
:bind ;; C-c bindings (mode-specific-map)
|
|
||||||
(("C-c h" . consult-history)
|
|
||||||
("C-c m" . consult-mode-command)
|
|
||||||
("C-c k" . consult-kmacro)
|
|
||||||
;; C-x bindings (ctl-x-map)
|
|
||||||
("C-x M-:" . consult-complex-command) ;; orig. repeat-complex-command
|
|
||||||
("C-x b" . consult-buffer) ;; orig. switch-to-buffer
|
|
||||||
("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
|
|
||||||
("C-x 5 b" . consult-buffer-other-frame) ;; orig. switch-to-buffer-other-frame
|
|
||||||
("C-x r b" . consult-bookmark) ;; orig. bookmark-jump
|
|
||||||
("C-x p b" . consult-project-buffer) ;; orig. project-switch-to-buffer
|
|
||||||
;; Custom M-# bindings for fast register access
|
|
||||||
("M-#" . consult-register-load)
|
|
||||||
("M-'" . consult-register-store) ;; orig. abbrev-prefix-mark (unrelated)
|
|
||||||
("C-M-#" . consult-register)
|
|
||||||
;; Other custom bindings
|
|
||||||
("M-y" . consult-yank-pop) ;; orig. yank-pop
|
|
||||||
("<help> a" . consult-apropos) ;; orig. apropos-command
|
|
||||||
;; M-g bindings (goto-map)
|
|
||||||
("M-g e" . consult-compile-error)
|
|
||||||
("M-g f" . consult-flycheck) ;; Alternative: consult-flycheck
|
|
||||||
("M-g g" . consult-goto-line) ;; orig. goto-line
|
|
||||||
("M-g M-g" . consult-goto-line) ;; orig. goto-line
|
|
||||||
("M-g o" . consult-outline) ;; Alternative: consult-org-heading
|
|
||||||
("M-g m" . consult-mark)
|
|
||||||
("M-g k" . consult-global-mark)
|
|
||||||
("M-g i" . consult-imenu)
|
|
||||||
("M-g I" . consult-imenu-multi)
|
|
||||||
;; M-s bindings (search-map)
|
|
||||||
("M-s d" . consult-find)
|
|
||||||
("M-s D" . consult-locate)
|
|
||||||
("M-s g" . consult-grep)
|
|
||||||
("M-s G" . consult-git-grep)
|
|
||||||
("M-s r" . consult-ripgrep)
|
|
||||||
("M-s l" . consult-line)
|
|
||||||
("M-s L" . consult-line-multi)
|
|
||||||
("M-s m" . consult-multi-occur)
|
|
||||||
("M-s k" . consult-keep-lines)
|
|
||||||
("M-s u" . consult-focus-lines)
|
|
||||||
;; Isearch integration
|
|
||||||
("M-s e" . consult-isearch-history)
|
|
||||||
:map isearch-mode-map
|
|
||||||
("M-e" . consult-isearch-history) ;; orig. isearch-edit-string
|
|
||||||
("M-s e" . consult-isearch-history) ;; orig. isearch-edit-string
|
|
||||||
("M-s l" . consult-line) ;; needed by consult-line to detect isearch
|
|
||||||
("M-s L" . consult-line-multi) ;; needed by consult-line to detect isearch
|
|
||||||
;; Minibuffer history
|
|
||||||
:map minibuffer-local-map
|
|
||||||
("M-s" . consult-history) ;; orig. next-matching-history-element
|
|
||||||
("M-r" . consult-history)) ;; orig. previous-matching-history-element
|
|
||||||
|
|
||||||
;; Enable automatic preview at point in the *Completions* buffer. This is
|
|
||||||
;; relevant when you use the default completion UI.
|
|
||||||
:hook (completion-list-mode . consult-preview-at-point-mode))
|
|
||||||
|
|
||||||
|
|
||||||
;; autocompletion by default
|
|
||||||
(straight-use-package 'company)
|
|
||||||
(global-company-mode 1)
|
|
||||||
(diminish 'company-mode)
|
|
||||||
|
|
||||||
;; better tree mode
|
|
||||||
(use-package neotree
|
|
||||||
:straight t
|
|
||||||
:bind (:map oxamap ("f" . 'neotree-toggle)))
|
|
||||||
|
|
||||||
;; CC mode default styles
|
|
||||||
(require 'cc-mode)
|
(require 'cc-mode)
|
||||||
(setq c-default-style '((java-mode . "java")
|
(setq c-default-style '((java-mode . "java")
|
||||||
(awk-mode . "awk")
|
(awk-mode . "awk")
|
||||||
|
|
@ -251,235 +88,21 @@
|
||||||
(c++-mode . "stroustrup")
|
(c++-mode . "stroustrup")
|
||||||
(other . "stroustrup")))
|
(other . "stroustrup")))
|
||||||
|
|
||||||
(require 'calendar)
|
;; completion
|
||||||
(setq calendar-week-start-day 1)
|
(oxa/insure 'company)
|
||||||
|
(global-company-mode)
|
||||||
|
|
||||||
(use-package ace-window
|
(custom-set-variables
|
||||||
:straight t
|
'(whitespace-style
|
||||||
:defer t
|
(quote
|
||||||
:bind (:map oxamap ("o" . ace-window)))
|
(face tabs spaces trailing space-before-tab newline indentation empty space-after-tab space-mark tab-mark))))
|
||||||
|
|
||||||
(use-package tex-site
|
;; nya-nya-nya-nya-nya-nya
|
||||||
:defer t
|
(oxa/insure 'nyan-mode)
|
||||||
:straight auctex
|
(require 'nyan-mode)
|
||||||
:init
|
(nyan-mode 1)
|
||||||
;; reftex
|
|
||||||
(require 'reftex)
|
|
||||||
|
|
||||||
;; basic config
|
|
||||||
(add-hook 'LaTeX-mode-hook 'TeX-PDF-mode)
|
|
||||||
(add-hook 'LaTeX-mode-hook 'reftex-mode)
|
|
||||||
(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
|
|
||||||
(setq TeX-parse-self t)
|
|
||||||
(setq reftex-plug-into-AUCTeX t)
|
|
||||||
|
|
||||||
;; preview
|
|
||||||
(setq TeX-view-program-selection '((output-pdf "PDF Tools"))
|
|
||||||
TeX-source-correlate-mode t
|
|
||||||
TeX-source-correlate-start-server t)
|
|
||||||
|
|
||||||
(add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer)
|
|
||||||
|
|
||||||
;; completion for LaTeX
|
|
||||||
(use-package company-auctex
|
|
||||||
:straight t
|
|
||||||
:config
|
|
||||||
(company-auctex-init)))
|
|
||||||
|
|
||||||
(use-package rainbow-delimiters
|
|
||||||
:straight t
|
|
||||||
:hook ((emacs-lisp-mode . rainbow-delimiters-mode)
|
|
||||||
(lisp-mode . rainbow-delimiters-mode)
|
|
||||||
(scheme-mode . rainbow-delimiters-mode)
|
|
||||||
(inferior-scheme-mode . rainbow-delimiters-mode)
|
|
||||||
(geiser-mode . rainbow-delimiters-mode)
|
|
||||||
(cc-mode . rainbow-delimiters-mode)))
|
|
||||||
|
|
||||||
(use-package org
|
|
||||||
:straight t
|
|
||||||
:commands (org-agenda
|
|
||||||
org-capture)
|
|
||||||
:bind (("C-c a" . org-agenda)
|
|
||||||
("C-c c" . org-capture)
|
|
||||||
("C-c l" . org-store-link)
|
|
||||||
:map org-mode-map
|
|
||||||
("C-c 1" . org-time-stamp-inactive))
|
|
||||||
:init
|
|
||||||
;; we need indentation
|
|
||||||
(setq org-startup-indented nil
|
|
||||||
org-indent-mode-turns-on-hiding-stars nil
|
|
||||||
org-hide-leading-stars nil
|
|
||||||
org-startup-folded 'content)
|
|
||||||
;; default agenda files
|
|
||||||
(setq org-agenda-files '("~/org/" "~/Seafile/ORG/"))
|
|
||||||
|
|
||||||
;; default agenda view
|
|
||||||
(setq org-agenda-start-day "-3d"
|
|
||||||
org-agenda-span 13)
|
|
||||||
;; templates
|
|
||||||
(setq org-capture-templates
|
|
||||||
'(("n" "note" entry
|
|
||||||
(file+headline "~/org/random.org" "Notes")
|
|
||||||
"** %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n")
|
|
||||||
("t" "TODO" entry
|
|
||||||
(file+headline "~/org/random.org" "Tasks")
|
|
||||||
"** TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n")
|
|
||||||
("w" "IFW Note" entry
|
|
||||||
(file+headline "~/Seafile/ORG/ifw.org" "ifw-notes")
|
|
||||||
"** %?\n%i\n%U\n:PROPERTIES:\n:CREATED: %U\n:END:\n")
|
|
||||||
("j" "Journal" entry
|
|
||||||
(file+olp+datetree "~/org/log.org.gpg")
|
|
||||||
"**** %U %?\n")
|
|
||||||
("b" "Bookmark" entry
|
|
||||||
(file+headline "~/org/bookmarks.org" "bookmarks-inbox")
|
|
||||||
"** TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n[[%x]]\n")))
|
|
||||||
;; autosave advises for agenda and org-capture
|
|
||||||
(advice-add 'org-agenda-quit :before 'org-save-all-org-buffers)
|
|
||||||
(advice-add 'org-capture-finalize :after 'org-save-all-org-buffers)
|
|
||||||
(advice-add 'org-capture-refile :after 'org-save-all-org-buffers)
|
|
||||||
|
|
||||||
;; latex preview settings
|
|
||||||
(setq org-preview-latex-image-directory "~/.emacs.d/org-latex-preview/") ; Hide all previews in one place
|
|
||||||
|
|
||||||
;; habits support
|
|
||||||
(require 'org-habit)
|
|
||||||
(add-to-list 'org-modules 'org-habit)
|
|
||||||
|
|
||||||
;; babel
|
|
||||||
(org-babel-do-load-languages
|
|
||||||
'org-babel-load-languages
|
|
||||||
'((R . t)))
|
|
||||||
|
|
||||||
;; org-id - link by UUID
|
|
||||||
(require 'org-id)
|
|
||||||
(setq org-id-method 'uuid
|
|
||||||
org-id-link-to-org-use-id t)
|
|
||||||
;; abbrev expansion in org-mode
|
|
||||||
(require 'org-tempo))
|
|
||||||
|
|
||||||
(use-package org-download
|
|
||||||
:straight t
|
|
||||||
:init (setq org-download-method 'directory
|
|
||||||
org-download-image-dir "./static/org-download"
|
|
||||||
org-download-heading-lvl 0))
|
|
||||||
|
|
||||||
(use-package magit
|
|
||||||
:straight t
|
|
||||||
:bind (("C-x G" . magit-dispatch)
|
|
||||||
("C-x g" . magit-status)))
|
|
||||||
|
|
||||||
;; I positively cannot spell :D
|
|
||||||
(setq-default ispell-program-name (if (string= oxa-workplace "work")
|
|
||||||
oxa-work-aspell
|
|
||||||
"hunspell"))
|
|
||||||
(use-package flyspell
|
|
||||||
:straight t
|
|
||||||
:defer t
|
|
||||||
:hook (('text-mode . (lambda () (flyspell-mode 1)))
|
|
||||||
('change-log-mode . (lambda () (flyspell-mode -1)))
|
|
||||||
('log-edit-mode . (lambda () (flyspell-mode -1)))
|
|
||||||
('prog-mode . (lambda () (flyspell-mode -1)))))
|
|
||||||
|
|
||||||
(use-package expand-region
|
|
||||||
:straight t
|
|
||||||
:bind ("C-=" . er/expand-region))
|
|
||||||
|
|
||||||
(use-package yaml-mode
|
|
||||||
:straight t)
|
|
||||||
|
|
||||||
(if (not (string= system-type "windows-nt"))
|
|
||||||
(use-package vterm
|
|
||||||
:straight t
|
|
||||||
:bind (:map oxamap ("t" . vterm))
|
|
||||||
:init
|
|
||||||
(setq vterm-kill-buffer-on-exit t)))
|
|
||||||
|
|
||||||
;; checking
|
|
||||||
(straight-use-package 'flycheck)
|
|
||||||
(global-flycheck-mode)
|
|
||||||
|
|
||||||
;; language support and settings
|
|
||||||
(straight-use-package 'nix-mode)
|
|
||||||
(straight-use-package 'markdown-mode)
|
|
||||||
(straight-use-package 'editorconfig)
|
|
||||||
|
|
||||||
;; R stuff
|
|
||||||
(use-package ess
|
|
||||||
:straight t
|
|
||||||
:init
|
|
||||||
(setq ess-use-company t)
|
|
||||||
(setq ess-use-flymake nil))
|
|
||||||
|
|
||||||
(use-package poly-R
|
|
||||||
:straight t)
|
|
||||||
|
|
||||||
;; Julia
|
|
||||||
(use-package julia-mode
|
|
||||||
:straight t)
|
|
||||||
|
|
||||||
(use-package julia-snail
|
|
||||||
:straight t
|
|
||||||
:after vterm
|
|
||||||
:hook (julia-mode . julia-snail-mode))
|
|
||||||
|
|
||||||
;; scheming
|
|
||||||
(use-package geiser-racket
|
|
||||||
:straight t)
|
|
||||||
|
|
||||||
(use-package scheme
|
|
||||||
:init (setq scheme-program-name "petite"))
|
|
||||||
|
|
||||||
(use-package sly
|
|
||||||
:straight t
|
|
||||||
:config
|
|
||||||
(setq inferior-lisp-program "sbcl"))
|
|
||||||
|
|
||||||
;; make lambda lambda :D
|
|
||||||
(add-hook 'scheme-mode-hook 'prettify-symbols-mode)
|
|
||||||
(add-hook 'inferior-scheme-mode-hook 'prettify-symbols-mode)
|
|
||||||
(add-hook 'lisp-mode-hook 'prettify-symbols-mode)
|
|
||||||
(add-hook 'geiser-mode-hook 'prettify-symbols-mode)
|
|
||||||
(add-hook 'emacs-lisp-mode-hook 'prettify-symbols-mode)
|
|
||||||
|
|
||||||
;; python
|
|
||||||
(defun oxa/set-system-python ()
|
|
||||||
"Set python interpreter to ipython if it's present."
|
|
||||||
(if (executable-find "ipython")
|
|
||||||
(progn (setq python-shell-interpreter "ipython"
|
|
||||||
python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True")
|
|
||||||
(setq flycheck-python-pycompile-executable "python"))
|
|
||||||
(progn
|
|
||||||
(setq python-shell-interpreter "python")
|
|
||||||
(setq flycheck-python-pycompile-executable "python"))))
|
|
||||||
|
|
||||||
(oxa/set-system-python)
|
|
||||||
|
|
||||||
;; working with python venvs
|
|
||||||
(use-package pyvenv
|
|
||||||
:straight t)
|
|
||||||
|
|
||||||
(use-package lsp-mode
|
|
||||||
:straight t
|
|
||||||
:bind (:map oxamap ("L" . 'lsp))
|
|
||||||
:init
|
|
||||||
(setq lsp-keymap-prefix "C-z l")
|
|
||||||
:hook ((lsp-mode . lsp-enable-which-key-integration))
|
|
||||||
:commands lsp)
|
|
||||||
|
|
||||||
(use-package lsp-ui
|
|
||||||
:straight t
|
|
||||||
:after lsp-mode
|
|
||||||
:commands lsp-ui-mode)
|
|
||||||
|
|
||||||
;; snippets
|
|
||||||
(straight-use-package 'yasnippet)
|
|
||||||
(yas-global-mode t)
|
|
||||||
(diminish 'yas-minor-mode)
|
|
||||||
|
|
||||||
;; I use custom vars for local config, so let's put them to separate
|
;; I use custom vars for local config, so let's put them to separate
|
||||||
;; file, where it's easier for git to ignore it
|
;; file, where it's easier for git to ignore it
|
||||||
(setq custom-file "~/.emacs.d/custom.el")
|
(setq custom-file "~/.emacs.d/custom.el")
|
||||||
(load custom-file 'noerror)
|
(load custom-file 'noerror)
|
||||||
|
|
||||||
(provide 'init)
|
|
||||||
;;; init.el ends here
|
|
||||||
|
|
|
||||||
12
lisp/oxa/latex.el
Normal file
12
lisp/oxa/latex.el
Normal file
|
|
@ -0,0 +1,12 @@
|
||||||
|
(oxa/insure 'auctex)
|
||||||
|
(require 'tex-site)
|
||||||
|
(require 'reftex)
|
||||||
|
|
||||||
|
(add-hook 'LaTeX-mode-hook 'TeX-PDF-mode)
|
||||||
|
(add-hook 'LaTeX-mode-hook 'reftex-mode)
|
||||||
|
(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
|
||||||
|
|
||||||
|
(setq TeX-parse-self t)
|
||||||
|
(setq reftex-plug-into-AUCTeX t)
|
||||||
|
|
||||||
|
(provide 'oxa/latex)
|
||||||
16
lisp/oxa/misc.el
Normal file
16
lisp/oxa/misc.el
Normal file
|
|
@ -0,0 +1,16 @@
|
||||||
|
;; Stolen from https://github.com/rexim/dotfiles
|
||||||
|
(defun rc/duplicate-line ()
|
||||||
|
"Duplicate current line"
|
||||||
|
(interactive)
|
||||||
|
(let ((column (- (point) (point-at-bol)))
|
||||||
|
(line (let ((s (thing-at-point 'line t)))
|
||||||
|
(if s (string-remove-suffix "\n" s) ""))))
|
||||||
|
(move-end-of-line 1)
|
||||||
|
(newline)
|
||||||
|
(insert line)
|
||||||
|
(move-beginning-of-line 1)
|
||||||
|
(forward-char column)))
|
||||||
|
|
||||||
|
(global-set-key (kbd "C-,") 'rc/duplicate-line)
|
||||||
|
|
||||||
|
(provide 'oxa/misc)
|
||||||
67
lisp/oxa/org.el
Normal file
67
lisp/oxa/org.el
Normal file
|
|
@ -0,0 +1,67 @@
|
||||||
|
;;; Monday is the fist day of the week
|
||||||
|
(require 'calendar)
|
||||||
|
(setq calendar-week-start-day 1)
|
||||||
|
|
||||||
|
(require 'org)
|
||||||
|
(oxa/insure 'org-roam)
|
||||||
|
(require 'org-roam)
|
||||||
|
|
||||||
|
;; expose org functions
|
||||||
|
(global-set-key (kbd "C-c a") 'org-agenda)
|
||||||
|
(global-set-key (kbd "C-c c") 'org-capture)
|
||||||
|
(global-set-key (kbd "C-c l") 'org-store-link)
|
||||||
|
(define-key org-mode-map (kbd "C-c 1") 'org-time-stamp-inactive)
|
||||||
|
|
||||||
|
;; autosave advises for agenda and org-capture
|
||||||
|
(advice-add 'org-agenda-quit :before 'org-save-all-org-buffers)
|
||||||
|
(advice-add 'org-capture-finalize :after 'org-save-all-org-buffers)
|
||||||
|
(advice-add 'org-capture-refile :after 'org-save-all-org-buffers)
|
||||||
|
|
||||||
|
;; latex preview settings
|
||||||
|
(setq org-preview-latex-image-directory "~/.emacs.d/org-latex-preview/") ; Hide all previews in one place
|
||||||
|
|
||||||
|
;; habits support
|
||||||
|
(require 'org-habit)
|
||||||
|
(add-to-list 'org-modules 'org-habit)
|
||||||
|
|
||||||
|
;; babel
|
||||||
|
(org-babel-do-load-languages
|
||||||
|
'org-babel-load-languages
|
||||||
|
'((R . t)))
|
||||||
|
|
||||||
|
;; org-id - link by UUID
|
||||||
|
(require 'org-id)
|
||||||
|
(setq org-id-method 'uuid
|
||||||
|
org-id-link-to-org-use-id t)
|
||||||
|
;; abbrev expansion in org-mode
|
||||||
|
(require 'org-tempo)
|
||||||
|
|
||||||
|
;; we need indentation
|
||||||
|
(setq org-startup-indented nil
|
||||||
|
org-indent-mode-turns-on-hiding-stars nil
|
||||||
|
org-hide-leading-stars nil
|
||||||
|
org-startup-folded 'content)
|
||||||
|
;; default agenda files
|
||||||
|
(setq org-agenda-files '("~/org/"))
|
||||||
|
|
||||||
|
;; default agenda view
|
||||||
|
(setq org-agenda-start-day "-3d"
|
||||||
|
org-agenda-span 13)
|
||||||
|
;; templates
|
||||||
|
(setq org-capture-templates
|
||||||
|
'(("n" "note" entry
|
||||||
|
(file+headline "~/org/inbox.org" "Notes")
|
||||||
|
"** %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n")
|
||||||
|
("t" "TODO" entry
|
||||||
|
(file+headline "~/org/inbox.org" "Tasks")
|
||||||
|
"** TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n")
|
||||||
|
("j" "Journal" entry
|
||||||
|
(file+olp+datetree "~/org/log.org.gpg")
|
||||||
|
"**** %U %?\n")
|
||||||
|
("b" "Bookmark" entry
|
||||||
|
(file+headline "~/org/bookmarks.org" "bookmarks-inbox")
|
||||||
|
"** TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n[[%x]]\n")))
|
||||||
|
|
||||||
|
;; TODO: roam config
|
||||||
|
|
||||||
|
(provide 'oxa/org)
|
||||||
56
lisp/oxa/sane-defaults.el
Normal file
56
lisp/oxa/sane-defaults.el
Normal file
|
|
@ -0,0 +1,56 @@
|
||||||
|
;;; basic interface stuff
|
||||||
|
(menu-bar-mode 1)
|
||||||
|
(global-display-line-numbers-mode -1)
|
||||||
|
(column-number-mode 1)
|
||||||
|
(setq inhibit-startup-screen t)
|
||||||
|
(setq-default indicate-buffer-boundaries 'left)
|
||||||
|
(setq auto-save-default nil)
|
||||||
|
(setq visible-bell t)
|
||||||
|
;; (setq-default fill-column 80)
|
||||||
|
|
||||||
|
;; TODO Proper graphical setup
|
||||||
|
(add-hook 'after-make-frame-functions
|
||||||
|
(lambda (frame)
|
||||||
|
(toggle-scroll-bar -1)
|
||||||
|
(tool-bar-mode -1)))
|
||||||
|
|
||||||
|
;;; improvements to compilation buffer
|
||||||
|
(require 'compile)
|
||||||
|
(setq compilation-scroll-output t)
|
||||||
|
(require 'ansi-color)
|
||||||
|
(add-hook 'compilation-filter-hook 'ansi-color-compilation-filter)
|
||||||
|
|
||||||
|
;;; override default annoyances
|
||||||
|
;; I'm the only cowboy on this mainframe
|
||||||
|
;; (setq create-lockfiles nil)
|
||||||
|
;; X is dead
|
||||||
|
(setq inhibit-x-resources t)
|
||||||
|
;; use ibuffer instead of standard buffer list
|
||||||
|
(global-set-key (kbd "C-x C-b") 'ibuffer)
|
||||||
|
(fset 'yes-or-no-p 'y-or-n-p)
|
||||||
|
(setq confirm-nonexistent-file-or-buffer nil)
|
||||||
|
|
||||||
|
;; let's delete a tab as a whole...
|
||||||
|
(setq backward-delete-char-untabify-method 'nil)
|
||||||
|
;;; identation holywar contribution
|
||||||
|
(setq-default indent-tabs-mode 'nil)
|
||||||
|
|
||||||
|
;; highlight the parens
|
||||||
|
(setq show-paren-delay 0)
|
||||||
|
(show-paren-mode 1)
|
||||||
|
|
||||||
|
;; follow symlinks to version-controlled files
|
||||||
|
(setq vc-follow-symlinks t)
|
||||||
|
|
||||||
|
;; backup management
|
||||||
|
(setq backup-directory-alist `(("." . "~/.emacs.d/backups")))
|
||||||
|
(setq delete-old-versions t
|
||||||
|
kept-new-versions 6
|
||||||
|
kept-old-versions 2
|
||||||
|
version-control t)
|
||||||
|
|
||||||
|
;; default frame size
|
||||||
|
(add-to-list 'default-frame-alist '(height . 50))
|
||||||
|
(add-to-list 'default-frame-alist '(width . 107))
|
||||||
|
|
||||||
|
(provide 'oxa/sane-defaults)
|
||||||
20
lisp/oxa/utils.el
Normal file
20
lisp/oxa/utils.el
Normal file
|
|
@ -0,0 +1,20 @@
|
||||||
|
;;; Package management
|
||||||
|
(require 'package)
|
||||||
|
|
||||||
|
(defvar oxa/package-archive-refreshed nil)
|
||||||
|
(defun oxa/refresh-archive ()
|
||||||
|
(when (not oxa/package-archive-refreshed)
|
||||||
|
(package-refresh-contents)
|
||||||
|
(setq oxa/package-archive-refreshed t)))
|
||||||
|
|
||||||
|
;; ensure package
|
||||||
|
(defun oxa/insure (package)
|
||||||
|
(when (not (package-installed-p package))
|
||||||
|
(oxa/refresh-archive)
|
||||||
|
(package-install package)))
|
||||||
|
|
||||||
|
;; Macro to simplify setting mode-local vars
|
||||||
|
(defmacro oxa/hook (hook-name &rest body)
|
||||||
|
`(add-hook ',hook-name '(lambda nil ,@body)))
|
||||||
|
|
||||||
|
(provide 'oxa/utils)
|
||||||
Loading…
Add table
Add a link
Reference in a new issue