From 3c28b8c62860713b2e74a8e251daa61dce1aac50 Mon Sep 17 00:00:00 2001
From: JaeYoo-Im <cpu3792@gmail.com>
Date: Thu, 12 Jan 2023 12:34:39 +0900
Subject: [PATCH] emacs :fix font

---
 .config/emacs/.gitignore                      |  9 +++
 .config/emacs/config.el                       | 18 ++++--
 .config/emacs/emacs.org                       | 60 +++++++++++--------
 .config/emacs/init.el                         |  2 +-
 .config/emacs/modules/#custom-keybindings.el# | 23 -------
 .config/emacs/modules/custom-completion.el    |  9 +++
 6 files changed, 66 insertions(+), 55 deletions(-)
 create mode 100644 .config/emacs/.gitignore
 delete mode 100755 .config/emacs/modules/#custom-keybindings.el#

diff --git a/.config/emacs/.gitignore b/.config/emacs/.gitignore
new file mode 100644
index 0000000..8a1d02a
--- /dev/null
+++ b/.config/emacs/.gitignore
@@ -0,0 +1,9 @@
+# generated from emacs.org
+
+
+# auto generated
+modules/
+eln-cache/
+elpa/
+straight/
+var/
diff --git a/.config/emacs/config.el b/.config/emacs/config.el
index eda4da6..eea07a0 100644
--- a/.config/emacs/config.el
+++ b/.config/emacs/config.el
@@ -2,11 +2,19 @@
 (setq user-full-name "JaeYoo-Im"
       user-mail-address "cpu3792@gmail.com")
 
