Add emacs settings

1 files changed, 11 insertions, 35 deletions

diff --git a/emacs/.config/emacs-kj/init.el b/emacs/.config/emacs-kj/init.el
index 2454577..3b3055c 100644
--- a/emacs/.config/emacs-kj/init.el
+++ b/emacs/.config/emacs-kj/init.el
@@ -34,34 +34,12 @@
 (use-package straight
   :custom (straight-use-package-by-default t))
 
-;; (let ((my-font "Iosevka-18"))
-;;   (set-face-attribute 'default t :font my-font)
-;;   (set-frame-font my-font))
-(set-language-environment "utf-8")
-;; (set-default-coding-systems 'utf-8)
-(setq-default indent-tabs-mode nil)
-(setq sentence-end-double-space nil)
-(setq save-interprogram-paste-before-kill t)
-(setq enable-recursive-minibuffers t)
 (global-hl-line-mode 1)
 (global-auto-revert-mode 1)
 
 (setq visible-bell t
       ring-bell-function 'ignore)
 
-;; Backup file settings.
-;; Keep backups, but avoid same directory since it can be slow on tramp.
-(setq backup-directory-alist `(("." . "~/.cache/emacs-backups"))
-      version-control t
-      delete-old-versions -1
-      vc-make-backup-files t
-      create-lockfiles nil)
-
-(use-package modus-themes)
-(use-package doom-themes)
-
-(load-theme 'modus-vivendi-tinted)
-
 (custom-theme-set-faces
  'modus-vivendi-tinted
  '(avy-lead-face ((t :inherit (bold modus-themes-subtle-blue))))
@@ -69,16 +47,10 @@
  '(avy-lead-face-1 ((t :inherit (bold modus-themes-subtle-green))))
  '(avy-lead-face-2 ((t :inherit (bold modus-themes-subtle-magenta)))))
 
-;; ;; Modus theme setup.
-;; (use-package emacs
-;;   :init
-;;   ;; Add all your customizations prior to loading the themes
-;;   (setq modus-themes-region '(accented))
-;;   :config
-;;   ;; Load the theme of your choice:
-;;   (load-theme 'modus-operandi) ;; OR (load-theme 'modus-vivendi)
-;;   :bind ("<f5>" . modus-themes-toggle))
+(use-package modus-themes)
+(use-package doom-themes)
 
+(load-theme 'modus-vivendi-tinted)
 (setq alert-default-style 'libnotify)
 
 (use-package all-the-icons
@@ -218,10 +190,6 @@
   :init
   (vertico-mode))
 
-(use-package savehist
-  :init
-  (savehist-mode))
-
 ;; Rebind C-x?
 (global-set-key (kbd "C-t") 'ctrl-x-map)
 (define-key global-map (kbd "C-t") ctl-x-map)
@@ -839,3 +807,11 @@
 
 ;; Restore gc.
 (setq gc-cons-threshold (* 16 1024 1024))
+
+;; Shell completion
+(use-package native-complete
+  :init
+  (defun kj/shell-completion ()
+    (setq completion-at-point-functions
+          '(native-complete-at-point t)))
+  :hook (shell-mode . kj/shell-completion))