JaeUs/dotfiles
1
0
Fork 0
mirror of http://github.com/JaeUs3792/dotfiles synced 2025-12-13 23:51:34 +09:00
Code Issues Packages Projects Releases Wiki Activity

emacs : use-package to straight, base edit evil general hydra treemacs ui vertico yassnippet

Browse Source
This commit is contained in:
JaeYoo-Im
2024-09-03 17:32:02 +09:00
parent d6e04936a9
commit fff61a9139
12 changed files with 261 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.config/emacs/early-init.el
View File

@ -24,11 +24,11 @@
(push '(ns-transparent-titlebar . t) default-frame-alist))
(setq-default mode-line-format nil)
;;(setq inhibit-startup-message nil)
;;(setq inhibit-startup-message nil) ; TODO check.
;; initial load with blue theme
;(load-theme 'deeper-blue)
;;(customize-set-variable 'initial-major-mode 'fundamental-mode)
(setq package-enable-at-startup nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; early-init.el ends here

94
.config/emacs/init.el
View File

@ -67,54 +67,54 @@ Otherwise the startup will be very slow. "
(require 'init-yasnippet)
(require 'init-bookmark)
(require 'init-dashboard)
(require 'init-dired)
(require 'init-highlight)
(require 'init-ibuffer)
(require 'init-persp)
(require 'init-window)
;;(require 'init-bookmark)
;;(require 'init-dashboard)
;;(require 'init-dired)
;;(require 'init-highlight)
;;(require 'init-ibuffer)
;;(require 'init-persp)
;;(require 'init-window)
(require 'init-treemacs)
;; shell
(require 'init-eshell)
;; markdown
(require 'init-markdown)
(require 'init-org)
(require 'init-reader)
;;
(require 'init-dict)
;; docker
(when ON-LINUX
(require 'init-docker))
;; utils
(require 'init-utils)
;; Programming
(require 'init-vcs)
(require 'init-flycheck)
(require 'init-eglot)
(require 'init-ctags)
(require 'init-prog)
(require 'init-elisp)
(require 'init-c)
(require 'init-rust)
(require 'init-python)
(require 'init-ruby)
(require 'init-shell)
(require 'init-latex)
(require 'init-verilog)
(require 'init-debug)
(require 'init-extra)
(require 'init-chatgpt)
(require 'init-copilot)
;;;; shell
;;(require 'init-eshell)
;;
;;;; markdown
;;(require 'init-markdown)
;;(require 'init-org)
;;(require 'init-reader)
;;
;;;;
;;(require 'init-dict)
;;
;;;; docker
;;(when ON-LINUX
;; (require 'init-docker))
;;;; utils
;;(require 'init-utils)
;;
;;;; Programming
;;(require 'init-vcs)
;;(require 'init-flycheck)
;;(require 'init-eglot)
;;(require 'init-ctags)
;;(require 'init-prog)
;;
;;(require 'init-elisp)
;;(require 'init-c)
;;(require 'init-rust)
;;(require 'init-python)
;;(require 'init-ruby)
;;(require 'init-shell)
;;
;;(require 'init-latex)
;;(require 'init-verilog)
;;
;;(require 'init-debug)
;;
;;(require 'init-extra)
;;(require 'init-chatgpt)
;;
;;(require 'init-copilot)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init.el ends here

22
.config/emacs/lisp/init-base.el
View File

@ -1,5 +1,4 @@
;; init-base.el -*- lexical-binding: t -*-
(require 'init-const)
(require 'init-funcs)
@ -10,6 +9,8 @@
;;
(use-package gcmh
:straight t
:ensure t
:diminish
:hook
(emacs-startup . gcmh-mode)
@ -28,15 +29,20 @@
(set-selection-coding-system 'utf-8))
(when ON-LINUX
(use-package exec-path-from-shell
:straight t
:ensure t
:defer t
:init (exec-path-from-shell-initialize)))
;; open file point at where last saved place.
(use-package saveplace
:ensure nil
:straight t
:ensure t
:hook (after-init . save-place-mode))
(use-package recentf
:ensure nil
:straight t
:ensure t
:bind
(("C-x C-r" . recentf-open-files))
:hook
@ -54,7 +60,8 @@
(add-to-list 'recentf-filename-handlers #'abbreviate-file-name))
(use-package savehist
:ensure nil
:straight t
:ensure t
:hook
(after-init . savehist-mode)
:init
@ -68,7 +75,7 @@
savehist-autosave-interval 300))
(use-package simple
:ensure nil
:ensure nil ; emacs base package
:hook ((after-init . size-indication-mode)
(text-mode . visual-line-mode)
((prog-mode markdown-mode conf-mode) . enable-trailing-whitespace))
@ -150,11 +157,6 @@
sentence-end-double-space nil
word-wrap-by-category t)
;; use for org-roam?
(when (fboundp 'sqlite-open)
(use-package emacsql-sqlite-builtin))
(provide 'init-base)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init-base.el ends here

17
.config/emacs/lisp/init-edit.el
View File

@ -3,10 +3,14 @@
(require 'init-funcs)
(use-package autorevert
:ensure nil
:straight t
:ensure t
:diminish
:hook (after-init . global-auto-revert-mode))
(use-package avy
:straight t
:ensure t
:defer t
:hook (after-init . avy-setup-default)
:config
(setq avy-style 'de-bruijn
@ -15,6 +19,8 @@
avy-background t))
;; Show number of matches in mode-line while searching
(use-package anzu
:straight t
:ensure t
:diminish
;;:bind (([remap query-replace] . anzu-query-replace)
;; ([remap query-replace-regexp] . anzu-query-replace-regexp)
@ -22,10 +28,10 @@
;; ([remap isearch-query-replace] . anzu-isearch-query-replace)
;; ([remap isearch-query-replace-regexp] . anzu-isearch-query-replace-regexp))
:hook (after-init . global-anzu-mode))
(use-package ialign)
(use-package undo-tree
:straight t
:ensure t
:diminish
:hook (after-init . global-undo-tree-mode)
:custom
@ -42,7 +48,8 @@
undo-outer-limit (* 128 1024 1024)))
(use-package hideshow
:ensure nil
:straight t
:ensure t
:diminish hs-minor-mode
:pretty-hydra
((:title (pretty-hydra-title "HideShow" 'octicon "nf-oct-fold")
@ -112,6 +119,8 @@
;; Hanlde minified code
(use-package so-long
:straight t
:ensure t
:hook (after-init . global-so-long-mode))
(provide 'init-edit)

13
.config/emacs/lisp/init-evil.el
View File

@ -3,7 +3,8 @@
(require 'init-funcs)
(use-package evil
:ensure nil
:straight t
:ensure t
:diminish
:hook (after-init . evil-mode)
:init
@ -25,24 +26,28 @@
;; eshell no evil
(dolist (mode '(eshell-mode))
(add-to-list 'evil-emacs-state-modes mode)))
(with-eval-after-load 'evil
(defalias #'forward-evil-word #'forward-evil-symbol)
;; make evil-search-word look for symbol rather than word boundaries
(setq-default evil-symbol-word-search t))
(use-package evil-collection
:defer nil
:straight t
:ensure t
:config
(evil-collection-init))
(use-package evil-nerd-commenter
:defer nil
:straight t
:ensure t
:config
;; evil nerd commenter
(define-key evil-normal-state-map (kbd "g c") 'evilnc-comment-or-uncomment-lines)
(define-key evil-visual-state-map (kbd "g c") 'evilnc-comment-or-uncomment-lines))
(use-package evil-numbers
:defer nil
:straight t
:ensure t
:config
;; evil numbers
;; unfortunately C-x is emacs common key binding.

6
.config/emacs/lisp/init-general.el
View File

@ -11,10 +11,13 @@
(global-set-key (kbd "C-=") 'text-scale-increase)
(global-set-key (kbd "C--") 'text-scale-decrease)
; TODO move to hideshow
(global-set-key (kbd "C-<tab>") 'hs-toggle-hiding)
;; When you begin a keybind, whichkey will show you all keybinds you can follow the first one with in order to form a full keywords.
(use-package which-key
:straight t
:ensure t
:defer t
:init (which-key-mode)
:diminish which-key-mode
@ -22,6 +25,9 @@
(setq which-key-idle-delay 0.5))
(use-package general
:straight t
:ensure t
:defer t
:init
(general-auto-unbind-keys)
:config

7
.config/emacs/lisp/init-hydra.el
View File

@ -2,10 +2,15 @@
(require 'init-const)
(require 'init-funcs)
(use-package hydra
:straight t
:ensure t
:defer t
:hook (emacs-lisp-mode . hydra-add-imenu))
;; TODO
(use-package pretty-hydra
:straight t
:ensure t
:defer t
:bind ("<f6>" . toggles-hydra/body)
:hook (emacs-lisp-mode . (lambda ()
(add-to-list

84
.config/emacs/lisp/init-package.el
View File

@ -8,74 +8,28 @@
(and (file-readable-p custom-file) (load custom-file))
;; HACK: DO NOT save package-selected-packages to `custom-file'.
;; https://github.com/jwiegley/use-package/issues/383#issuecomment-247801751
(defun my-package--save-selected-packages (&optional value)
"Set `package-selected-packages' to VALUE but don't save to `custom-file'."
(when value
(setq package-selected-packages value))
(unless after-init-time
(add-hook 'after-init-hook #'my-package--save-selected-packages)))
(advice-add 'package--save-selected-packages :override #'my-package--save-selected-packages)
(defvar bootstrap-version)
(let ((bootstrap-file
(expand-file-name
"straight/repos/straight.el/bootstrap.el"
(or (bound-and-true-p straight-base-dir)
user-emacs-directory)))
(bootstrap-version 7))
(unless (file-exists-p bootstrap-file)
(with-current-buffer
(url-retrieve-synchronously
"https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
'silent 'inhibit-cookies)
(goto-char (point-max))
(eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage))
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
(unless (bound-and-true-p package--initialized)
(setq package-enable-at-startup nil)
(package-initialize))
;; Setup `use-package'
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
;; Should set before loading `use-package'
(eval-and-compile
(straight-use-package 'use-package)
(setq use-package-always-ensure t)
(setq use-package-always-defer t)
(setq use-package-expand-minimally t)
(setq use-package-enable-imenu-support t))
(eval-when-compile
(require 'use-package))
(use-package diminish)
(use-package bind-key)
(use-package paradox
:custom-face
(paradox-archive-face ((t (:inherit font-lock-doc-face))))
(paradox-description-face ((t (:inherit completions-annotations))))
:hook
(emacs-startup . paradox-enable)
:init
(setq paradox-execute-asynchronously t
paradox-github-token nil
paradox-display-star-count nil
paradox-status-face-alist ;
'(("built-in" . font-lock-builtin-face)
("available" . success)
("new" . (success bold))
("held" . font-lock-constant-face)
("disabled" . font-lock-warning-face)
("avail-obso" . font-lock-comment-face)
("installed" . font-lock-comment-face)
("dependency" . font-lock-comment-face)
("incompat" . font-lock-comment-face)
("deleted" . font-lock-comment-face)
("unsigned" . font-lock-warning-face)))
:config
(add-hook 'paradox-after-execute-functions
(lambda (_)
"Display `page-break-lines' in \"*Paradox Report*\" buffer."
(when (fboundp 'page-break-lines-mode)
(let ((buf (get-buffer "*Paradox Report*"))
(inhibit-read-only t))
(when (buffer-live-p buf)
(with-current-buffer buf
(page-break-lines-mode 1))))))
t))
; hide info in modeline
(use-package diminish
:straight t)
(provide 'init-package)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

17
.config/emacs/lisp/init-treemacs.el
View File

@ -3,6 +3,9 @@
(require 'init-funcs)
;; A tree layout file explorer
(use-package treemacs
:straight t
:ensure t
:defer t
:commands (treemacs-follow-mode
treemacs-filewatch-mode
treemacs-git-mode)
@ -26,16 +29,21 @@
(`(t . t)
(treemacs-git-mode 'deferred))
(`(t . _)
(treemacs-git-mode 'simple)))
(treemacs-git-mode 'simple))))
(use-package treemacs-nerd-icons
:demand
:straight t
:ensure t
:defer t
:custom-face
(treemacs-nerd-icons-root-face ((t (:inherit nerd-icons-green :height 1.3))))
(treemacs-nerd-icons-file-face ((t (:inherit nerd-icons-dsilver))))
:config (treemacs-load-theme "nerd-icons"))
(use-package treemacs-magit
:straight t
:ensure t
:defer t
:after magit
:autoload treemacs-magit--schedule-update
:hook ((magit-post-commit
@ -45,9 +53,12 @@
. treemacs-magit--schedule-update))
(use-package treemacs-persp
:straight t
:ensure t
:defer t
:after persp-mode
:demand t
:functions treemacs-set-scope-type
:config (treemacs-set-scope-type 'Perspectives)))
:config (treemacs-set-scope-type 'Perspectives))
(provide 'init-treemacs)
;;; init-treemacs.el ends here

42
.config/emacs/lisp/init-ui.el
View File

@ -17,8 +17,15 @@
;; Make certain buffers grossly incandescent
(use-package solaire-mode
:hook (after-load-theme . solaire-global-mode))
:straight t
:ensure t
:demand t
:config
(solaire-global-mode +1))
(use-package doom-themes
:straight t
:ensure t
:init
(if (display-graphic-p)
(load-theme custom-theme-sel t)
@ -26,6 +33,8 @@
:config
(doom-themes-visual-bell-config))
(use-package doom-modeline
:straight t
:ensure t
:hook (after-init . doom-modeline-mode)
:init
(setq doom-modeline-window-width-limit 110
@ -48,14 +57,19 @@
;; A minor-mode menu for mode-line
(use-package minions
:straight t
:ensure t
:hook (doom-modeline-mode . minions-mode))
;; Icons
(use-package nerd-icons)
(use-package nerd-icons
:straight t
:ensure t)
;;(use-package all-the-icons)
(use-package display-line-numbers
:ensure nil
:straight t
:ensure t
:hook ((prog-mode yaml-mode conf-mode) . display-line-numbers-mode)
:init (setq display-line-numbers-width-start t))
@ -76,7 +90,8 @@
(add-hook 'window-setup-hook #'window-divider-mode)
(use-package time
:ensure nil
:straight t
:ensure t
:init (setq display-time-24hr-format t
display-time-day-and-date t))
@ -96,22 +111,30 @@
(if (fboundp 'pixel-scroll-precision-mode)
(pixel-scroll-precision-mode t)
(use-package good-scroll
:diminish
:straight t
:ensure t
:hook (after-init . good-scroll-mode)
:bind (([remap next] . good-scroll-up-full-screen)
([remap prior] . good-scroll-down-full-screen))))
;; Smooth scrolling over images
(use-package iscroll
:diminish
:straight t
:ensure t
:defer t
:hook (image-mode . iscroll-mode))
;; Use fixed pitch where it's sensible
(use-package mixed-pitch
:diminish)
:straight t
:ensure t
:defer t)
;; Display ugly ^L page breaks as tidy horizontal lines
(use-package page-break-lines
:straight t
:ensure t
:defer t
:diminish
:hook (after-init . global-page-break-lines-mode)
:config ;; display only half fix.
@ -120,15 +143,14 @@
(face-attribute 'default :family)))
(use-package form-feed
:disabled
:diminish
:hook (after-init . global-form-feed-mode))
;; emoji
(use-package emojify
:straight t
:ensure t
:defer t
:init (global-emojify-mode 1))
(provide 'init-ui)
;;; init-ui.el ends here.

32
.config/emacs/lisp/init-vertico.el
View File

@ -3,6 +3,8 @@
(require 'init-funcs)
(use-package vertico
:straight t
:ensure t
:bind (:map vertico-map
("C-j" . vertico-next)
("C-k" . vertico-previous))
@ -10,10 +12,14 @@
:custom
(vertico-cycle t))
(use-package nerd-icons-completion
:straight t
:ensure t
:hook (vertico-mode . nerd-icons-completion-mode))
(when (display-graphic-p)
(use-package vertico-posframe
:straight t
:ensure t
:when custom-vertico-posframe
:after vertico
:hook (vertico-mode . vertico-posframe-mode)
@ -25,12 +31,16 @@
;; simple, but effective sorting and filtering for emacs.
(use-package vertico-prescient
:straight t
:ensure t
:defer t
:config
(vertico-prescient-mode))
;; annotations placed at the margin of the minibuffer
(use-package marginalia
:straight t
:ensure t
:after vertico
:defer t
:custom
@ -39,6 +49,8 @@
(use-package consult
:straight t
:ensure t
:demand t
:bind (:map minibuffer-local-map
("C-r" . consult-history))
@ -55,6 +67,8 @@
(global-set-key (kbd "C-M-j") #'my/consult-switch-to-buffer)))
(use-package orderless
:straight t
:ensure t
:defer t
:custom
(completion-styles '(orderless basic))
@ -62,6 +76,8 @@
;; Quick action in minibuffer
(use-package embark
:straight t
:ensure t
:defer t
:bind (("C-." . embark-act))
:config
@ -72,11 +88,15 @@
(setq prefix-help-command #'embark-prefix-help-command))
(use-package embark-consult
:straight t
:ensure t
:defer t
:after embark)
;;; Corfu
(use-package corfu
:straight t
:ensure t
:custom
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
(corfu-auto t) ;; Enable auto completion
@ -97,10 +117,11 @@
(eldoc-add-command #'corfu-insert)
(define-key corfu-map (kbd "M-p") #'corfu-popupinfo-scroll-down)
(define-key corfu-map (kbd "M-n") #'corfu-popupinfo-scroll-up)
(define-key corfu-map (kbd "M-d") #'corfu-popupinfo-toggle)
(define-key corfu-map (kbd "M-d") #'corfu-popupinfo-toggle))
(use-package kind-icon
:defer nil
:straight t
:ensure t
:custom
(kind-icon-default-face 'corfu-default) ; to compute blended backgrounds correctly
:config
@ -144,10 +165,12 @@
(unit ,(nerd-icons-codicon "nf-cod-symbol_ruler") :face font-lock-constant-face)
(value ,(nerd-icons-codicon "nf-cod-symbol_field") :face font-lock-builtin-face)
(variable ,(nerd-icons-codicon "nf-cod-symbol_variable") :face font-lock-variable-name-face)
(t ,(nerd-icons-codicon "nf-cod-code") :face font-lock-warning-face))))))
(t ,(nerd-icons-codicon "nf-cod-code") :face font-lock-warning-face)))))
(use-package corfu-terminal
:straight t
:ensure t
:config
(unless (display-graphic-p)
(corfu-terminal-mode)))
@ -155,6 +178,8 @@
;;; Cape
;; Setup Cape for better completion-at-point support and more
(use-package cape
:straight t
:ensure t
:config
;; Add useful defaults completion sources from cape
(add-to-list 'completion-at-point-functions #'cape-file)
@ -171,6 +196,5 @@
corfu-quit-no-match t
corfu-auto nil)
(corfu-mode))))
(provide 'init-vertico)
;;; init-vertico.el ends here

7
.config/emacs/lisp/init-yasnippet.el
View File

@ -1,13 +1,18 @@
;;; init-yasnippet.el -*- lexical-binding: t -*-
;; Yet another snippet extension
(use-package yasnippet
:straight t
:ensure t
:defer t
:diminish yas-minor-mode
:hook (after-init . yas-global-mode)
:config
(setq yas-indent-line nil)) ;; indent does not work properly.
;; Collection of yasnippet snippets
(use-package yasnippet-snippets)
(use-package yasnippet-snippets
:straight t
:ensure t)
(provide 'init-yasnippet)
;;; init-yasnippet.el ends here