-(add-to-list 'default-frame-alist `(font . "Fira Code Retina"))
-(set-face-attribute 'default nil :font "Fira Code Retina" :height 12)
-(set-face-attribute 'fixed-pitch nil :font "Fira Code Retina" :height 12)
-(set-face-attribute 'variable-pitch nil :font "Fira Code Retina" :height 12 :weight 'regular)
-(set-fontset-font t 'hangul (font-spec :family "NanumGothic" :height 12))
+;;(add-to-list 'default-frame-alist `(font . "Fira Code Retina"))
+;;(set-face-attribute 'default nil :font "Fira Code Retina" :height 12)
+;;(set-face-attribute 'fixed-pitch nil :font "Fira Code Retina" :height 12)
+;;(set-face-attribute 'variable-pitch nil :font "Fira Code Retina" :height 12 :weight 'regular)
+;;(set-fontset-font t 'hangul (font-spec :family "NanumGothic" :height 12))
+
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (custom-set-faces
+             `(default ((t (:font "Fira Code Retina 12"))))
+             `(fixed-pitch ((t (:inherit (default)))))
+             `(fixed-pitch-serif ((t (:inherit (default)))))
+             `(variable-pitch ((t (:font "Ubuntu 12")))))))
 
 (require 'custom-ui)
 (require 'custom-keybindings)
diff --git a/.config/emacs/emacs.org b/.config/emacs/emacs.org
index 2e04469..45c340a 100755
--- a/.config/emacs/emacs.org
+++ b/.config/emacs/emacs.org
@@ -4,26 +4,26 @@
 Emacs Configuration for emacs 29.50
 ** Early Init
 #+begin_src emacs-lisp :tangle ~/.config/emacs/early-init.el
-;;; early-init.el -*- lexical-binding: t; -*-
-;; garbage collection
-(setq gc-cons-threshold (* 50 1024 1024)) ;; 50MB
-;; prefers newest version of a file
-(customize-set-variable 'load-prefer-newer t)
+  ;;; early-init.el -*- lexical-binding: t; -*-
+  ;; garbage collection
+  (setq gc-cons-threshold (* 50 1024 1024)) ;; 50MB
+  ;; prefers newest version of a file
+  (customize-set-variable 'load-prefer-newer t)
 
-(setq package-enable-at-startup nil
-      inhibit-startup-message t frame-resize-pixelwise t
-      package-native-compile t)
-(scroll-bar-mode -1)
-(tool-bar-mode -1)
-(tooltip-mode -1)
-(set-fringe-mode 10)
-(menu-bar-mode -1)
-;;(blink-cursor-mode 0)
+  (setq package-enable-at-startup nil
+        inhibit-startup-message t frame-resize-pixelwise t
+        package-native-compile t)
+  (scroll-bar-mode -1)
+  (tool-bar-mode -1)
+  (tooltip-mode -1)
+  (set-fringe-mode 10)
+  (menu-bar-mode -1)
+  ;;(blink-cursor-mode 0)
 
-;; initial load with blue theme
-(load-theme 'deeper-blue)
+  ;; initial load with blue theme
+  (load-theme 'deeper-blue)
 
-(customize-set-variable 'initial-major-mode 'fundamental-mode)
+  (customize-set-variable 'initial-major-mode 'fundamental-mode)
 
 #+end_src
 
@@ -135,7 +135,7 @@ Emacs Configuration for emacs 29.50
 (when (file-exists-p my-config-file)
   (load my-config-file nil 'nomessage))
 
-;;(defalias 'yes-or-no-p 'y-or-n-p)
+(setq use-short-answer t)
 (global-auto-revert-mode t)
 
 #+end_src
@@ -145,11 +145,19 @@ Emacs Configuration for emacs 29.50
   (setq user-full-name "JaeYoo-Im"
         user-mail-address "cpu3792@gmail.com")
 
-  (add-to-list 'default-frame-alist `(font . "Fira Code Retina"))
-  (set-face-attribute 'default nil :font "Fira Code Retina" :height 12)
-  (set-face-attribute 'fixed-pitch nil :font "Fira Code Retina" :height 12)
-  (set-face-attribute 'variable-pitch nil :font "Fira Code Retina" :height 12 :weight 'regular)
-  (set-fontset-font t 'hangul (font-spec :family "NanumGothic" :height 12))
+  ;;(add-to-list 'default-frame-alist `(font . "Fira Code Retina"))
+  ;;(set-face-attribute 'default nil :font "Fira Code Retina" :height 12)
+  ;;(set-face-attribute 'fixed-pitch nil :font "Fira Code Retina" :height 12)
+  ;;(set-face-attribute 'variable-pitch nil :font "Fira Code Retina" :height 12 :weight 'regular)
+  ;;(set-fontset-font t 'hangul (font-spec :family "NanumGothic" :height 12))
+
+  (add-hook 'emacs-startup-hook
+            (lambda ()
+              (custom-set-faces
+               `(default ((t (:font "Fira Code Retina 12"))))
+               `(fixed-pitch ((t (:inherit (default)))))
+               `(fixed-pitch-serif ((t (:inherit (default)))))
+               `(variable-pitch ((t (:font "Ubuntu 12")))))))
 
   (require 'custom-ui)
   (require 'custom-keybindings)
@@ -454,7 +462,7 @@ https://github.com/SystemCrafter/crafted-emacs
     :init
     (vertico-mode))
   (use-package vertico-posframe
-    ;;:disabled
+    :disabled
     :after vertico
     :ensure t
     :init
@@ -625,6 +633,6 @@ Quick Action in minibuffer
 
 **** Provide Modules
 #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el
-(provide 'custom-org)
-;;; custom-org.el ends here
+  (provide 'custom-org)
+  ;;; custom-org.el ends here
 #+end_src
diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index dec3e6a..1903d6f 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -66,5 +66,5 @@
 (when (file-exists-p my-config-file)
   (load my-config-file nil 'nomessage))
 
-;;(defalias 'yes-or-no-p 'y-or-n-p)
+(setq use-short-answer t)
 (global-auto-revert-mode t)
diff --git a/.config/emacs/modules/#custom-keybindings.el# b/.config/emacs/modules/#custom-keybindings.el#
deleted file mode 100755
index a228c29..0000000
--- a/.config/emacs/modules/#custom-keybindings.el#
+++ /dev/null
@@ -1,23 +0,0 @@
-(use-package which-key
-  :defer t
-  :init (which-key-mode)
-  :diminish which-key-mode
-  :config
-  (setq which-key-idle-delay 0.5))
-
-(use-package general
-  :init
-  (general-auto-unbind-keys)
-  :config
-  (general-evil-setup t)
-  (general-create-definer ju/leader-key-def
-    :keymaps '(normal insert visual emacs)
-    :prefix "SPC"
-    :global-prefix "C-SPC"))
-
-(ju/leader-key-def
- "." 'find-file)
- ;; Buffer)
-
-(provide 'custom-keybindings)
-;;; custom-keybindings.el ends here
diff --git a/.config/emacs/modules/custom-completion.el b/.config/emacs/modules/custom-completion.el
index 38e3c06..42e46ed 100644
--- a/.config/emacs/modules/custom-completion.el
+++ b/.config/emacs/modules/custom-completion.el
@@ -8,6 +8,15 @@
   (vertico-cycle t)
   :init
   (vertico-mode))
+(use-package vertico-posframe
+  :disabled
+  :after vertico
+  :ensure t
+  :init
+  (setq vertico-posframe-parameters
+        `((left-fringe . 8)
+          (right-fringe . 8) (alpha . 100)))
+  (vertico-posframe-mode 1))
 
 (use-package marginalia
   :after vertico