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

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
Show stats Download patch file Download diff file Expand all files Collapse all files

21
README.org
View file

@ -121,9 +121,9 @@ In order to have this config work on both my desktop with regular joe-schmoe mon
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent but not the text" "Set the frame to be transparent but not the text"
(set-frame-parameter (selected-frame) 'alpha-background 100) (set-frame-parameter (selected-frame) 'alpha-background 85)
(add-to-list 'default-frame-alist '(alpha-background . 100)) (add-to-list 'default-frame-alist '(alpha-background . 85))
(add-to-list 'initial-frame-alist '(alpha-background . 100))) (add-to-list 'initial-frame-alist '(alpha-background . 85)))
(if (daemonp) (add-hook 'after-make-frame-functions (if (daemonp) (add-hook 'after-make-frame-functions
(lambda (frame) (lambda (frame)
@ -821,6 +821,7 @@ Part of this config includes some special capture templates for my work as a you
org-odt-styles-file "/home/chris/org/style.odt" org-odt-styles-file "/home/chris/org/style.odt"
org-export-with-toc nil org-export-with-toc nil
org-export-with-author nil org-export-with-author nil
org-export-with-section-numbers nil
org-todo-keywords org-todo-keywords
'((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)") '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
(sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")) (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)"))
@ -2110,11 +2111,6 @@ Vertico is an alternative to Selectrum. Maybe using it will give me an even bett
"C-k" 'vertico-previous) "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... ;; A few more useful configurations...
(use-package emacs (use-package emacs
:init :init
@ -2757,8 +2753,7 @@ Also here are some lisp specific stuff
(use-package paredit (use-package paredit
:hook ((lisp-mode . enable-paredit-mode) :hook ((lisp-mode . enable-paredit-mode)
(emacs-lisp-mode . enable-paredit-mode) (emacs-lisp-mode . enable-paredit-mode)
(scheme-mode . enable-paredit-mode) (scheme-mode . enable-paredit-mode))
(prog-mode . enable-paredit-mode))
:general :general
('normal lisp-mode-map ('normal lisp-mode-map
"gl" 'paredit-forward-slurp-sexp "gl" 'paredit-forward-slurp-sexp
@ -3162,7 +3157,7 @@ I'm making a small function in here to open files in the appropriate program usi
"Open dired in Videos as file-manager in wm" "Open dired in Videos as file-manager in wm"
(interactive) (interactive)
(with-selected-frame (make-frame '((name . "dired"))) (with-selected-frame (make-frame '((name . "dired")))
(dired "~/Videos/") (dired "/home/chris/vids/")
(toggle-truncate-lines +1))) (toggle-truncate-lines +1)))
(defun chris/setup-dired () (defun chris/setup-dired ()
@ -3427,8 +3422,8 @@ Ledger mode
;; shortcuts in the jumplist by pressing "J" in the mu4e buffer ;; shortcuts in the jumplist by pressing "J" in the mu4e buffer
(setq mu4e-maildir-shortcuts (setq mu4e-maildir-shortcuts
'((:maildir "/cochrun/Archive" :key ?a) '((:maildir "/cochrun/Archive" :key ?a)
(:maildir "/cochrun/INBOX" :key ?i) (:maildir "/cochrun/Inbox" :key ?i)
(:maildir "/office/INBOX" :key ?w) (:maildir "/office/Inbox" :key ?w)
(:maildir "/office/Junk Email" :key ?j) (:maildir "/office/Junk Email" :key ?j)
(:maildir "/office/INBOX/Website Forms" :key ?f) (:maildir "/office/INBOX/Website Forms" :key ?f)
(:maildir "/office/Sent Items" :key ?s))) (:maildir "/office/Sent Items" :key ?s)))

21
init.el
View file

@ -40,9 +40,9 @@
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent but not the text" "Set the frame to be transparent but not the text"
(set-frame-parameter (selected-frame) 'alpha-background 100) (set-frame-parameter (selected-frame) 'alpha-background 85)
(add-to-list 'default-frame-alist '(alpha-background . 100)) (add-to-list 'default-frame-alist '(alpha-background . 85))
(add-to-list 'initial-frame-alist '(alpha-background . 100))) (add-to-list 'initial-frame-alist '(alpha-background . 85)))
(if (daemonp) (add-hook 'after-make-frame-functions (if (daemonp) (add-hook 'after-make-frame-functions
(lambda (frame) (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-odt-styles-file "/home/chris/org/style.odt"
org-export-with-toc nil org-export-with-toc nil
org-export-with-author nil org-export-with-author nil
org-export-with-section-numbers nil
org-todo-keywords org-todo-keywords
'((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)") '((sequence "TODO(t)" "PROJ(p)" "STRT(s)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "CNCL(c)")
(sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")) (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) "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... ;; A few more useful configurations...
(use-package emacs (use-package emacs
:init :init
@ -2062,8 +2058,7 @@ targets."
(use-package paredit (use-package paredit
:hook ((lisp-mode . enable-paredit-mode) :hook ((lisp-mode . enable-paredit-mode)
(emacs-lisp-mode . enable-paredit-mode) (emacs-lisp-mode . enable-paredit-mode)
(scheme-mode . enable-paredit-mode) (scheme-mode . enable-paredit-mode))
(prog-mode . enable-paredit-mode))
:general :general
('normal lisp-mode-map ('normal lisp-mode-map
"gl" 'paredit-forward-slurp-sexp "gl" 'paredit-forward-slurp-sexp
@ -2296,7 +2291,7 @@ targets."
"Open dired in Videos as file-manager in wm" "Open dired in Videos as file-manager in wm"
(interactive) (interactive)
(with-selected-frame (make-frame '((name . "dired"))) (with-selected-frame (make-frame '((name . "dired")))
(dired "~/Videos/") (dired "/home/chris/vids/")
(toggle-truncate-lines +1))) (toggle-truncate-lines +1)))
(defun chris/setup-dired () (defun chris/setup-dired ()
@ -2455,8 +2450,8 @@ targets."
;; shortcuts in the jumplist by pressing "J" in the mu4e buffer ;; shortcuts in the jumplist by pressing "J" in the mu4e buffer
(setq mu4e-maildir-shortcuts (setq mu4e-maildir-shortcuts
'((:maildir "/cochrun/Archive" :key ?a) '((:maildir "/cochrun/Archive" :key ?a)
(:maildir "/cochrun/INBOX" :key ?i) (:maildir "/cochrun/Inbox" :key ?i)
(:maildir "/office/INBOX" :key ?w) (:maildir "/office/Inbox" :key ?w)
(:maildir "/office/Junk Email" :key ?j) (:maildir "/office/Junk Email" :key ?j)
(:maildir "/office/INBOX/Website Forms" :key ?f) (:maildir "/office/INBOX/Website Forms" :key ?f)
(:maildir "/office/Sent Items" :key ?s))) (:maildir "/office/Sent Items" :key ?s)))

6
recentf
View file

@ -1,12 +1,8 @@
;;; Automatically generated by ‘recentf’ on Wed Jun 7 20:58:32 2023. ;;; Automatically generated by ‘recentf’ on Mon Jul 31 16:20:57 2023.
(setq recentf-list (setq recentf-list
'( '(
"~/.emacs.d/init.el" "~/.emacs.d/init.el"
"~/.files/guix/home-configuration.scm"
"~/.emacs.d/README.org"
"~/.files/guix/system.scm"
"~/.files/guix/channels.scm"
)) ))
(setq recentf-filter-changer-current 'nil) (setq recentf-filter-changer-current 'nil)