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

fixing some ui stuff

Browse source
This commit is contained in:
Chris Cochrun 2021-08-24 10:52:59 -05:00
parent 034b91b880
commit 58bc6620b4
2 changed files with 72 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
README.org
View file

@ -103,17 +103,17 @@ 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 on Wayland compositors" "Set the frame to be transparent on Wayland compositors"
(if (string-search "wayland" x-display-name) (if (string-search "wayland" x-display-name)
(set-frame-parameter (selected-frame) 'alpha '(100 . 100)) ((set-frame-parameter (selected-frame) 'alpha '(100 . 100))
(set-frame-parameter (selected-frame) 'undecorated t) (set-frame-parameter (selected-frame) 'undecorated t)
(add-to-list 'default-frame-alist '(undecorated . t)) (add-to-list 'default-frame-alist '(undecorated . t))
(add-to-list 'default-frame-alist '(alpha . (100 . 100))))) (add-to-list 'default-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(alpha . (100 . 100))))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
(lambda (frame) (lambda (frame)
(with-selected-frame frame (with-selected-frame frame
(chris/set-font-faces) (chris/set-font-faces)))
(chris/set-transparency)))
(chris/set-font-faces))) (chris/set-font-faces)))
#+end_src #+end_src
@ -1127,6 +1127,7 @@ Part of this config includes some special capture templates for my work as a you
"/home/chris/org/ministry_team.org" "/home/chris/org/ministry_team.org"
"/home/chris/org/todo/todo.org" "/home/chris/org/todo/todo.org"
"/home/chris/org/newsletter.org" "/home/chris/org/newsletter.org"
"/home/chris/org/archive.org"
"/home/chris/org/nvtfc_social_media.org" "/home/chris/org/nvtfc_social_media.org"
"/home/chris/org/lessons/") "/home/chris/org/lessons/")
org-id-method 'ts) org-id-method 'ts)
@ -1166,7 +1167,7 @@ Part of this config includes some special capture templates for my work as a you
(setq org-agenda-window-setup 'other-frame) (setq org-agenda-window-setup 'other-frame)
(defun chris/org-agenda-awesome () (defun chris/org-agenda ()
"create a window in AwesomeWM that houses my org-agenda" "create a window in AwesomeWM that houses my org-agenda"
(interactive) (interactive)
(org-agenda-list)) (org-agenda-list))
@ -1668,6 +1669,25 @@ Let's add org-msg to write emails in org-mode
(cfw:ical-create-source (cfw:ical-create-source
"Outlook" "https://outlook.office365.com/owa/calendar/62a0d491bec4430e825822afd2fd1c01@tfcconnection.org/9acc5bc27ca24ce7a900c57284959f9d8242340735661296952/S-1-8-2197686000-2519837503-3687200543-3873966527/reachcalendar.ics" "Yellow") ; Outlook Calendar "Outlook" "https://outlook.office365.com/owa/calendar/62a0d491bec4430e825822afd2fd1c01@tfcconnection.org/9acc5bc27ca24ce7a900c57284959f9d8242340735661296952/S-1-8-2197686000-2519837503-3687200543-3873966527/reachcalendar.ics" "Yellow") ; Outlook Calendar
))) )))
(custom-set-faces
'(cfw:face-title ((t (:weight bold :height 2.0 :inherit fixed-pitch))))
'(cfw:face-header ((t (:slant italic :weight bold))))
'(cfw:face-sunday ((t :weight bold)))
'(cfw:face-saturday ((t :weight bold)))
'(cfw:face-holiday ((t :weight bold)))
;; '(cfw:face-grid ((t :foreground "DarkGrey")))
;; '(cfw:face-default-content ((t :foreground "#bfebbf")))
;; '(cfw:face-periods ((t :foreground "cyan")))
'(cfw:face-day-title ((t :background nil)))
'(cfw:face-default-day ((t :weight bold :inherit cfw:face-day-title)))
'(cfw:face-annotation ((t :inherit cfw:face-day-title)))
'(cfw:face-disable ((t :inherit cfw:face-day-title)))
'(cfw:face-today-title ((t :weight bold)))
'(cfw:face-today ((t :weight bold)))
;; '(cfw:face-select ((t :background "#2f2f2f")))
'(cfw:face-toolbar ((t :foreground "Steelblue4" :background "Steelblue4")))
'(cfw:face-toolbar-button-off ((t :weight bold)))
'(cfw:face-toolbar-button-on ((t :weight bold))))
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal
@ -2135,7 +2155,7 @@ Let's also use an automatic garbage collector while idle to make better input.
:config :config
(setq gcmh-idle-delay 5 (setq gcmh-idle-delay 5
gcmh-high-cons-threshold (* 128 1024 1024) ; 128mb gcmh-high-cons-threshold (* 128 1024 1024) ; 128mb
gcmh-verbose t)) gcmh-verbose nil))
#+end_src #+end_src
** Logging ** Logging

