chris/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding transparency

Browse source
This commit is contained in:
Chris Cochrun 2023-08-01 05:38:34 -05:00
parent 5329453a38
commit 1cdebe323e
3 changed files with 17 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

21
init.el
View file

@ -40,9 +40,9 @@
(defun chris/set-transparency ()
"Set the frame to be transparent but not the text"
(set-frame-parameter (selected-frame) 'alpha-background 100)
(add-to-list 'default-frame-alist '(alpha-background . 100))
(add-to-list 'initial-frame-alist '(alpha-background . 100)))
(set-frame-parameter (selected-frame) 'alpha-background 85)
(add-to-list 'default-frame-alist '(alpha-background . 85))
(add-to-list 'initial-frame-alist '(alpha-background . 85)))
(if (daemonp) (add-hook 'after-make-frame-functions
(lambda (frame)
@ -552,6 +552,7 @@ much faster. The hope is to also make this a faster version of imenu."
org-odt-styles-file "/home/chris/org/style.odt"
org-export-with-toc nil
org-export-with-author nil
org-export-with-section-numbers nil
org-todo-keywords
'((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
(sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)"))
@ -1533,11 +1534,6 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
"C-k" 'vertico-previous)
)
;; Persist history over Emacs restarts. Vertico sorts by history position.
(use-package savehist
:init
(savehist-mode))
;; A few more useful configurations...
(use-package emacs
:init
@ -2062,8 +2058,7 @@ targets."
(use-package paredit
:hook ((lisp-mode . enable-paredit-mode)
(emacs-lisp-mode . enable-paredit-mode)
(scheme-mode . enable-paredit-mode)
(prog-mode . enable-paredit-mode))
(scheme-mode . enable-paredit-mode))
:general
('normal lisp-mode-map
"gl" 'paredit-forward-slurp-sexp
@ -2296,7 +2291,7 @@ targets."
"Open dired in Videos as file-manager in wm"
(interactive)
(with-selected-frame (make-frame '((name . "dired")))
(dired "~/Videos/")
(dired "/home/chris/vids/")
(toggle-truncate-lines +1)))
(defun chris/setup-dired ()
@ -2455,8 +2450,8 @@ targets."
;; shortcuts in the jumplist by pressing "J" in the mu4e buffer
(setq mu4e-maildir-shortcuts
'((:maildir "/cochrun/Archive" :key ?a)
(:maildir "/cochrun/INBOX" :key ?i)
(:maildir "/office/INBOX" :key ?w)
(:maildir "/cochrun/Inbox" :key ?i)
(:maildir "/office/Inbox" :key ?w)
(:maildir "/office/Junk Email" :key ?j)
(:maildir "/office/INBOX/Website Forms" :key ?f)
(:maildir "/office/Sent Items" :key ?s)))