arch/dotfiles
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Minor formatting of emacs

Browse source
This commit is contained in:
Gabriel Simmer 2023-01-28 09:26:37 +00:00
parent fa28dc6ecf
commit 5e8abf4c47
Signed by: arch
GPG key ID: C81B106D46C5B875
2 changed files with 24 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.emacs.d/custom.el
View file

@ -3,6 +3,7 @@
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(custom-enabled-themes '(modus-operandi-tinted))
'(custom-safe-themes '(custom-safe-themes
'("fb83a50c80de36f23aea5919e50e1bccd565ca5bb646af95729dc8c5f926cbf3" "e7820b899036ae7e966dcaaec29fd6b87aef253748b7de09e74fdc54407a7a02" "1781e8bccbd8869472c09b744899ff4174d23e4f7517b8a6c721100288311fa5" default)) '("fb83a50c80de36f23aea5919e50e1bccd565ca5bb646af95729dc8c5f926cbf3" "e7820b899036ae7e966dcaaec29fd6b87aef253748b7de09e74fdc54407a7a02" "1781e8bccbd8869472c09b744899ff4174d23e4f7517b8a6c721100288311fa5" default))
'(safe-local-variable-values '(safe-local-variable-values

45
.emacs.d/init.el
View file

@ -1,5 +1,5 @@
;; Basic appearence and behaviour.
(setq inhibit-startup-message t) (setq inhibit-startup-message t)
;; neccesary non-package related config
(setq auto-save-default nil) (setq auto-save-default nil)
(setq make-backup-files nil) (setq make-backup-files nil)
(cond ((find-font (font-spec :name "Jetbrains Mono")) (cond ((find-font (font-spec :name "Jetbrains Mono"))
@ -10,29 +10,29 @@
(set-fringe-mode 10) (set-fringe-mode 10)
(setq column-number-mode t) (setq column-number-mode t)
(menu-bar-mode -1) (menu-bar-mode -1)
;; For Emacs 29. ;; For Emacs >=29.
(pixel-scroll-precision-mode t) (pixel-scroll-precision-mode t)
;; Messes with the Terraform LSP, and I don't really need this myself.
(setq create-lockfiles nil) (setq create-lockfiles nil)
(load-theme 'modus-vivendi-tinted) ;; Orgmode tweaks.
(setq org-edit-src-content-indentation 0 (setq org-edit-src-content-indentation 0
org-src-tab-acts-natively t org-src-tab-acts-natively t
org-src-preserve-indentation t) org-src-preserve-indentation t)
(setq-default tab-width 4) (setq-default tab-width 4)
;; stupid hacks ;; WSL keybinds to work around some weirdness.
(global-set-key (kbd "C-c y") 'clipboard-yank) (global-set-key (kbd "C-c y") 'clipboard-yank)
(global-set-key (kbd "C-c x") 'kill-ring-save) (global-set-key (kbd "C-c x") 'kill-ring-save)
;; straight.el bootstrapping ;; straight.el bootstrapping
(defvar bootstrap-version) (defvar bootstrap-version)
(let ((bootstrap-file (let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
(bootstrap-version 5)) (bootstrap-version 5))
(unless (file-exists-p bootstrap-file) (unless (file-exists-p bootstrap-file)
(with-current-buffer (with-current-buffer
(url-retrieve-synchronously (url-retrieve-synchronously
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
'silent 'inhibit-cookies) 'silent 'inhibit-cookies)
(goto-char (point-max)) (goto-char (point-max))
@ -40,8 +40,9 @@
(load bootstrap-file nil 'nomessage)) (load bootstrap-file nil 'nomessage))
;; package list we want installed ;; package list we want installed
;; first grab use-package :3 ;; first use-package
(straight-use-package 'use-package) (straight-use-package 'use-package)
(use-package vterm :straight t)
(use-package el-patch :straight t) (use-package el-patch :straight t)
(use-package doom-modeline (use-package doom-modeline
:straight t :straight t
@ -64,8 +65,8 @@
:init (projectile-mode +1) :init (projectile-mode +1)
:config (setq projectile-project-search-path '("~/Projects")) :config (setq projectile-project-search-path '("~/Projects"))
:bind (:map projectile-mode-map :bind (:map projectile-mode-map
("s-p" . projectile-command-map) ("s-p" . projectile-command-map)
("C-c p" . projectile-command-map))) ("C-c p" . projectile-command-map)))
(use-package magit :straight t) (use-package magit :straight t)
(use-package hide-mode-line :straight t) (use-package hide-mode-line :straight t)
(add-hook 'org-mode-hook #'hide-mode-line-mode) (add-hook 'org-mode-hook #'hide-mode-line-mode)
@ -96,16 +97,16 @@
;; Fancy tabs ;; Fancy tabs
(use-package centaur-tabs :straight t (use-package centaur-tabs :straight t
:config :config
(setq centaur-tabs-style "bar" (setq centaur-tabs-style "bar"
centaur-tabs-height 32 centaur-tabs-height 32
centaur-tabs-set-icons t centaur-tabs-set-icons t
centaur-tabs-set-modified-marker t centaur-tabs-set-modified-marker t
centaur-tabs-show-navigation-buttons t centaur-tabs-show-navigation-buttons t
centaur-tabs-set-bar 'under centaur-tabs-set-bar 'under
x-underline-at-descent-line t) x-underline-at-descent-line t)
(centaur-tabs-headline-match) (centaur-tabs-headline-match)
(setq uniquify-separator "/") (setq uniquify-separator "/")
(setq uniquify-buffer-name-style 'forward) (setq uniquify-buffer-name-style 'forward)
:bind ("C-<prior>" . centaur-tabs-backward) :bind ("C-<prior>" . centaur-tabs-backward)
("C-<next>" . centaur-tabs-forward)) ("C-<next>" . centaur-tabs-forward))
@ -166,12 +167,12 @@
;; Adapted from https://github.com/Slackwise/dotfiles/blob/master/emacs/slackwise.el ;; Adapted from https://github.com/Slackwise/dotfiles/blob/master/emacs/slackwise.el
(setq-default (setq-default
functions-file (concat (or (getenv "XDG_CONFIG_HOME") "~/.emacs.d/") "functions.el")) functions-file (concat (or (getenv "XDG_CONFIG_HOME") "~/.emacs.d/") "functions.el"))
(when (file-exists-p functions-file) (when (file-exists-p functions-file)
(load functions-file)) (load functions-file))
;; Keep the customize system from borking up this file. ;; Keep the customize system from borking up this file.
(setq-default (setq-default
custom-file (concat (or (getenv "XDG_CONFIG_HOME") "~/.emacs.d/") "custom.el")) custom-file (concat (or (getenv "XDG_CONFIG_HOME") "~/.emacs.d/") "custom.el"))
(when (file-exists-p custom-file) (when (file-exists-p custom-file)
(load custom-file)) (load custom-file))