init: A "minimal" config for Emacs
This commit is contained in:
commit
fca7618b90
GPG Key ID:
5249548AA705F019
27
.gitignore
vendored
Normal file
27
.gitignore
vendored
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
*
|
||||||
|
# This one is new to allow directories by default
|
||||||
|
!*/
|
||||||
|
|
||||||
|
# Straight specific
|
||||||
|
/straight/repos
|
||||||
|
/straight/build
|
||||||
|
!/straight/versions/*
|
||||||
|
|
||||||
|
# Allow to WL subdirs
|
||||||
|
!/.gitignore
|
||||||
|
!cnf/
|
||||||
|
!cnf/**
|
||||||
|
!local-pkgs/
|
||||||
|
!local-pkgs/**
|
||||||
|
!snippets/
|
||||||
|
!snippets/**
|
||||||
|
!plugins
|
||||||
|
!init.el
|
||||||
|
!early-init.el
|
||||||
|
!ec.sh
|
||||||
|
!minimal.el
|
||||||
|
!test/
|
||||||
|
!test/**
|
||||||
|
|
||||||
|
# Ignore again
|
||||||
|
# *~undo-tree~
|
||||||
136
cnf/additionals.el
Normal file
136
cnf/additionals.el
Normal file
@ -0,0 +1,136 @@
|
|||||||
|
(push (concat user-emacs-directory "cnf/app") load-path)
|
||||||
|
;; DIRED: file browser
|
||||||
|
(require 'a-dired)
|
||||||
|
|
||||||
|
;; ORD-MODE: Basically jupiter notebooks/markdown on steroids
|
||||||
|
(with-eval-after-load 'org (require 'a-orgmode))
|
||||||
|
|
||||||
|
;; MAGIT: A nice git frontend
|
||||||
|
(straight-use-package 'magit)
|
||||||
|
(setq magit-bury-buffer-function #'quit-window
|
||||||
|
magit-display-buffer-function #'display-buffer)
|
||||||
|
|
||||||
|
(with-eval-after-load 'magit
|
||||||
|
(transient-append-suffix 'magit-push "-u"
|
||||||
|
'(1 "=s" "Skip gitlab pipeline" "--push-option=ci.skip"))
|
||||||
|
(transient-append-suffix 'magit-push "=s"
|
||||||
|
'(1 "=D" "DEBUG" "--push-option=ci.variable=DEBUG=1")) ;; no special meaning for gitlab
|
||||||
|
(transient-append-suffix 'magit-push "=D"
|
||||||
|
'(1 "=V" "Set CI variable" "--push-option=ci.variable=")) ;; Will prompt, can only set one extra variable
|
||||||
|
(transient-append-suffix 'magit-push "=V"
|
||||||
|
'(1 "=O" "Set push option" "--push-option="))
|
||||||
|
)
|
||||||
|
|
||||||
|
;; DICTCC: query dict.cc without leaving emacs
|
||||||
|
(straight-use-package 'dictcc)
|
||||||
|
|
||||||
|
;; GIT-GUTTER: Indicators for git status inside the fringe
|
||||||
|
(straight-use-package 'git-gutter)
|
||||||
|
(straight-use-package 'git-gutter-fringe)
|
||||||
|
(require 'git-gutter-fringe)
|
||||||
|
;; 0 means only update on save, otherwise set to 0.02
|
||||||
|
;; otherwise cursor stutters (e.g. at 2 or 8)
|
||||||
|
(setq git-gutter:update-interval 0
|
||||||
|
git-gutter:handled-backends '(git hg))
|
||||||
|
|
||||||
|
;; Indicator style (It's ASCII art - yaayyy)
|
||||||
|
(fringe-helper-define 'git-gutter-fr:added 'center
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX..")
|
||||||
|
|
||||||
|
(fringe-helper-define 'git-gutter-fr:modified 'center
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX..")
|
||||||
|
|
||||||
|
(fringe-helper-define 'git-gutter-fr:deleted 'center
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX.."
|
||||||
|
"..XXX..")
|
||||||
|
|
||||||
|
(add-hook 'prog-mode-hook #'git-gutter-mode)
|
||||||
|
|
||||||
|
;; More sane defaults
|
||||||
|
(defvar emacs-autosave-directory
|
||||||
|
(concat user-emacs-directory "autosaves/"))
|
||||||
|
(unless (file-exists-p emacs-autosave-directory)
|
||||||
|
(mkdir emacs-autosave-directory t))
|
||||||
|
|
||||||
|
(setq backup-directory-alist
|
||||||
|
`((".*" . ,emacs-autosave-directory))
|
||||||
|
auto-save-file-name-transforms
|
||||||
|
`((".*" ,emacs-autosave-directory t)))
|
||||||
|
|
||||||
|
(setq make-backup-files nil
|
||||||
|
create-lockfiles nil)
|
||||||
|
|
||||||
|
;; There is also require-final-newline which is a per mode setting
|
||||||
|
;; This seems to override this global value -> See mode specific configs (e.g. yaml)
|
||||||
|
(setq-default require-final-newline t)
|
||||||
|
(setq mode-require-final-newline t)
|
||||||
|
|
||||||
|
(setq warning-minimum-level :emergency)
|
||||||
|
|
||||||
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||||
|
(setq read-answer-short t)
|
||||||
|
;; Advice around the new kill-buffer--possibly-save function
|
||||||
|
;; This never calls the original function which basically replaces it
|
||||||
|
;; defalias is not possible here since this takes different arguments
|
||||||
|
(defun phga/kill-buffer-y-or-n--advice (orig-fun buffer &rest args)
|
||||||
|
"Replace the default behavior of the new `kill-buffer--possibly-save' function.
|
||||||
|
`ORIG-FUN' is the original function that was called and
|
||||||
|
`BUFFER'is the buffer that should be killed whilst beeing
|
||||||
|
modified and not saved. `ARGS' is the rest of the arguments."
|
||||||
|
(y-or-n-p (concat "Kill buffer " (buffer-name buffer) " without saving?")))
|
||||||
|
|
||||||
|
(advice-add 'kill-buffer--possibly-save :around #'phga/kill-buffer-y-or-n--advice)
|
||||||
|
|
||||||
|
(setq auto-revert-interval 1 ; Refresh buffers fast
|
||||||
|
echo-keystrokes 0.1 ; Show keystrokes asap
|
||||||
|
inhibit-startup-message t ; No splash screen please
|
||||||
|
initial-scratch-message nil ; Clean scratch buffer
|
||||||
|
initial-major-mode 'org-mode
|
||||||
|
recentf-max-saved-items 100 ; Show more recent files
|
||||||
|
ring-bell-function 'ignore) ; Quiet
|
||||||
|
|
||||||
|
(setq mouse-yank-at-point t)
|
||||||
|
|
||||||
|
;; Should help with reeeeally long lines e.g. json
|
||||||
|
;; there is also (setq-default bidi-display-reordering nil)
|
||||||
|
;; which is apparently not recommended by dev Eli because
|
||||||
|
;; it was never intended to be nil (could still improve things tho)
|
||||||
|
(setq-default bidi-paragraph-direction 'left-to-right)
|
||||||
|
;; gnupg
|
||||||
|
(require 'epa-file)
|
||||||
|
(setq epg-pinentry-mode 'ask)
|
||||||
|
(push '("\\.gpg\\'" . epa-file-enable) auto-mode-alist)
|
||||||
|
;; only use the encrypted version of .authinfo
|
||||||
|
(setq auth-sources '("~/.authinfo.gpg"))
|
||||||
|
|
||||||
|
;; save unsaved buffers before killing frame
|
||||||
|
(add-hook 'delete-frame-functions 'save-some-buffers)
|
||||||
|
(add-hook 'kill-emacs-hook 'save-some-buffers)
|
||||||
|
|
||||||
|
;; Width used to draw the column indicator + used in fill-paragraph
|
||||||
|
(setq-default fill-column 90)
|
||||||
|
|
||||||
|
(provide 'additionals)
|
||||||
83
cnf/app/a-dired.el
Normal file
83
cnf/app/a-dired.el
Normal file
@ -0,0 +1,83 @@
|
|||||||
|
;; DIRED: Filebrowser
|
||||||
|
(straight-use-package 'dired-narrow)
|
||||||
|
;; (require 'dired-async)
|
||||||
|
;; (dired-async-mode 0)
|
||||||
|
(setq dired-listing-switches "-lFahv --group-directories-first"
|
||||||
|
dired-dwim-target t
|
||||||
|
delete-by-moving-to-trash t
|
||||||
|
dired-ls-F-marks-symlinks t
|
||||||
|
dired-compress-files-alist '(("\\.tar\\.gz\\'" . "tar -cf - %i | gzip -c9 > %o")
|
||||||
|
("\\.tar\\.bz2\\'" . "tar -cf - %i | bzip2 -c9 > %o")
|
||||||
|
("\\.tar\\.xz\\'" . "tar -cf - %i | xz -c9 > %o")
|
||||||
|
("\\.tar\\.zst\\'" . "tar -cf - %i | zstd -19 -o %o")
|
||||||
|
("\\.tar\\.lz\\'" . "tar -cf - %i | lzip -c9 > %o")
|
||||||
|
("\\.tar\\.lzo\\'" . "tar -cf - %i | lzop -c9 > %o")
|
||||||
|
("\\.zip\\'" . "zip %o -r --filesync %i")
|
||||||
|
("\\.pax\\'" . "pax -wf %o %i"))
|
||||||
|
dired-compress-file-suffixes '(("\\.tar\\.gz\\'" #1="" "gzip -dc %i | tar -xf -")
|
||||||
|
("\\.tar\\.xz\\'" #1# "xz -dc %i | tar -xf -")
|
||||||
|
("\\.tgz\\'" #1# "gzip -dc %i | tar -xf -")
|
||||||
|
("\\.gz\\'" #1# "gzip -d")
|
||||||
|
("\\.lz\\'" #1# "lzip -d")
|
||||||
|
("\\.Z\\'" #1# "uncompress")
|
||||||
|
("\\.z\\'" #1# "gzip -d")
|
||||||
|
("\\.dz\\'" #1# "dictunzip")
|
||||||
|
("\\.tbz\\'" ".tar" "bunzip2")
|
||||||
|
("\\.bz2\\'" #1# "bunzip2")
|
||||||
|
("\\.xz\\'" #1# "unxz")
|
||||||
|
("\\.zip\\'" #1# "7z x -aoa -o%o %i")
|
||||||
|
("\\.tar\\.zst\\'" #1# "unzstd -c %i | tar -xf -")
|
||||||
|
("\\.tzst\\'" #1# "unzstd -c %i | tar -xf -")
|
||||||
|
("\\.zst\\'" #1# "unzstd --rm")
|
||||||
|
("\\.7z\\'" #1# "7z x -aoa -o%o %i")
|
||||||
|
("\\.tar\\'" ".tgz" nil)))
|
||||||
|
|
||||||
|
(add-hook 'dired-mode-hook
|
||||||
|
(lambda ()
|
||||||
|
(dired-hide-details-mode)
|
||||||
|
(when (file-remote-p dired-directory)
|
||||||
|
(setq-local dired-actual-switches "-lFah"))))
|
||||||
|
|
||||||
|
(put 'dired-find-alternate-file 'disabled nil)
|
||||||
|
|
||||||
|
;; ;; PEEP-DIRED: preview files in dired
|
||||||
|
;; (straight-use-package 'peep-dired)
|
||||||
|
;; ;; variables
|
||||||
|
;; (setq peep-dired-cleanup-on-disable t
|
||||||
|
;; peep-dired-cleanup-eagerly nil
|
||||||
|
;; peep-dired-enable-on-directories t)
|
||||||
|
;; ;; hooks
|
||||||
|
;; (add-hook 'peep-dired-hook 'evil-normalize-keymaps)
|
||||||
|
(straight-use-package 'dired-preview)
|
||||||
|
(setq dired-preview-delay 0.2
|
||||||
|
dired-preview-ignored-extensions-regexp (concat "\\."
|
||||||
|
"\\(mkv\\|webm\\|mp4\\|mp3\\|ogg\\|m4a"
|
||||||
|
"\\|gz\\|zst\\|tar\\|xz\\|rar\\|zip"
|
||||||
|
"\\|iso\\|epub\\)"))
|
||||||
|
|
||||||
|
;; Keybindings
|
||||||
|
(general-def
|
||||||
|
:states 'normal
|
||||||
|
:keymaps 'dired-mode-map
|
||||||
|
"f" 'dired-narrow
|
||||||
|
"p" 'dired-preview-mode
|
||||||
|
"h" (lambda() (interactive) (find-alternate-file ".."))
|
||||||
|
"l" (lambda() (interactive) (dired-find-alternate-file)))
|
||||||
|
|
||||||
|
;; DIRED-LAUNCH: Launch apps depending on file extension
|
||||||
|
(straight-use-package 'dired-launch)
|
||||||
|
(setq dired-launch-command '("xdg-open"))
|
||||||
|
(setf dired-launch-extensions-map
|
||||||
|
'(;; xml files with bpmn in it
|
||||||
|
("xopp" ("xournalpp"))
|
||||||
|
("drawio.html" ("drawio"))
|
||||||
|
("drawio" ("drawio"))))
|
||||||
|
|
||||||
|
(add-hook 'dired-mode-hook
|
||||||
|
(lambda ()
|
||||||
|
(general-def
|
||||||
|
:states 'normal
|
||||||
|
:keymaps 'dired-mode-map
|
||||||
|
"W" 'dired-launch-command)))
|
||||||
|
|
||||||
|
(provide 'a-dired)
|
||||||
274
cnf/app/a-orgmode.el
Normal file
274
cnf/app/a-orgmode.el
Normal file
@ -0,0 +1,274 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; NOTE: org-mode is required in essentials.el so we use the git instead of the shipped version ;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
;; HTMLIZE: html export for orgmode
|
||||||
|
(straight-use-package 'htmlize)
|
||||||
|
|
||||||
|
;; There was a long discussion on reddit that this package slows
|
||||||
|
;; down the redisplay optimizations of emacs
|
||||||
|
;; https://old.reddit.com/r/emacs/comments/p9yjgq/turn_off_fontlock_under_cursor/ha6zor6/
|
||||||
|
;; ORG-APPEAR: shows emphasis symbols when required
|
||||||
|
(straight-use-package 'org-appear)
|
||||||
|
(setq org-appear-autolinks nil ;;'just-brackets
|
||||||
|
org-appear-autosubmarkers t
|
||||||
|
org-appear-autoentities t
|
||||||
|
org-appear-autokeywords t
|
||||||
|
org-appear-inside-latex t)
|
||||||
|
(add-hook 'org-mode-hook 'org-appear-mode)
|
||||||
|
|
||||||
|
;; ORG-DOWNLOAD: insert screenshots on the fly
|
||||||
|
(straight-use-package 'org-download)
|
||||||
|
(require 'org-download)
|
||||||
|
|
||||||
|
;; OB-GO: Org babel support for go
|
||||||
|
(straight-use-package 'ob-go)
|
||||||
|
;; (with-eval-after-load 'ob-go (require 'l-go)) ;; enable highlighting, etc
|
||||||
|
|
||||||
|
;; EVIL-ORG: more org bindings
|
||||||
|
(straight-use-package 'evil-org)
|
||||||
|
(add-hook 'org-mode-hook 'evil-org-mode)
|
||||||
|
(with-eval-after-load 'org-mode
|
||||||
|
(evil-org-set-key-theme '(navigation insert textobjects additional calendar)))
|
||||||
|
|
||||||
|
;; ORG-SRC: Load language specific configs when fontifying src blocks for languages which
|
||||||
|
;; configs are dynamically loaded and not present at the time of the fontification process
|
||||||
|
;; (defun phga/advice-load-config-for-org-src-block-language (lang start end)
|
||||||
|
;; "Look in `load-path' for a file that provides the feature l-LANG.
|
||||||
|
;; LANG is the language used by `org-src-font-lock-fontify-block'.
|
||||||
|
;; START and END are not used by this advice"
|
||||||
|
;; (ignore-errors (require (intern (concat "l-" lang)))))
|
||||||
|
|
||||||
|
;; (advice-add 'org-src-font-lock-fontify-block
|
||||||
|
;; :before #'phga/advice-load-config-for-org-src-block-language)
|
||||||
|
|
||||||
|
(defvar phga/org-export-directory)
|
||||||
|
(defun phga/advice-create-and-set-org-export-directory (f extension
|
||||||
|
&optional subtreep pub-dir)
|
||||||
|
"Create and set `phga/org-export-directory' which is used as PUB-DIR in F.
|
||||||
|
F is `org-export-output-file-name' SUBTREEP and EXTENSION are not
|
||||||
|
modified here."
|
||||||
|
(let ((pub-dir (or pub-dir (and (boundp 'phga/org-export-directory)
|
||||||
|
phga/org-export-directory))))
|
||||||
|
(unless (file-directory-p pub-dir)
|
||||||
|
(make-directory phga/org-export-directory))
|
||||||
|
(apply f extension subtreep pub-dir '()))) ;; '() is required by apply
|
||||||
|
|
||||||
|
(advice-add 'org-export-output-file-name :around #'phga/advice-create-and-set-org-export-directory)
|
||||||
|
|
||||||
|
(setq phga/org-export-directory "./auto")
|
||||||
|
|
||||||
|
(evil-set-initial-state 'org-agenda-mode 'normal)
|
||||||
|
(add-to-list 'org-export-backends 'md)
|
||||||
|
(setq org-agenda-tags-column org-tags-column
|
||||||
|
org-babel-min-lines-for-block-output 50
|
||||||
|
org-confirm-babel-evaluate nil
|
||||||
|
;; Since ORG-Mode 9.1.9 functions inside of (file "FILENAME") are no longer
|
||||||
|
;; evaluated if the template list is prefixed with '
|
||||||
|
;; Solution: use ` to prefix list and ,(concat) to indicate req. evaluation
|
||||||
|
org-duration-format 'h:mm
|
||||||
|
|
||||||
|
;; TODO: If you want latex support
|
||||||
|
;; Latex
|
||||||
|
;; org-latex-listings 'minted
|
||||||
|
;; org-latex-listings nil
|
||||||
|
;; org-latex-packages-alist '(("outputdir=auto" "minted"))
|
||||||
|
;; org-latex-inputenc-alist '(("utf8" . "utf8x"))
|
||||||
|
;; org-latex-prefer-user-labels t
|
||||||
|
;; org-latex-pdf-process
|
||||||
|
;; '("pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"
|
||||||
|
;; "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"
|
||||||
|
;; "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f")
|
||||||
|
|
||||||
|
;; Export Config
|
||||||
|
org-export-preserve-breaks nil
|
||||||
|
org-export-with-email t
|
||||||
|
org-export-with-sub-superscripts t
|
||||||
|
org-export-in-background nil
|
||||||
|
org-html-htmlize-output-type 'inline-css
|
||||||
|
|
||||||
|
;; REQUIRES: y -S plantuml graphviz
|
||||||
|
;; org-plantuml-jar-path (expand-file-name "/usr/share/java/plantuml/plantuml.jar")
|
||||||
|
|
||||||
|
;; Visuals like nice looking headings, fontification (bold, italic, etc.)
|
||||||
|
org-pretty-entities t
|
||||||
|
org-pretty-entities-include-sub-superscripts t
|
||||||
|
org-edit-src-content-indentation 0
|
||||||
|
org-src-fontify-natively t
|
||||||
|
org-src-tab-acts-natively t
|
||||||
|
org-src-preserve-indentation t
|
||||||
|
org-src-window-setup 'current-window
|
||||||
|
org-use-sub-superscripts '{}
|
||||||
|
org-ellipsis " ↷"
|
||||||
|
org-cycle-separator-lines 0
|
||||||
|
org-hide-emphasis-markers t
|
||||||
|
|
||||||
|
;; Sane defaults when opening new files
|
||||||
|
org-startup-folded nil
|
||||||
|
org-startup-with-inline-images t
|
||||||
|
org-startup-with-latex-preview t
|
||||||
|
org-image-actual-width nil
|
||||||
|
|
||||||
|
org-blank-before-new-entry '((heading . t)
|
||||||
|
(plain-list-item . nil))
|
||||||
|
|
||||||
|
;; Tags
|
||||||
|
org-tags-column 60
|
||||||
|
org-fast-tag-selection-include-todo t
|
||||||
|
org-fast-tag-selection-single-key 'expert
|
||||||
|
|
||||||
|
;; Todos
|
||||||
|
org-todo-keywords
|
||||||
|
'((sequence "TODO(t)" "|" "DONE(d)")
|
||||||
|
(type "NEXT(n)")
|
||||||
|
(type "MEET(m)")
|
||||||
|
(type "IDEA(i)"))
|
||||||
|
;; '((type "TODO")
|
||||||
|
;; ;; (type "DONE")
|
||||||
|
;; (type "NEXT")
|
||||||
|
;; (type "IDEA")
|
||||||
|
;; (type "MEET")
|
||||||
|
;; (sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
|
||||||
|
;; (sequence "IDEA(i)" "|" "TODO(t)")
|
||||||
|
;; )
|
||||||
|
org-todo-keyword-faces
|
||||||
|
'(("TODO" :inherit org-todo :weight bold)
|
||||||
|
("DONE" :inherit org-done :weight bold)
|
||||||
|
("NEXT" :weight bold)
|
||||||
|
("MEET" :weight bold)
|
||||||
|
("IDEA" :foreground "#cea7f0" :weight bold))
|
||||||
|
org-use-fast-todo-selection t
|
||||||
|
org-fontify-todo-headline nil
|
||||||
|
org-fontify-done-headline nil)
|
||||||
|
|
||||||
|
;; leads to unwanted buffer visits on first clock-in
|
||||||
|
;; Probably because it tries to scan for clocks in all agenda files
|
||||||
|
;; org-agenda-files (list org-directory)
|
||||||
|
|
||||||
|
;; org-latex-listings 'listings
|
||||||
|
|
||||||
|
;; Pretty bullet points
|
||||||
|
(font-lock-add-keywords
|
||||||
|
'org-mode
|
||||||
|
'(("^ *\\(-\\) " ; change '-' into a unicode bullet
|
||||||
|
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
|
||||||
|
|
||||||
|
(font-lock-add-keywords
|
||||||
|
'org-mode
|
||||||
|
'(("^ *\\(\\+\\) " ; change '+' into a unicode bullet
|
||||||
|
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "◦"))))))
|
||||||
|
|
||||||
|
;; Get rid of the ,* in code blocks (visually)
|
||||||
|
(font-lock-add-keywords
|
||||||
|
'org-mode
|
||||||
|
'(("^ *\\(,\\*\\).*" ; change ',*' into *
|
||||||
|
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "*"))))))
|
||||||
|
|
||||||
|
(add-hook 'org-babel-after-execute-hook 'org-redisplay-inline-images)
|
||||||
|
;; Scale of the latex fragments
|
||||||
|
;; (plist-put org-format-latex-options :scale 1.3) ;; b4 presentation
|
||||||
|
(plist-put org-format-latex-options :scale 2.5)
|
||||||
|
|
||||||
|
;; Run/highlight code using babel in org-mode
|
||||||
|
;; Languages: https://orgmode.org/worg/org-contrib/babel/languages/index.html
|
||||||
|
(setq org-babel-load-languages
|
||||||
|
'((emacs-lisp . t)
|
||||||
|
(lisp . t)
|
||||||
|
(python . t)
|
||||||
|
(js . t)
|
||||||
|
(java . t)
|
||||||
|
(C . t)
|
||||||
|
(sql . t)
|
||||||
|
(calc . t)
|
||||||
|
(perl . t)
|
||||||
|
(shell . t)
|
||||||
|
(plantuml . t)
|
||||||
|
(haskell . t)
|
||||||
|
(go . t)))
|
||||||
|
|
||||||
|
(org-babel-do-load-languages 'org-babel-load-languages org-babel-load-languages)
|
||||||
|
|
||||||
|
;; TODO: If you want custom css in your html exports
|
||||||
|
;; export html with styles
|
||||||
|
;; (defvar org-style-css "~/sync/mvtn/setup/org.css")
|
||||||
|
|
||||||
|
;; (defun my-org-inline-css-hook (exporter)
|
||||||
|
;; "Insert custom inline css"
|
||||||
|
;; (when (eq exporter 'html)
|
||||||
|
;; (let* ((dir (ignore-errors (file-name-directory (buffer-file-name))))
|
||||||
|
;; (path (concat dir "style.css"))
|
||||||
|
;; (homestyle (or (null dir) (null (file-exists-p path))))
|
||||||
|
;; (final (if homestyle org-style-css path))) ;; <- set your own style file path
|
||||||
|
;; (setq org-html-head-include-default-style nil)
|
||||||
|
;; (setq org-html-head (concat
|
||||||
|
;; "<style type=\"text/css\">\n"
|
||||||
|
;; "<!--/*--><![CDATA[/*><!--*/\n"
|
||||||
|
;; (with-temp-buffer
|
||||||
|
;; (insert-file-contents final)
|
||||||
|
;; (buffer-string))
|
||||||
|
;; "/*]]>*/-->\n"
|
||||||
|
;; "</style>\n")))))
|
||||||
|
|
||||||
|
;; (add-hook 'org-export-before-processing-hook 'my-org-inline-css-hook)
|
||||||
|
|
||||||
|
;; (setq org-html-htmlize-font-prefix "org-") ; default: "org-"
|
||||||
|
|
||||||
|
;; TODO: If you want to manage your time with org-mode
|
||||||
|
;; ORG-CLOCK
|
||||||
|
;; (setq org-clock-history-length 23
|
||||||
|
;; org-clock-in-resume t
|
||||||
|
;; org-drawers '("PROPERTIES" "LOGBOOK")
|
||||||
|
;; org-clock-into-drawer t
|
||||||
|
;; org-clock-out-remove-zero-time-clocks t
|
||||||
|
;; org-clock-out-when-done t
|
||||||
|
;; org-clock-persist 'history
|
||||||
|
;; org-clock-persist-query-resume nil
|
||||||
|
;; org-clock-auto-clock-resolution 'when-no-clock-is-running
|
||||||
|
;; org-clock-report-include-clocking-task t)
|
||||||
|
|
||||||
|
;; (org-clock-persistence-insinuate)
|
||||||
|
|
||||||
|
;; ORG-AGENDA
|
||||||
|
;; (defvar org-agenda-window-setup)
|
||||||
|
;; (setq org-agenda-window-setup 'current-window)
|
||||||
|
|
||||||
|
;; ORG-DOWNLOAD
|
||||||
|
;; TODO: Setup for seemless insertion of screenshots
|
||||||
|
(setq org-download-screenshot-file "~/sync/screenshots/tmp/orgcapture.png"
|
||||||
|
org-download-screenshot-method "grim -g $(slurp -b '#000000a0' -c '#00000000') -o %s"
|
||||||
|
org-download-image-attr-list '("#+ATTR_ORG: :width 600")
|
||||||
|
org-download-annotate-function (lambda(link) ""))
|
||||||
|
(setq-default org-download-image-dir "./ORGPICS"
|
||||||
|
|
||||||
|
;; KEYBINDINGS
|
||||||
|
(my-leader
|
||||||
|
:states 'normal
|
||||||
|
:definer 'minor-mode
|
||||||
|
:keymaps 'org-src-mode
|
||||||
|
"'" 'org-edit-src-exit)
|
||||||
|
|
||||||
|
(my-leader
|
||||||
|
:states '(normal visual)
|
||||||
|
:keymaps 'org-mode-map
|
||||||
|
"'" 'org-edit-src-code
|
||||||
|
"SPC p" 'fill-paragraph
|
||||||
|
"SPC i" '(:ignore t :which-key "Insert")
|
||||||
|
"SPC i s" 'org-download-screenshot
|
||||||
|
"SPC i t" 'org-todo
|
||||||
|
"SPC i l" 'org-insert-link
|
||||||
|
"SPC s l" 'org-store-link
|
||||||
|
"SPC t" '(:ignore t :which-key "Toggle")
|
||||||
|
"SPC t i" 'org-toggle-inline-images
|
||||||
|
"SPC t l" 'org-latex-preview
|
||||||
|
;; "SPC c" '(:ignore t :which-key "C Funktions (clock, execute)")
|
||||||
|
;; "SPC c i" 'org-clock-in
|
||||||
|
;; "SPC c o" 'org-clock-out
|
||||||
|
;; "SPC c l" 'org-clock-in-last
|
||||||
|
"SPC c c" 'org-babel-execute-src-block
|
||||||
|
"SPC r" '(:ignore t :which-key "Remove")
|
||||||
|
"SPC r r" 'org-babel-remove-result
|
||||||
|
"SPC r a" (lambda () (interactive) (org-babel-remove-result-one-or-many t))
|
||||||
|
"SPC o" 'org-open-at-point
|
||||||
|
"SPC e" 'org-export-dispatch)
|
||||||
|
|
||||||
|
(provide 'a-orgmode)
|
||||||
151
cnf/essentials.el
Normal file
151
cnf/essentials.el
Normal file
@ -0,0 +1,151 @@
|
|||||||
|
;; ENVIRONMENT
|
||||||
|
;; COMPAT
|
||||||
|
(straight-use-package 'compat)
|
||||||
|
|
||||||
|
;; ORG-MODE: FIX so the correct org package is loaded (not the one shipped with emacs)
|
||||||
|
;; Has to be as early in the config as possible, so no other package can load the
|
||||||
|
;; incorrect org version beforehand
|
||||||
|
;; (straight-use-package 'org)
|
||||||
|
|
||||||
|
;; ASYNC: Asynchronous functionality
|
||||||
|
(straight-use-package 'async)
|
||||||
|
(require 'async)
|
||||||
|
|
||||||
|
;; GENERAL: Keybindings
|
||||||
|
(straight-use-package 'general)
|
||||||
|
(require 'general)
|
||||||
|
|
||||||
|
;; TODO: Rename the leader key (if you want)
|
||||||
|
(general-create-definer my-leader
|
||||||
|
:prefix "<SPC>"
|
||||||
|
:non-normal-prefix "C-SPC")
|
||||||
|
|
||||||
|
;; EVIL:
|
||||||
|
;; depends on: goto-chg, undo-tree
|
||||||
|
(straight-use-package 'evil)
|
||||||
|
(straight-use-package 'undo-fu)
|
||||||
|
(straight-use-package 'undo-fu-session)
|
||||||
|
(undo-fu-session-global-mode)
|
||||||
|
(straight-use-package 'vundo)
|
||||||
|
|
||||||
|
;; variables
|
||||||
|
(setq evil-want-C-u-scroll t
|
||||||
|
evil-want-integration t
|
||||||
|
evil-want-keybinding nil
|
||||||
|
evil-undo-system 'undo-fu)
|
||||||
|
(require 'evil)
|
||||||
|
;; start mode
|
||||||
|
(evil-mode t)
|
||||||
|
|
||||||
|
;; https://github.com/emacs-evil/evil/issues/1288
|
||||||
|
;; Credit goes to: https://github.com/nnicandro
|
||||||
|
;; Fix for the broken org-src-tab-acts-natively functionality
|
||||||
|
;; Tab in fact does nothing in src blocks if evil is enabled
|
||||||
|
(defun evil-org-insert-state-in-edit-buffer (fun &rest args)
|
||||||
|
"Bind `evil-default-state' to `insert' before calling FUN with ARGS."
|
||||||
|
(let ((evil-default-state 'insert)
|
||||||
|
;; Force insert state
|
||||||
|
evil-emacs-state-modes
|
||||||
|
evil-normal-state-modes
|
||||||
|
evil-motion-state-modes
|
||||||
|
evil-visual-state-modes
|
||||||
|
evil-operator-state-modes
|
||||||
|
evil-replace-state-modes)
|
||||||
|
(apply fun args)
|
||||||
|
(evil-refresh-cursor)))
|
||||||
|
|
||||||
|
;; MESSAGE BUFFER:
|
||||||
|
(evil-set-initial-state 'message-mode 'normal)
|
||||||
|
|
||||||
|
(advice-add 'org-babel-do-key-sequence-in-edit-buffer
|
||||||
|
:around #'evil-org-insert-state-in-edit-buffer)
|
||||||
|
|
||||||
|
;; EVIL-NERD-COMMENTER: Easy un/comment
|
||||||
|
(straight-use-package 'evil-nerd-commenter)
|
||||||
|
|
||||||
|
;; EVIL-VILUALSTAR: Search selected thing with *
|
||||||
|
(straight-use-package 'evil-visualstar)
|
||||||
|
(global-evil-visualstar-mode)
|
||||||
|
|
||||||
|
;; EVIL-SURROUND:
|
||||||
|
(straight-use-package 'evil-surround)
|
||||||
|
;; start mode
|
||||||
|
(global-evil-surround-mode t)
|
||||||
|
|
||||||
|
;; EVIL-COLLECTION: improved evil support for multiple packages
|
||||||
|
(straight-use-package 'evil-collection)
|
||||||
|
;; variables
|
||||||
|
(setq evil-collection-setup-minibuffer t
|
||||||
|
evil-collection-mode-list
|
||||||
|
'(ibuffer help calc nov man calendar ivy minibuffer dired debug
|
||||||
|
doc-view arc-mode magit vterm))
|
||||||
|
;; start mode
|
||||||
|
(evil-collection-init)
|
||||||
|
|
||||||
|
;; IVY: better popup menu (Alternative: Helm)
|
||||||
|
(straight-use-package 'ivy)
|
||||||
|
;; variables
|
||||||
|
(setq ivy-use-virtual-buffers t
|
||||||
|
ivy-re-builders-alist '((t . ivy--regex-ignore-order))
|
||||||
|
enable-recursive-minibuffers t
|
||||||
|
ivy-wrap t
|
||||||
|
ivy-magic-slash-non-match-action 'ivy-magic-slash-non-match-create
|
||||||
|
ivy-count-format "%d/%d ")
|
||||||
|
;; remove caret (has to be counsel not ivy #thanksfornothinginternet)
|
||||||
|
(with-eval-after-load 'counsel (setq ivy-initial-inputs-alist nil))
|
||||||
|
;; start mode
|
||||||
|
(ivy-mode t)
|
||||||
|
|
||||||
|
;; Keybindings
|
||||||
|
;; Allow the creation of files/folders even if a file/folder with a similar name
|
||||||
|
;; is matched in the ivy buffer.
|
||||||
|
(my-leader
|
||||||
|
:states 'normal
|
||||||
|
:keymaps 'ivy-minibuffer-map
|
||||||
|
"SPC f" 'ivy-immediate-done)
|
||||||
|
|
||||||
|
;; IVY-PRESCIENT: better suggestions for ivy
|
||||||
|
(straight-use-package 'ivy-prescient)
|
||||||
|
;; start mode
|
||||||
|
(ivy-prescient-mode)
|
||||||
|
|
||||||
|
;; COUNSEL: several improved functions like find-file, etc.
|
||||||
|
(straight-use-package 'counsel)
|
||||||
|
(setq counsel-grep-base-command "grep -R -i -n -H --color=never %s ."
|
||||||
|
counsel-rg-base-command "rg -i -M 250 --hidden --no-heading --line-number --color never %s")
|
||||||
|
|
||||||
|
;; WHICH-KEY: hints in the mini bar
|
||||||
|
(straight-use-package 'which-key)
|
||||||
|
(which-key-setup-minibuffer)
|
||||||
|
;; start mode
|
||||||
|
(which-key-mode)
|
||||||
|
|
||||||
|
;; ACE-WINDOW: jump between windows faster
|
||||||
|
;; TODO: Set your own keys (;
|
||||||
|
(straight-use-package 'ace-window)
|
||||||
|
(setq aw-scope 'frame
|
||||||
|
aw-keys '(?j ?k ?l ?f ?d ?s))
|
||||||
|
|
||||||
|
;; ELECTRIC-PAIR: auto-balance brackets
|
||||||
|
(electric-pair-mode t)
|
||||||
|
;; electric-indent-mode is a bit buggy in src blocks...
|
||||||
|
;; Unfortunately it adds a bug, where the cursor jumps to the start of the src
|
||||||
|
;; block after inserting a nested block of any sort {}, [], () and pressing RET
|
||||||
|
;; This is triggered by: org-return -> newline-and-indent
|
||||||
|
;; Adding an advice did not work, since the point must not only be recovered
|
||||||
|
;; but also increased by the level of indention... Also, it seemed like another
|
||||||
|
;; function is responsible for the reset since I added the advice to
|
||||||
|
;; org-babel-do-key-sequence-in-edit-buffer (Probably newline-and-indent)
|
||||||
|
;; TODO: Check if this bug is still present in newer versions
|
||||||
|
|
||||||
|
;; hooks
|
||||||
|
(add-hook 'org-mode-hook
|
||||||
|
(lambda ()
|
||||||
|
(setq-local electric-pair-inhibit-predicate
|
||||||
|
`(lambda (c)
|
||||||
|
(if (char-equal c ?<) t (,electric-pair-inhibit-predicate c))))))
|
||||||
|
;; SAVE PLACE MODE
|
||||||
|
;; Return to the point in a buffer when reopening it after some time
|
||||||
|
(save-place-mode 1)
|
||||||
|
|
||||||
|
(provide 'essentials)
|
||||||
20
cnf/functions.el
Normal file
20
cnf/functions.el
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
;; Run a terminal in the current folder
|
||||||
|
;; TODO: Check the command for your terminal emulator for this to work properly
|
||||||
|
(defun phga/run-terminal-here ()
|
||||||
|
(interactive "@")
|
||||||
|
(shell-command (concat "TERM_FROM_EMACS=true alacritty -e sh -c 'cd " default-directory
|
||||||
|
"; /run/current-system/sw/bin/bash' > /dev/null 2>&1 & disown ")
|
||||||
|
nil nil))
|
||||||
|
|
||||||
|
;; https://gist.github.com/mads-hartmann/3402786
|
||||||
|
;; Allows for emacs to toggle window "maximization"
|
||||||
|
(defun toggle-maximize-buffer ()
|
||||||
|
"Maxmize current buffer, when called again, restore previous buffer setup"
|
||||||
|
(interactive)
|
||||||
|
(if (= 1 (length (window-list)))
|
||||||
|
(jump-to-register '_)
|
||||||
|
(progn
|
||||||
|
(window-configuration-to-register '_)
|
||||||
|
(delete-other-windows))))
|
||||||
|
|
||||||
|
(provide 'functions)
|
||||||
96
cnf/global-keybindings.el
Normal file
96
cnf/global-keybindings.el
Normal file
@ -0,0 +1,96 @@
|
|||||||
|
;; EXAMPLE: Global override of keybinding
|
||||||
|
;; Ged rid of default bindings I don't enjoy :<
|
||||||
|
(general-def :states '(normal insert emacs visual) :keymaps 'override
|
||||||
|
;; This motherf***** + another ESC used to close my windows. NOO MOOORE!
|
||||||
|
"M-ESC" (lambda () (interactive) (message "You pressed it again Mr. Fatfinger...")))
|
||||||
|
|
||||||
|
;; GLOBAL BINDINGS
|
||||||
|
(general-def
|
||||||
|
:states '(normal insert visual)
|
||||||
|
:keymaps 'override
|
||||||
|
|
||||||
|
"C-j" 'evil-scroll-down
|
||||||
|
"C-k" 'evil-scroll-up
|
||||||
|
;; "<XF86AudioLowerVolume>" 'evil-scroll-down
|
||||||
|
;; "<XF86AudioRaiseVolume>" 'evil-scroll-up
|
||||||
|
)
|
||||||
|
|
||||||
|
;; This is a reference to the leader key defined in essentials.el
|
||||||
|
;; It basically means: <YOUR-LEADER> + whatever is configured below
|
||||||
|
;; E.g. "SPC SPC" actually means "SPC SPC SPC" because it is prefix with `my-leader'
|
||||||
|
(my-leader
|
||||||
|
;; These are the states for which the keybinding should work
|
||||||
|
:states '(normal visual emacs)
|
||||||
|
;; This is the keymap for which the keybinding should work.
|
||||||
|
;; Override is the GLOBAL keymap but there are specific ones for each mode
|
||||||
|
:keymaps 'override
|
||||||
|
|
||||||
|
;; This ignores the sole keybinding of "SPC SPC" to use this "namespace" for mode specific bindings
|
||||||
|
"SPC" '(:ignore t :which-key "Mode Specific Binds")
|
||||||
|
"SPC SPC" 'counsel-M-x
|
||||||
|
|
||||||
|
"f" 'counsel-find-file
|
||||||
|
"g" 'magit-status
|
||||||
|
"h" 'evil-avy-goto-line
|
||||||
|
"i" 'counsel-imenu
|
||||||
|
"y" 'counsel-yank-pop
|
||||||
|
";" 'evilnc-comment-or-uncomment-lines
|
||||||
|
"." 'save-buffer
|
||||||
|
|
||||||
|
;; window stuff
|
||||||
|
"w" '(:ignore t :which-key "Window")
|
||||||
|
;; quick switch to other window
|
||||||
|
"a" 'ace-window
|
||||||
|
"w v" 'split-window-right
|
||||||
|
"w h" 'split-window-below
|
||||||
|
"w f" 'toggle-maximize-buffer
|
||||||
|
"w L" 'windsize-right
|
||||||
|
"w H" 'windsize-left
|
||||||
|
"w J" 'windsize-down
|
||||||
|
"w K" 'windsize-up
|
||||||
|
|
||||||
|
;; switch stuff
|
||||||
|
"s" '(:ignore t :which-key "Switch")
|
||||||
|
"s b" 'switch-to-buffer
|
||||||
|
"s n" 'switch-to-next-buffer
|
||||||
|
"s p" 'switch-to-prev-buffer
|
||||||
|
"s s" 'counsel-switch-buffer
|
||||||
|
"s a" 'ace-swap-window
|
||||||
|
;; kill stuff
|
||||||
|
"k" '(:ignore t :which-key "Kill")
|
||||||
|
"k b" 'kill-buffer
|
||||||
|
"k w" 'delete-window
|
||||||
|
"k W" 'kill-buffer-and-window
|
||||||
|
"k o b" 'kill-some-buffers
|
||||||
|
"k o w" 'delete-other-windows
|
||||||
|
"k q q" 'kill-emacs
|
||||||
|
"k k" 'kill-current-buffer
|
||||||
|
|
||||||
|
;; buffer stuff
|
||||||
|
"b" '(:ignore t :which-key "Buffer (revert)")
|
||||||
|
"b r" 'revert-buffer
|
||||||
|
"b a r" 'auto-revert-mode
|
||||||
|
|
||||||
|
;; edit stuff
|
||||||
|
"e" '(:ignore t :which-key "Edit")
|
||||||
|
"e c" '((lambda() (interactive) (dired my/emacsconf)) :which-key "edit emacs config")
|
||||||
|
|
||||||
|
;; ui stuff
|
||||||
|
"q" '(:ignore t :which-key "Quality :)")
|
||||||
|
"q t" 'phga/cycle-themes
|
||||||
|
"q =" 'phga/text-scale-adjust
|
||||||
|
|
||||||
|
;; tools
|
||||||
|
"t u" 'vundo
|
||||||
|
|
||||||
|
;; describe stuff
|
||||||
|
"?" '(:ignore t :which-key "Describe")
|
||||||
|
"? v" 'describe-variable
|
||||||
|
"? f" 'describe-function
|
||||||
|
"? c" 'describe-char
|
||||||
|
"? m" 'describe-mode
|
||||||
|
"? k" 'describe-key
|
||||||
|
"? F" 'describe-face
|
||||||
|
)
|
||||||
|
|
||||||
|
(provide 'global-keybindings)
|
||||||
146
cnf/ui.el
Normal file
146
cnf/ui.el
Normal file
@ -0,0 +1,146 @@
|
|||||||
|
;; GENERAL UI
|
||||||
|
(setq x-stretch-cursor t
|
||||||
|
blink-cursor-mode nil
|
||||||
|
show-paren-delay 0
|
||||||
|
scroll-conservatively 5
|
||||||
|
scroll-margin 0
|
||||||
|
mouse-wheel-scroll-amount '(2 ((shift) . 2)) ;; one line at a time
|
||||||
|
mouse-wheel-progressive-speed nil ;; don't accelerate scrolling
|
||||||
|
mouse-wheel-follow-mouse 't ;; scroll window under mouse
|
||||||
|
scroll-step 2 ;; keyboard scroll two lines at a time
|
||||||
|
frame-resize-pixelwise t
|
||||||
|
frame-title-format "Allmighty Editor w/o Kitchen Sink")
|
||||||
|
|
||||||
|
;; Highlight matching parens
|
||||||
|
(show-paren-mode t)
|
||||||
|
;; Show line numbers on the left side of the buffer
|
||||||
|
(global-display-line-numbers-mode 0)
|
||||||
|
;; Highlight current horizontal line with a different background
|
||||||
|
(global-hl-line-mode t)
|
||||||
|
;; Also display the current column index in e.g. the mode-line
|
||||||
|
(column-number-mode t)
|
||||||
|
;; Show tooltip on hover in minibuffer
|
||||||
|
(tooltip-mode 0)
|
||||||
|
;; Default encoding
|
||||||
|
(set-language-environment "UTF-8")
|
||||||
|
;; Show line that indicates maximum number of "allowed" characters
|
||||||
|
(add-hook 'prog-mode-hook 'display-fill-column-indicator-mode)
|
||||||
|
|
||||||
|
;; FONT SETUP
|
||||||
|
(defvar phga/font "Jetbrains Mono")
|
||||||
|
(defvar phga/font-size "19")
|
||||||
|
(defvar phga/font-family (concat phga/font ":size=" phga/font-size))
|
||||||
|
;; These are required to have the correct font size with the first frame (emacs server)
|
||||||
|
(add-to-list 'default-frame-alist `(font . ,phga/font-family))
|
||||||
|
|
||||||
|
;; TEXT-SCALE: Scale text globally
|
||||||
|
(defvar phga/text-scale-amount 2)
|
||||||
|
(defvar phga/text-scale--current-size (string-to-number phga/font-size))
|
||||||
|
(defun phga/text-scale-adjust ()
|
||||||
|
"Adjust the size of the frame-font by `phga/text-scale-amount'."
|
||||||
|
(interactive)
|
||||||
|
(phga/text-scale--adjust))
|
||||||
|
|
||||||
|
(defun phga/text-scale--scale (inc)
|
||||||
|
"Scale the frame-font by `phga/text-scale-amount'.
|
||||||
|
If INC is not nil increase the font size else decrease it"
|
||||||
|
(if inc (setq phga/text-scale--current-size
|
||||||
|
(+ phga/text-scale--current-size phga/text-scale-amount))
|
||||||
|
(setq phga/text-scale--current-size
|
||||||
|
(- phga/text-scale--current-size phga/text-scale-amount)))
|
||||||
|
(set-frame-font (concat phga/font ":size="
|
||||||
|
(number-to-string phga/text-scale--current-size)) t t))
|
||||||
|
|
||||||
|
(defun phga/text-scale--adjust ()
|
||||||
|
"Actual function which will call itself with the temporary keymap to scale the text."
|
||||||
|
(let ((ev last-command-event)
|
||||||
|
(echo-keystrokes nil))
|
||||||
|
(pcase (event-basic-type ev)
|
||||||
|
((or ?= ?k) (phga/text-scale--scale t))
|
||||||
|
((or ?- ?j) (phga/text-scale--scale nil))
|
||||||
|
((or ?0) (progn (set-frame-font phga/font-family t t)
|
||||||
|
(setq phga/text-scale--current-size
|
||||||
|
(string-to-number phga/font-size))
|
||||||
|
(error "Reset to normal text scale"))))
|
||||||
|
(message "Use j/=, k/-, 0 for further adjustment")
|
||||||
|
(set-transient-map
|
||||||
|
(let ((map (make-sparse-keymap)))
|
||||||
|
(dolist (key '(?- ?j ?k ?= ?0))
|
||||||
|
(define-key map (vector (list key))
|
||||||
|
(lambda () (interactive) (phga/text-scale--adjust))))
|
||||||
|
map))))
|
||||||
|
|
||||||
|
;; LIGATURES
|
||||||
|
(straight-use-package 'ligature)
|
||||||
|
;; Enable the "www" ligature in every possible major mode
|
||||||
|
;; (ligature-set-ligatures 't '("www"))
|
||||||
|
;; Enable all Cascadia Code ligatures in programming modes
|
||||||
|
(ligature-set-ligatures
|
||||||
|
'prog-mode
|
||||||
|
'("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||=" "||>"
|
||||||
|
":::" "::=" "=:=" "===" "==>" "=!=" "=>>" "=<<" "=/=" "!=="
|
||||||
|
"!!." ">=>" ">>=" ">>>" ">>-" ">->" "->>" "-->" "---" "-<<"
|
||||||
|
"<~~" "<~>" "<*>" "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->"
|
||||||
|
"<--" "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_(" "..<"
|
||||||
|
"..." "+++" "/==" "///" "_|_" "www" "&&" "^=" "~~" "~@" "~="
|
||||||
|
"~>" "~-" "**" "*>" "*/" "||" "|}" "|]" "|=" "|>" "|-" "{|"
|
||||||
|
"[|" "]#" "::" ":=" ":>" ":<" "$>" "==" "=>" "!=" "!!" ">:"
|
||||||
|
">=" ">>" ">-" "-~" "-|" "->" "--" "-<" "<~" "<*" "<|" "<:"
|
||||||
|
"<$" "<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#=" "#!"
|
||||||
|
"##" "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?" "+>" "++" "?:"
|
||||||
|
"?=" "?." "??" ";;" "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
|
||||||
|
"\\\\" "://"))
|
||||||
|
|
||||||
|
(global-ligature-mode t)
|
||||||
|
|
||||||
|
;; THEMES
|
||||||
|
;; SHANTY
|
||||||
|
(straight-use-package 'shanty-themes)
|
||||||
|
(defvar phga/dark-theme 'shanty-themes-dark)
|
||||||
|
(defvar phga/light-theme 'shanty-themes-light)
|
||||||
|
|
||||||
|
(defvar phga/current-theme phga/dark-theme)
|
||||||
|
(load-theme phga/current-theme t)
|
||||||
|
|
||||||
|
(defun phga/cycle-themes ()
|
||||||
|
"Cycle through my preferred dark and light theme"
|
||||||
|
(interactive)
|
||||||
|
(if (eq phga/current-theme phga/dark-theme)
|
||||||
|
(progn
|
||||||
|
(disable-theme phga/dark-theme)
|
||||||
|
(load-theme phga/light-theme t)
|
||||||
|
(message "Loaded light theme")
|
||||||
|
(setq phga/current-theme phga/light-theme))
|
||||||
|
(progn
|
||||||
|
(disable-theme phga/light-theme)
|
||||||
|
(load-theme phga/dark-theme t)
|
||||||
|
(message "Loaded dark theme")
|
||||||
|
(setq phga/current-theme phga/dark-theme))))
|
||||||
|
|
||||||
|
;; MODE-LINE
|
||||||
|
;; https://emacs.stackexchange.com/questions/5529/how-to-right-align-some-items-in-the-modeline
|
||||||
|
(defun simple-mode-line-render (left right)
|
||||||
|
"Return a string of `window-width' length containing LEFT, and RIGHT aligned respectively."
|
||||||
|
(let* ((available-width (- (window-total-width) (length left) 2)))
|
||||||
|
(format (format " %%s %%%ds " available-width) left right)))
|
||||||
|
|
||||||
|
(setq-default mode-line-format
|
||||||
|
'((:eval (simple-mode-line-render
|
||||||
|
;; left
|
||||||
|
(format-mode-line
|
||||||
|
'(""
|
||||||
|
;; (:eval (propertize "%* %b"))
|
||||||
|
(:eval (propertize "%* %b" 'face 'mode-line-buffer-id))
|
||||||
|
evil-mode-line-tag
|
||||||
|
(:eval (propertize "%m"))))
|
||||||
|
;; (:eval (propertize "%m" 'face 'font-lock-comment-face))))
|
||||||
|
;; right
|
||||||
|
(format-mode-line mode-line-position)))))
|
||||||
|
|
||||||
|
;; FIXES
|
||||||
|
;; Shell mode line highlighted
|
||||||
|
;; (set-face-attribute 'comint-highlight-prompt nil :inherit nil)
|
||||||
|
;; (custom-set-faces '(comint-highlight-prompt ((t nil))))
|
||||||
|
|
||||||
|
(message "ui.el was succesfully loaded")
|
||||||
|
(provide 'ui)
|
||||||
23
early-init.el
Normal file
23
early-init.el
Normal file
@ -0,0 +1,23 @@
|
|||||||
|
;;; early-init.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
;; Emacs HEAD (27+) introduces early-init.el, which is run before init.el,
|
||||||
|
;; before package and UI initialization happens.
|
||||||
|
|
||||||
|
;; Defer garbage collection further back in the startup process
|
||||||
|
(setq gc-cons-threshold most-positive-fixnum)
|
||||||
|
;; In Emacs 27+, package initialization occurs before `user-init-file' is
|
||||||
|
;; loaded, but after `early-init-file'. Doom handles package initialization, so
|
||||||
|
;; we must prevent Emacs from doing it early!
|
||||||
|
(setq package-enable-at-startup nil)
|
||||||
|
(advice-add #'package--ensure-init-file :override #'ignore)
|
||||||
|
|
||||||
|
;; Prevent the glimpse of un-styled Emacs by disabling these UI elements early.
|
||||||
|
(push '(menu-bar-lines . 0) default-frame-alist)
|
||||||
|
(push '(tool-bar-lines . 0) default-frame-alist)
|
||||||
|
(push '(vertical-scroll-bars . nil) default-frame-alist)
|
||||||
|
(push '(horizontal-scroll-bars . nil) default-frame-alist)
|
||||||
|
|
||||||
|
;; Resizing the Emacs frame can be a terribly expensive part of changing the
|
||||||
|
;; font. By inhibiting this, we easily halve startup times with fonts that are
|
||||||
|
;; larger than the system default.
|
||||||
|
(setq frame-inhibit-implied-resize t)
|
||||||
31
init.el
Normal file
31
init.el
Normal file
@ -0,0 +1,31 @@
|
|||||||
|
(setq gc-cons-threshold most-positive-fixnum)
|
||||||
|
;; install 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))
|
||||||
|
|
||||||
|
;; load own config files
|
||||||
|
(setq custom-file (concat user-emacs-directory "customs.el"))
|
||||||
|
(unless (file-exists-p custom-file)
|
||||||
|
(make-empty-file custom-file))
|
||||||
|
(load-file custom-file)
|
||||||
|
|
||||||
|
(push (concat user-emacs-directory "cnf") load-path)
|
||||||
|
|
||||||
|
(require 'essentials)
|
||||||
|
(require 'ui)
|
||||||
|
(require 'additionals)
|
||||||
|
(require 'global-keybindings)
|
||||||
|
(require 'functions)
|
||||||
|
|
||||||
|
;; set gc values back to smth reasonable
|
||||||
|
(setq gc-cons-threshold 104857600) ;; 100 MegaByte (LSP)
|
||||||
Loading…
x
Reference in New Issue
Block a user