⚔ font fix

.emacs.d.vanilla/emacs.org

@@ -32,8 +32,16 @@
   ;; tab
   (setq-default tab-width 4)
   (setq-default evil-shift-width tab-width)
+  (setq-default indent-tabs-mode nil)
   ;; font
   (defun available-font? (font) (member font (font-family-list)))
+
+  ;; backup
+  (add-to-list 'backup-directory-alist '("." . "~/.emacs-saves"))
+  (setq delete-old-versions t
+        kept-old-versions 2
+        kept-new-versions 2
+        version-control t)
 #+end_src
 * Package Related
 ** Package Repo
@@ -307,22 +315,32 @@ https://nathantypanski.com/blog/2014-08-03-a-vim-like-emacs-config.html
   (set-face-attribute 'default nil :font "Fira Code Retina" :height gvar/default-font-size)
   (set-face-attribute 'fixed-pitch nil :font "Fira Code Retina" :height gvar/default-font-size)
   (set-face-attribute 'variable-pitch nil :font "Fira Code Retina" :height gvar/default-variable-font-size :weight 'regular)
-  ;;(set-fontset-font t 'hangul (font-spec :family "NanumGothicCoding" :size 15))
+  (set-fontset-font t 'hangul (font-spec :family "D2Coding" :height gvar/default-font-size))
-  ;;(setq face-font-rescale-alist
-  ;;      '((".*NanumGothicCoding*" . 1.5)))
-  (set-fontset-font t 'hangul (font-spec :family "Noto Sans CJK KR" :size 15))
   (setq face-font-rescale-alist
-        '((".*Noto Sans CJK KR*" . 1.5)))
+        '(("D2Coding" . 1.3)))
   (setq-default line-spacing 2)
   ;;(global-prettify-symbols-mode +1)
 #+end_src
-** Text Scale Key bindings
+* Whitespace
 #+begin_src emacs-lisp
-  (use-package default-text-scale
+  ;; somtimes need to check white space. this configuration will be helpful
-    :defer 1
+  (custom-set-faces
-    :config
+   ;; custom-set-faces was added by Custom.
-    (default-text-scale-mode))
+   ;; If you edit it by hand, you could mess it up, so be careful.
+   ;; Your init file should contain only one such instance.
+   ;; If there is more than one, they won't work right.
+   '(whitespace-line ((nil (:bold t :background "yellow"))))
+   '(whitespace-tab ((nil (:bold t :background "linen"))))
+   '(whitespace-trailing ((nil (:bold t :background "red1")))))
+  (global-whitespace-mode t)
+  (add-hook
+   'after-change-major-mode-hook
+   '(lambda ()
+      (setq whitespace-line-column nil
+            whitespace-style '(face trailing))))
+  (add-hook 'before-save-hook 'delete-trailing-whitespace)
 #+end_src
+
 * Emojify
 #+begin_src emacs-lisp
   (use-package emojify
@@ -487,27 +505,22 @@ https://emacs.stackexchange.com/a/30691
 * Snippet
 ** TODO : Check Doom Emacs
 #+begin_src emacs-lisp
-  ;;(use-package yasnippet
+  (use-package yasnippet
-  ;; Expand snippets with `C-j', not with `TAB'. Use `TAB' to always
+   ;;Expand snippets with `C-j', not with `TAB'. Use `TAB' to always
-  ;; jump to next field, even when company window is active. If there
+   ;;jump to next field, even when company window is active. If there
-  ;; is need to complete company's selection, use `C-s'
+   ;;is need to complete company's selection, use `C-s'
-  ;; (`company-complete-selection').
+   ;;(`company-complete-selection').
-  ;;:custom
+  :custom
-  ;;(yas-indent-line nil)
+  (yas-indent-line nil)
-  ;;(yas-inhibit-overlay-modification-protection t)
+  (yas-inhibit-overlay-modification-protection t)
-  ;;:custom-face
+  :custom-face
-  ;;(yas-field-highlight-face ((t (:inherit region))))
+  (yas-field-highlight-face ((t (:inherit region))))
-  ;;:bind*
+  :hook
-  ;;(("C-j" . yas-expand)
+  (dashboard-after-initialize . yas-global-mode)
-  ;; :map yas-minor-mode-map
+  (snippet-mode . (lambda () (setq-local require-final-newline nil))))
-  ;; ("TAB" . nil)
+
-  ;; ("<tab>" . nil)
+  ;; snippet collections
-  ;; :map yas-keymap
+  (use-package yasnippet-snippets)
-  ;; ("TAB" . (lambda () (interactive) (company-abort) (yas-next-field)))
-  ;; ("<tab>" . (lambda () (interactive) (company-abort) (yas-next-field))))
-  ;;:hook
-  ;;(dashboard-after-initialize . yas-global-mode)
-  ;;(snippet-mode . (lambda () (setq-local require-final-newline nil))))
 #+end_src
 * Counsel
 #+begin_src emacs-lisp
@@ -611,9 +624,9 @@ https://emacs.stackexchange.com/a/30691
     ("C-c p" . projectile-command-map)
     :init
     ;; NOTE: Set this to the folder where you keep your Git repos!
-    (when (file-directory-p "~/Projects/Code")
+    (when (file-directory-p "~/Projects")
-      (setq projectile-project-search-path '("~/Projects/Code")))
+      (setq projectile-project-search-path '("~/Projects"))))
-    (setq projectile-switch-project-action #'dw/switch-project-action))
+    ;(setq projectile-switch-project-action #'dw/switch-project-action))
   (use-package counsel-projectile
     :after projectile
     :config (counsel-projectile-mode))
@@ -624,11 +637,11 @@ https://emacs.stackexchange.com/a/30691
     "pp" 'counsel-projectile
     "pc" 'projectile-compile-project
     "pd" 'projectile-dired)
-  (defun dw/switch-project-action ()
+  ;;(defun dw/switch-project-action ()
-    "Switch to a workspace with the project name and start `magit-status'."
+  ;;  "Switch to a workspace with the project name and start `magit-status'."
-    ;; TODO: Switch to EXWM workspace 1?
+  ;;  ;; TODO: Switch to EXWM workspace 1?
-    (persp-switch (projectile-project-name))
+  ;;  (persp-switch (projectile-project-name))
-    (magit-status))
+  ;;  (magit-status))
 
 #+end_src
 
@@ -650,16 +663,16 @@ https://emacs.stackexchange.com/a/30691
 
 * Helpful
 #+begin_src emacs-lisp
-  ;;  (use-package helpful
+  (use-package helpful
-  ;;    :commands (helpful-callable helpful-variable helpful-command helpful-key)
+    :commands (helpful-callable helpful-variable helpful-command helpful-key)
-  ;;    :custom
+    :custom
-  ;;    (counsel-describe-function-function #'helpful-callable)
+    (counsel-describe-function-function #'helpful-callable)
-  ;;    (counsel-describe-variable-function #'helpful-variable)
+    (counsel-describe-variable-function #'helpful-variable)
-  ;;    :bind
+    :bind
-  ;;    ([remap describe-function] . counsel-describe-function)
+    ([remap describe-function] . counsel-describe-function)
-  ;;    ([remap describe-command] . helpful-command)
+    ([remap describe-command] . helpful-command)
-  ;;    ([remap describe-variable] . counsel-describe-variable)
+    ([remap describe-variable] . counsel-describe-variable)
-  ;;    ([remap describe-key] . helpful-key))
+    ([remap describe-key] . helpful-key))
 #+end_src
 * Hydra
 #+begin_src emacs-lisp