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

some keybindings for org and better wayland emacs

Browse source
This commit is contained in:
Chris Cochrun 2021-08-24 13:12:37 -05:00
parent f9454c847b
commit 40ad9fe1c1
2 changed files with 14 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
README.org
View file

@ -103,11 +103,12 @@ 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)))))) (add-to-list 'initial-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(undecorated . t)))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -1204,7 +1205,10 @@ Part of this config includes some special capture templates for my work as a you
"RET" 'chris/org-dwim-at-point "RET" 'chris/org-dwim-at-point
"gC" 'chris/org-columns-view "gC" 'chris/org-columns-view
"ge" 'org-edit-src-code "ge" 'org-edit-src-code
"t" 'org-todo) "t" 'org-todo
"C-i" 'completion-at-point)
('insert org-mode-map
"C-i" 'completion-at-point)
('normal 'org-src-mode-map ('normal 'org-src-mode-map
"q" 'org-edit-src-abort)) "q" 'org-edit-src-abort))
#+end_src #+end_src

25
init.el
View file

@ -39,11 +39,12 @@
(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)))))) (add-to-list 'initial-frame-alist '(alpha . (100 . 100)))
(add-to-list 'initial-frame-alist '(undecorated . t)))))
(if (daemonp) (if (daemonp)
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
@ -807,7 +808,10 @@ vertically."
"RET" 'chris/org-dwim-at-point "RET" 'chris/org-dwim-at-point
"gC" 'chris/org-columns-view "gC" 'chris/org-columns-view
"ge" 'org-edit-src-code "ge" 'org-edit-src-code
"t" 'org-todo) "t" 'org-todo
"C-i" 'completion-at-point)
('insert org-mode-map
"C-i" 'completion-at-point)
('normal 'org-src-mode-map ('normal 'org-src-mode-map
"q" 'org-edit-src-abort)) "q" 'org-edit-src-abort))
@ -1637,18 +1641,3 @@ interfere with the default `bongo-playlist-buffer'."
gcmh-verbose nil)) 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.
)