230517-1

.config/bspwm/bspwmrc

@@ -47,6 +47,7 @@ bspc config focused_private_border_color    "$color1"
 bspc config active_private_border_color     "$color1"
 bspc config normal_private_border_color     "$color1"
 
+bspc rule -a \* state=tiled
 # Load session
 # shellcheck source=/dev/null
 #. "$BSPWM_CONFIG/restore.cfg"

.config/emacs/custom-default.el

@@ -1,3 +1,6 @@
+(setq user-full-name "JaeYoo-Im"
+	  user-mail-address "cpu3792@gmail.com")
+(setq default-input-method "korean-hangul")
 
 (defun custom-setup-fonts ()
   "setup fonts..."

.config/emacs/init.el

@@ -54,5 +54,8 @@ Otherwise the startup will be very slow. "
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (require 'init-package)
 
+(require 'init-base)
+
+(require 'init-ui)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; init.el ends here

.config/emacs/lisp/init-base.el

@@ -0,0 +1,161 @@
+;; init-base.el -*- lexical-binding: t -*-
+
+(require 'init-const)
+(require 'init-func)
+
+(with-no-warnings
+  (setq read-process-output-max (* 1024 1024)) ;; 1mb (lsp recommendation)
+  ;;
+  (setq ffap-machine-p-known 'reject))
+
+;; 
+(use-package gcmh
+			 :diminish
+			 :hook
+			 (emacs-startup . gcmh-mode)
+			 :init
+			 (setq gcmh-idle-delay 'auto
+				   gcmh-auto-idle-delay-factor 10
+				   gcmh-high-cons-threshold (* 16 1024 1024)))
+			 
+(when (fboundp 'set-charset-priority)
+  (set-charset-priority 'unicode))
+(prefer-coding-system 'utf-8)
+(setq locale-coding-system 'utf-8)
+(setq system-time-locale "C")
+
+(unless ON-WINDOWS
+  (set-selection-coding-system 'utf-8))
+(when ON-LINUX
+  (use-package exec-path-from-shell
+			   :init (exec-path-from-shell-initialize)))
+
+;; open file point at where last saved place.
+(use-package saveplace
+  :ensure nil
+  :hook (after-init . save-place-mode))
+
+(use-package recentf
+  :ensure nil
+  :bind 
+  (("C-x C-r" . recentf-open-files))
+  :hook
+  (after-init . recentf-mode)
+  :init
+  (setq recentf-max-saved-items 300
+		recentf-exclude
+		'("\\.?cache" ".cask" "url" "COMMIT_EDITMSG\\'" "bookmarks"
+		  "\\.\\(?:gz\\|gif\\|svg\\|png\\|jpe?g\\|bmp\\|xpm\\)$"
+		  "\\.?ido\\.last$" "\\.revive$" "/G?TAGS$" "/.elfeed/"
+		  "^/tmp/" "^/var/folders/.+$" "^/ssh:" "/persp-confs/"
+		  (lambda (file) (file-in-directory-p file package-user-dir))))
+  :config
+	(push (expand-file-name recentf-save-file) recentf-exclude)
+	(add-to-list 'recentf-filename-handlers #'abbreviate-file-name))
+
+(use-package savehist
+			 :ensure nil
+			 :hook
+			 (after-init . savehist-mode)
+			 :init
+			 (setq enable-recursive-minibuffers t ; Allow commands in minibuffers
+				   history-length 25
+				   savehist-additional-variables '(mark-ring
+													global-mark-ring
+													search-ring
+													regexp-search-ring
+													extended-command-history)
+				   savehist-autosave-interval 300))
+
+(use-package simple
+  :ensure nil
+  :hook ((after-init . size-indication-mode)
+         (text-mode . visual-line-mode)
+         ((prog-mode markdown-mode conf-mode) . enable-trailing-whitespace))
+  :init
+  (setq column-number-mode t
+        line-number-mode t
+        ;; kill-whole-line t               ; Kill line including '\n'
+        line-move-visual nil
+        track-eol t                     ; Keep cursor at end of lines. Require line-move-visual is nil.
+        set-mark-command-repeat-pop t)  ; Repeating C-SPC after popping mark pops it again
+
+  ;; Only list the commands of the current modes
+  (when (boundp 'read-extended-command-predicate)
+    (setq read-extended-command-predicate
+          #'command-completion-default-include-p))
+
+  ;; Visualize TAB, (HARD) SPACE, NEWLINE
+  (setq-default show-trailing-whitespace nil) ; Don't show trailing whitespace by default
+  (defun enable-trailing-whitespace ()
+    "Show trailing spaces and delete on saving."
+    (setq show-trailing-whitespace t)
+    (add-hook 'before-save-hook #'delete-trailing-whitespace nil t))
+
+  ;; Prettify the process list
+  (with-no-warnings
+    (add-hook 'process-menu-mode-hook
+              (lambda ()
+                (setq tabulated-list-format
+                      (vconcat `(("" ,(if (icons-displayable-p) 2 0)))
+                               tabulated-list-format))))
+
+    (defun my-list-processes--prettify ()
+      "Prettify process list."
+      (when-let ((entries tabulated-list-entries))
+        (setq tabulated-list-entries nil)
+        (dolist (p (process-list))
+          (when-let* ((val (cadr (assoc p entries)))
+                      (icon (if (icons-displayable-p)
+                                (concat
+                                 " "
+                                 (nerd-icons-faicon "nf-fa-bolt" :face 'nerd-icons-lblue))
+                              " x"))
+                      (name (aref val 0))
+                      (pid (aref val 1))
+                      (status (aref val 2))
+                      (status (list status
+                                    'face
+                                    (if (memq status '(stop exit closed failed))
+                                        'error
+                                      'success)))
+                      (buf-label (aref val 3))
+                      (tty (list (aref val 4) 'face 'font-lock-doc-face))
+                      (thread (list (aref val 5) 'face 'font-lock-doc-face))
+                      (cmd (list (aref val (if emacs/>=27p 6 5)) 'face 'completions-annotations)))
+            (push (list p (if emacs/>=27p
+                              (vector icon name pid status buf-label tty thread cmd)
+                            (vector icon name pid status buf-label tty cmd)))
+		          tabulated-list-entries)))))
+    (advice-add #'list-processes--refresh :after #'my-list-processes--prettify)))
+
+;; Misc
+(if (boundp 'use-short-answers)
+    (setq use-short-answers t)
+  (fset 'yes-or-no-p 'y-or-n-p))
+(setq-default major-mode 'text-mode
+              fill-column 80
+              tab-width 4
+              indent-tabs-mode nil)     ; Permanently indent with spaces, never with TABs
+
+(setq visible-bell t
+      inhibit-compacting-font-caches t  ; Don’t compact font caches during GC
+      delete-by-moving-to-trash t       ; Deleting files go to OS's trash folder
+      make-backup-files nil             ; Forbide to make backup files
+      auto-save-default nil             ; Disable auto save
+
+      uniquify-buffer-name-style 'post-forward-angle-brackets ; Show path if names are same
+      adaptive-fill-regexp "[ t]+|[ t]*([0-9]+.|*+)[ t]*"
+      adaptive-fill-first-line-regexp "^* *$"
+      sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*"
+      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

.config/emacs/lisp/init-package.el

@@ -52,9 +52,9 @@
 			 :custom-face
 			 (paradox-archive-face ((t (:inherit font-lock-doc-face))))
 			 (paradox-description-face ((t (:inherit completions-annotations))))
-			 :hook 
+			 :hook
 			 (emacs-startup . paradox-enable)
-			 :init 
+			 :init
 			 (setq paradox-execute-asynchronously t
 				   paradox-github-token nil
 				   paradox-display-star-count nil
@@ -88,4 +88,3 @@
 (provide 'init-package)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; init-package.el ends here
-

.config/emacs/lisp/init-ui.el

@@ -0,0 +1,45 @@
+;; init-ui.el -*- lexical-binding: t -*-
+(require 'init-const)
+(require 'init-func)
+
+;; Optimization
+(setq idle-update-delay 1.0)
+
+(setq-default cursor-in-non-selected-windows nil)
+(setq highlight-nonselected-windows nil)
+
+(setq fast-but-imprecise-scrolling t)
+(setq redisplay-skip-fontification-on-input t)
+
+;; Inhibit resizing frame
+(setq frame-inhibit-implied-resize t
+      frame-resize-pixelwise t)
+
+;; Make certain buffers grossly incandescent
+(use-package solaire-mode
+			 :hook (after-load-theme . solaire-global-mode))
+(use-package doom-themes
+			 :init
+			 (if (display-graphic-p)
+			   ;;(load-theme 'doom-palenight t)
+			   (load-theme 'doom-one t)
+			   (load-theme 'doom-gruvbox t))
+			 :config
+			 (doom-themes-visual-bell-config))
+(use-package doom-modeline
+			 :hook (after-init . doom-modeline-mode)
+			 :init
+			 (setq doom-modeline-window-width-limit 110
+				   doom-modeline-minor-modes t)
+			 :config
+			 (setq doom-modeline-height 15
+				   doom-modeline-env-version t
+				   doom-modeline-persp-name t
+				   doom-modeline-persp-icon t
+				   doom-modeline-display-default-persp-name t
+				   doom-modeline-indent-info t))
+
+
+
+(provide 'init-ui)
+;;; init-ui.el ends here.