Emacs : fix frame issue.♌

.emacs.df/init.el

@@ -54,7 +54,7 @@
 (setq vc-follow-symlinks t)
 
 ;; configuration
-(setq user-full-name "JaeYoo,Im"
+(setq user-full-name "JaeYoo-Im"
       user-mail-address "cpu3792@gmail.com")
 
 (defvar gvar/default-font-size 110)
@@ -98,11 +98,13 @@
    		    ;; Also handle undocumented (<active> <inactive>) form.
    		    ((numberp (cadr alpha)) (cadr alpha)))
    	      100)
-   	 gvar/frame-transparency '(85 . 85)))))
+   	 gvar/frame-transparency '(100 . 100)))))
 
 (global-set-key (kbd "C-c t") 'toggle-transparency)
 
-;; Fullscreen
+;; Set transparency & Fullscreen
+(set-frame-parameter (selected-frame) 'alpha gvar/frame-transparency)
+(add-to-list 'default-frame-alist `(alpha . ,gvar/frame-transparency))
 (set-frame-parameter (selected-frame) 'fullscreen 'maximized)
 (add-to-list 'default-frame-alist '(fullscreen . maximized))
 
@@ -225,6 +227,12 @@
           #'which-key--hide-popup-ignore-command)
         embark-become-indicator embark-action-indicator))
 
+(use-package orderless
+  :init
+  (setq completion-styles '(orderless)
+        completion-category-defaults nil
+        completion-category-overrides '((file (styles . (partial-completion))))))
+
 (use-package embark-consult
   :after embark)
 

.emacs.vanilla/emacs.org

@@ -25,7 +25,7 @@
   (defvar gvar/default-variable-font-size 110)
   (defvar gvar/frame-transparency '(75 . 75))
   ;;dir
-  (setq user-emacs-directory "~/.cache/emacs")
+  ;;(setq user-emacs-directory "~/.cache/emacs")
   ;; encoding
   (set-language-environment "Korean")
   (set-default-coding-systems 'utf-8)
@@ -321,7 +321,7 @@ https://nathantypanski.com/blog/2014-08-03-a-vim-like-emacs-config.html
     (setq dashboard-set-file-icons t)
     ;;(setq dashboard-banner-logo-title "Emacs is more than a text editor!")
     ;;(dashboard-startup-banner 'logo)
-    (setq dashboard-startup-banner "/home/jaeus/.emacs.d/logos/black-hole.png")
+    (setq dashboard-startup-banner "/home/jaeus/.emacs.vanilla/logos/black-hole.png")
     (setq dashboard-center-content t)
     (setq dashboard-week-agenda t)
     (setq dashboard-agenda-time-string-format "%d/%m/%Y %A %H:%M")
@@ -455,8 +455,8 @@ This makes nov to ugly
     "f R" '(revert-buffer :which-key "Revert Buffer")
     "t t" '(toggle-truncate-lines :which-key "Toggle truncate lines")
     ;; Shortcut
-    "f d d" '(lambda () (interactive) (find-file (expand-file-name "~/.emacs.d/desktop.org")) :which-key "open exwm config")
+    "f d d" '(lambda () (interactive) (find-file (expand-file-name "~/.emacs.vanilla/desktop.org")) :which-key "open exwm config")
-    "f d e" '(lambda () (interactive) (find-file (expand-file-name "~/.emacs.d/emacs.org")) :which-key "open emacs config"))
+    "f d e" '(lambda () (interactive) (find-file (expand-file-name "~/.emacs.vanilla/emacs.org")) :which-key "open emacs config"))
 #+end_src
 
 #+begin_src emacs-lisp
@@ -868,7 +868,8 @@ https://emacs.stackexchange.com/a/30691
 	(visual-line-mode 1))
 
   (use-package org
-    :pin org
+	;;:pin org
+	:demand t
 	:commands (org-capture org-agenda)
 	:hook (org-mode . efs/org-mode-setup)
 	:config
@@ -918,8 +919,8 @@ https://emacs.stackexchange.com/a/30691
 	(add-to-list 'org-structure-template-alist '("py" . "src python"))
 	(add-to-list 'org-structure-template-alist '("oc" . "src octave"))
 	(add-to-list 'org-structure-template-alist '("vl" . "src verilog"))
-    (add-to-list 'org-structure-template-alist '("vh" . "src vhdl"))
+	(add-to-list 'org-structure-template-alist '("vh" . "src vhdl")))
-    (org-reload))
+	;;(org-reload))
 
   ;; ODT export to docx
   (setq org-odt-preferred-output-format "docx")
@@ -1056,44 +1057,45 @@ https://emacs.stackexchange.com/a/30691
 #+end_src
 ** Org present
 #+begin_src emacs-lisp
-  (defun dw/org-present-prepare-slide ()
+;;  (defun dw/org-present-prepare-slide ()
-    (org-overview)
+;;	(org-overview)
-    (org-show-entry)
+;;	(org-show-entry)
-    (org-show-children))
+;;	(org-show-children))
-
+;;
-  (defun dw/org-present-hook ()
+;;  (defun dw/org-present-hook ()
-    (setq-local face-remapping-alist '((default (:height 1.5) variable-pitch)
+;;	(setq-local face-remapping-alist '((default (:height 1.5) variable-pitch)
-                                       (header-line (:height 4.5) variable-pitch)
+;;									   (header-line (:height 4.5) variable-pitch)
-                                       (org-code (:height 1.55) org-code)
+;;									   (org-code (:height 1.55) org-code)
-                                       (org-verbatim (:height 1.55) org-verbatim)
+;;									   (org-verbatim (:height 1.55) org-verbatim)
-                                       (org-bloc (:height 1.25) org-block)
+;;									   (org-bloc (:height 1.25) org-block)
-                                       (org-block-begin-line (:height 0.7) org-block)))
+;;									   (org-block-begin-line (:height 0.7) org-block)))
-    (setq header-line-format " ")
+;;	(setq header-line-format " ")
-    (org-display-inline-images)
+;;	(org-display-inline-images)
-    (dw/org-present-prepare-slide))
+;;	(dw/org-present-prepare-slide))
-
+;;
-  (defun dw/org-present-quit-hook ()
+;;  (defun dw/org-present-quit-hook ()
-    (setq-local face-remapping-alist '((default variable-pitch default)))
+;;	(setq-local face-remapping-alist '((default variable-pitch default)))
-    (setq header-line-format nil)
+;;	(setq header-line-format nil)
-    (org-present-small)
+;;	(org-present-small)
-    (org-remove-inline-images))
+;;	(org-remove-inline-images))
-
+;;
-  (defun dw/org-present-prev ()
+;;  (defun dw/org-present-prev ()
-    (interactive)
+;;	(interactive)
-    (org-present-prev)
+;;	(org-present-prev)
-    (dw/org-present-prepare-slide))
+;;	(dw/org-present-prepare-slide))
-
+;;
-  (defun dw/org-present-next ()
+;;  (defun dw/org-present-next ()
-    (interactive)
+;;	(interactive)
-    (org-present-next)
+;;	(org-present-next)
-    (dw/org-present-prepare-slide))
+;;	(dw/org-present-prepare-slide))
-
+;;
-  (use-package org-present
+;;  (use-package org-present
-    :bind (:map org-present-mode-keymap
+;;	:disable
-                ("C-c C-j" . dw/org-present-next)
+;;	:bind (:map org-present-mode-keymap
-                ("C-c C-k" . dw/org-present-prev))
+;;				("C-c C-j" . dw/org-present-next)
-    :hook ((org-present-mode . dw/org-present-hook)
+;;				("C-c C-k" . dw/org-present-prev))
-           (org-present-mode-quit . dw/org-present-quit-hook)))
+;;	:hook ((org-present-mode . dw/org-present-hook)
+;;		   (org-present-mode-quit . dw/org-present-quit-hook)))
 #+end_src
 ** Translate in org
 #+begin_src emacs-lisp

.gitignore

@@ -6,3 +6,9 @@
 /.config/htop/
 /.config/qutebrowser/
 /.config/tmux/
+/.emacs.vanilla/var/
+/.emacs.vanilla/straight/
+/.emacs.vanilla/elpa/
+/.emacs.vanilla/.org-generic-id-locations
+/.emacs.df/var/
+/.emacs.vanilla/emacs.el