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 : toggle transparency

Browse Source
This commit is contained in:
JaeYoo-Im
2022-01-30 23:49:02 +09:00
parent e5e0f29c91
commit 60f48fb3ac
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
.emacs.d/emacs.org
View File

@ -33,6 +33,21 @@
;; font ;; font
(defun available-font? (font) (member font (font-family-list))) (defun available-font? (font) (member font (font-family-list)))
#+end_src #+end_src
* Toggle Transparency
#+begin_src emacs-lisp
(defun toggle-transparency ()
(interactive)
(let ((alpha (frame-parameter nil 'alpha)))
(set-frame-parameter
nil 'alpha
(if (eql (cond ((numberp alpha) alpha)
((numberp (cdr alpha)) (cdr alpha))
;; Also handle undocumented (<active> <inactive>) form.
((numberp (cadr alpha)) (cadr alpha)))
100)
gvar/frame-transparency '(100 . 100)))))
(global-set-key (kbd "C-c t") 'toggle-transparency)
#+end_src
* Package Related * Package Related
** Package Repo ** Package Repo
#+begin_src emacs-lisp #+begin_src emacs-lisp