50
init.el
View file

@ -39,19 +39,18 @@
(defun chris/set-transparency () (defun chris/set-transparency ()
"Set the frame to be transparent on Wayland compositors" "Set the frame to be transparent on Wayland compositors"
(if (string-search "wayland" x-display-name) (if (string-search "wayland" x-display-name)
(set-frame-parameter (selected-frame) 'alpha '(100 . 100)) ((set-frame-parameter (selected-frame) 'alpha '(100 . 100))
(set-frame-parameter (selected-frame) 'undecorated t) (set-frame-parameter (selected-frame) 'undecorated t)
(add-to-list 'default-frame-alist '(undecorated . t)) (add-to-list 'default-frame-alist '(undecorated . t))
(add-to-list 'default-frame-alist '(alpha . (100 . 100))))) (add-to-list 'default-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(alpha . (100 . 100))))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
(lambda (frame) (lambda (frame)
(with-selected-frame frame (with-selected-frame frame
(chris/set-font-faces) (chris/set-font-faces)))
(chris/set-transparency))) (chris/set-font-faces)))
(chris/set-font-faces))
(chris/set-transparency))
(setq display-line-numbers-type 'relative) (setq display-line-numbers-type 'relative)
(global-display-line-numbers-mode +1) (global-display-line-numbers-mode +1)
@ -731,6 +730,7 @@ vertically."
"/home/chris/org/ministry_team.org" "/home/chris/org/ministry_team.org"
"/home/chris/org/todo/todo.org" "/home/chris/org/todo/todo.org"
"/home/chris/org/newsletter.org" "/home/chris/org/newsletter.org"
"/home/chris/org/archive.org"
"/home/chris/org/nvtfc_social_media.org" "/home/chris/org/nvtfc_social_media.org"
"/home/chris/org/lessons/") "/home/chris/org/lessons/")
org-id-method 'ts) org-id-method 'ts)
@ -770,7 +770,7 @@ vertically."
(setq org-agenda-window-setup 'other-frame) (setq org-agenda-window-setup 'other-frame)
(defun chris/org-agenda-awesome () (defun chris/org-agenda ()
"create a window in AwesomeWM that houses my org-agenda" "create a window in AwesomeWM that houses my org-agenda"
(interactive) (interactive)
(org-agenda-list)) (org-agenda-list))
@ -1224,6 +1224,25 @@ If on a:
(cfw:ical-create-source (cfw:ical-create-source
"Outlook" "https://outlook.office365.com/owa/calendar/62a0d491bec4430e825822afd2fd1c01@tfcconnection.org/9acc5bc27ca24ce7a900c57284959f9d8242340735661296952/S-1-8-2197686000-2519837503-3687200543-3873966527/reachcalendar.ics" "Yellow") ; Outlook Calendar "Outlook" "https://outlook.office365.com/owa/calendar/62a0d491bec4430e825822afd2fd1c01@tfcconnection.org/9acc5bc27ca24ce7a900c57284959f9d8242340735661296952/S-1-8-2197686000-2519837503-3687200543-3873966527/reachcalendar.ics" "Yellow") ; Outlook Calendar
))) )))
(custom-set-faces
'(cfw:face-title ((t (:weight bold :height 2.0 :inherit fixed-pitch))))
'(cfw:face-header ((t (:slant italic :weight bold))))
'(cfw:face-sunday ((t :weight bold)))
'(cfw:face-saturday ((t :weight bold)))
'(cfw:face-holiday ((t :weight bold)))
;; '(cfw:face-grid ((t :foreground "DarkGrey")))
;; '(cfw:face-default-content ((t :foreground "#bfebbf")))
;; '(cfw:face-periods ((t :foreground "cyan")))
'(cfw:face-day-title ((t :background nil)))
'(cfw:face-default-day ((t :weight bold :inherit cfw:face-day-title)))
'(cfw:face-annotation ((t :inherit cfw:face-day-title)))
'(cfw:face-disable ((t :inherit cfw:face-day-title)))
'(cfw:face-today-title ((t :weight bold)))
'(cfw:face-today ((t :weight bold)))
;; '(cfw:face-select ((t :background "#2f2f2f")))
'(cfw:face-toolbar ((t :foreground "Steelblue4" :background "Steelblue4")))
'(cfw:face-toolbar-button-off ((t :weight bold)))
'(cfw:face-toolbar-button-on ((t :weight bold))))
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal
@ -1615,6 +1634,21 @@ interfere with the default `bongo-playlist-buffer'."
:config :config
(setq gcmh-idle-delay 5 (setq gcmh-idle-delay 5
gcmh-high-cons-threshold (* 128 1024 1024) ; 128mb gcmh-high-cons-threshold (* 128 1024 1024) ; 128mb
gcmh-verbose t)) gcmh-verbose nil))
(setq warning-suppress-types '((comp))) (setq warning-suppress-types '((comp)))
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(org-agenda-files
'("/home/chris/org/todo/inbox.org" "/home/chris/org/todo/notes.org" "/home/chris/org/repetition.org" "/home/chris/org/tfc_plans.org" "/home/chris/org/ministry_team.org" "/home/chris/org/todo/todo.org" "/home/chris/org/newsletter.org" "/home/chris/org/archive.org" "/home/chris/org/nvtfc_social_media.org" "/home/chris/org/lessons/last_night_2021.org" "/home/chris/org/lessons/lesson_10_saul_to_paul.org" "/home/chris/org/lessons/lesson_11_peter_with_the_gentiles.org" "/home/chris/org/lessons/lesson_12_james_peter_herod.org" "/home/chris/org/lessons/lesson_13_overview_of_missions_and_prayer_stations.org" "/home/chris/org/lessons/lesson_13_overview_of_missions_prayer_stations.org" "/home/chris/org/lessons/lesson_14_jerusalem_council.org" "/home/chris/org/lessons/lesson_15_singing_praising_and_repentant_jailers.org" "/home/chris/org/lessons/lesson_16_dismantling_idols.org" "/home/chris/org/lessons/lesson_17_gospel_of_paul_s_3rd_mission.org" "/home/chris/org/lessons/lesson_18_paul_and_the_shipwreck.org" "/home/chris/org/lessons/lesson_19_paul_s_journey_to_rome.org" "/home/chris/org/lessons/lesson_1_context_2020_21.org" "/home/chris/org/lessons/lesson_20_wrap_up.org" "/home/chris/org/lessons/lesson_4_fellowship_of_believers_2020_21.org" "/home/chris/org/lessons/lesson_6_peter_and_john_3_4.org" "/home/chris/org/lessons/lesson_7_persecuted_church_2020_21.org" "/home/chris/org/lessons/lesson_9_phillip_and_the_eunuch.org"))
'(pdf-misc-print-program "/usr/bin/lpr" t)
'(pdf-misc-print-program-args '("-o media=Letter" "-o fitplot") t))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)