Emacs : fix frame issue.♌

2025-12-14 08:01:35 +09:00 · 2022-04-11 16:39:06 +09:00
parent cf157bfa4b
commit a34286d5ba
3 changed files with 105 additions and 89 deletions
--- a/.emacs.df/init.el
+++ b/.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)

--- a/.emacs.vanilla/emacs.org
+++ b/.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 e" '(lambda () (interactive) (find-file (expand-file-name "~/.emacs.d/emacs.org")) :which-key "open emacs 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.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"))
-    (org-reload))
+	(add-to-list 'org-structure-template-alist '("vh" . "src vhdl")))
+	;;(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 ()
-    (org-overview)
-    (org-show-entry)
-    (org-show-children))
-
-  (defun dw/org-present-hook ()
-    (setq-local face-remapping-alist '((default (:height 1.5) variable-pitch)
-                                       (header-line (:height 4.5) variable-pitch)
-                                       (org-code (:height 1.55) org-code)
-                                       (org-verbatim (:height 1.55) org-verbatim)
-                                       (org-bloc (:height 1.25) org-block)
-                                       (org-block-begin-line (:height 0.7) org-block)))
-    (setq header-line-format " ")
-    (org-display-inline-images)
-    (dw/org-present-prepare-slide))
-
-  (defun dw/org-present-quit-hook ()
-    (setq-local face-remapping-alist '((default variable-pitch default)))
-    (setq header-line-format nil)
-    (org-present-small)
-    (org-remove-inline-images))
-
-  (defun dw/org-present-prev ()
-    (interactive)
-    (org-present-prev)
-    (dw/org-present-prepare-slide))
-
-  (defun dw/org-present-next ()
-    (interactive)
-    (org-present-next)
-    (dw/org-present-prepare-slide))
-
-  (use-package org-present
-    :bind (:map org-present-mode-keymap
-                ("C-c C-j" . dw/org-present-next)
-                ("C-c C-k" . dw/org-present-prev))
-    :hook ((org-present-mode . dw/org-present-hook)
-           (org-present-mode-quit . dw/org-present-quit-hook)))
+;;  (defun dw/org-present-prepare-slide ()
+;;	(org-overview)
+;;	(org-show-entry)
+;;	(org-show-children))
+;;
+;;  (defun dw/org-present-hook ()
+;;	(setq-local face-remapping-alist '((default (:height 1.5) variable-pitch)
+;;									   (header-line (:height 4.5) variable-pitch)
+;;									   (org-code (:height 1.55) org-code)
+;;									   (org-verbatim (:height 1.55) org-verbatim)
+;;									   (org-bloc (:height 1.25) org-block)
+;;									   (org-block-begin-line (:height 0.7) org-block)))
+;;	(setq header-line-format " ")
+;;	(org-display-inline-images)
+;;	(dw/org-present-prepare-slide))
+;;
+;;  (defun dw/org-present-quit-hook ()
+;;	(setq-local face-remapping-alist '((default variable-pitch default)))
+;;	(setq header-line-format nil)
+;;	(org-present-small)
+;;	(org-remove-inline-images))
+;;
+;;  (defun dw/org-present-prev ()
+;;	(interactive)
+;;	(org-present-prev)
+;;	(dw/org-present-prepare-slide))
+;;
+;;  (defun dw/org-present-next ()
+;;	(interactive)
+;;	(org-present-next)
+;;	(dw/org-present-prepare-slide))
+;;
+;;  (use-package org-present
+;;	:disable
+;;	:bind (:map org-present-mode-keymap
+;;				("C-c C-j" . dw/org-present-next)
+;;				("C-c C-k" . dw/org-present-prev))
+;;	: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
--- a/.gitignore
+++ b/.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