JaeUs/dotfiles
1
0
Fork 0
mirror of http://github.com/JaeUs3792/dotfiles synced 2025-12-14 08:01:35 +09:00
Code Issues Packages Projects Releases Wiki Activity

Emacs : fix frame issue.♌

Browse Source
This commit is contained in:
JaeYoo-Im
2022-04-11 16:39:06 +09:00
parent cf157bfa4b
commit a34286d5ba
3 changed files with 105 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
.emacs.df/init.el
View File

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

174
.emacs.vanilla/emacs.org
View File

@ -25,7 +25,7 @@
(defvar gvar/default-variable-font-size 110) (defvar gvar/default-variable-font-size 110)
(defvar gvar/frame-transparency '(75 . 75)) (defvar gvar/frame-transparency '(75 . 75))
;;dir ;;dir
(setq user-emacs-directory "~/.cache/emacs") ;;(setq user-emacs-directory "~/.cache/emacs")
;; encoding ;; encoding
(set-language-environment "Korean") (set-language-environment "Korean")
(set-default-coding-systems 'utf-8) (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-set-file-icons t)
;;(setq dashboard-banner-logo-title "Emacs is more than a text editor!") ;;(setq dashboard-banner-logo-title "Emacs is more than a text editor!")
;;(dashboard-startup-banner 'logo) ;;(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-center-content t)
(setq dashboard-week-agenda t) (setq dashboard-week-agenda t)
(setq dashboard-agenda-time-string-format "%d/%m/%Y %A %H:%M") (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") "f R" '(revert-buffer :which-key "Revert Buffer")
"t t" '(toggle-truncate-lines :which-key "Toggle truncate lines") "t t" '(toggle-truncate-lines :which-key "Toggle truncate lines")
;; Shortcut ;; 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 #+end_src
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -863,63 +863,64 @@ https://emacs.stackexchange.com/a/30691
+ Initial Setup + Initial Setup
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun efs/org-mode-setup () (defun efs/org-mode-setup ()
(org-indent-mode) (org-indent-mode)
;;(variable-pitch-mode 1) ;;(variable-pitch-mode 1)
(visual-line-mode 1)) (visual-line-mode 1))
(use-package org (use-package org
:pin org ;;:pin org
:commands (org-capture org-agenda) :demand t
:hook (org-mode . efs/org-mode-setup) :commands (org-capture org-agenda)
:config :hook (org-mode . efs/org-mode-setup)
:config
(setq org-todo-keywords (setq org-todo-keywords
'((sequence "TODO(t)" "HOLD(h)" "|" "KILL(k)" "DONE(d)"))) '((sequence "TODO(t)" "HOLD(h)" "|" "KILL(k)" "DONE(d)")))
(setq org-ellipsis " ▾") (setq org-ellipsis " ▾")
(setq org-hide-emphasis-markers t) (setq org-hide-emphasis-markers t)
(setq org-src-fontify-natively t) (setq org-src-fontify-natively t)
(setq org-fontify-quote-and-verse-blocks t) (setq org-fontify-quote-and-verse-blocks t)
(setq org-agenda-start-with-log-mode t) (setq org-agenda-start-with-log-mode t)
(setq org-log-done 'time) (setq org-log-done 'time)
(setq org-log-into-drawer t) (setq org-log-into-drawer t)
(setq org-format-latex-options (plist-put org-format-latex-options :scale 1.8))) (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.8)))
(use-package org-superstar :after org :hook (org-mode . org-superstar-mode)) (use-package org-superstar :after org :hook (org-mode . org-superstar-mode))
(use-package org-attach-screenshot) (use-package org-attach-screenshot)
(use-package org-download) (use-package org-download)
(defun efs/org-mode-visual-fill () (defun efs/org-mode-visual-fill ()
(setq visual-fill-column-width 100 (setq visual-fill-column-width 100
visual-fill-column-center-text t) visual-fill-column-center-text t)
(visual-fill-column-mode 1)) (visual-fill-column-mode 1))
(use-package visual-fill-column (use-package visual-fill-column
:hook (org-mode . efs/org-mode-visual-fill)) :hook (org-mode . efs/org-mode-visual-fill))
(with-eval-after-load 'org (with-eval-after-load 'org
(org-babel-do-load-languages (org-babel-do-load-languages
'org-babel-load-languages 'org-babel-load-languages
'((emacs-lisp . t) '((emacs-lisp . t)
(python . t) (python . t)
(latex . t))) (latex . t)))
(push '("conf-unix" . conf-unix) org-src-lang-modes)) (push '("conf-unix" . conf-unix) org-src-lang-modes))
(with-eval-after-load 'org (with-eval-after-load 'org
;; This is needed as of Org 9.2 ;; This is needed as of Org 9.2
(require 'org-tempo) (require 'org-tempo)
(add-to-list 'org-structure-template-alist '("sh" . "src shell")) (add-to-list 'org-structure-template-alist '("sh" . "src shell"))
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp")) (add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("hs" . "src haskell")) (add-to-list 'org-structure-template-alist '("hs" . "src haskell"))
(add-to-list 'org-structure-template-alist '("cc" . "src c")) (add-to-list 'org-structure-template-alist '("cc" . "src c"))
(add-to-list 'org-structure-template-alist '("cp" . "src c++")) (add-to-list 'org-structure-template-alist '("cp" . "src c++"))
(add-to-list 'org-structure-template-alist '("rs" . "src rust")) (add-to-list 'org-structure-template-alist '("rs" . "src rust"))
(add-to-list 'org-structure-template-alist '("py" . "src python")) (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 '("oc" . "src octave"))
(add-to-list 'org-structure-template-alist '("vl" . "src verilog")) (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 ;; ODT export to docx
(setq org-odt-preferred-output-format "docx") (setq org-odt-preferred-output-format "docx")
@ -929,10 +930,10 @@ https://emacs.stackexchange.com/a/30691
(ju/leader-key-def (ju/leader-key-def
"o" '(:ignore t :which-key "Org mode") "o" '(:ignore t :which-key "Org mode")
"oa" '(:ignore t :which-key "Org Agenda") "oa" '(:ignore t :which-key "Org Agenda")
"oar" '(my/org-roam-refresh-agenda-list :which-key "Org agenda refresh list") "oar" '(my/org-roam-refresh-agenda-list :which-key "Org agenda refresh list")
"oaa" '(org-agenda :which-key "open org agenda")) "oaa" '(org-agenda :which-key "open org agenda"))
#+end_src #+end_src
** Org mode Addons ** Org mode Addons
@ -1056,44 +1057,45 @@ https://emacs.stackexchange.com/a/30691
#+end_src #+end_src
** Org present ** Org present
#+begin_src emacs-lisp #+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 #+end_src
** Translate in org ** Translate in org
#+begin_src emacs-lisp #+begin_src emacs-lisp

6
.gitignore vendored
View File

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