contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[org] set up link comments, disable EXWM code blocks for literate-elisp

This commit is contained in:
contrapunctus 2021-11-22 18:32:31 +05:30
parent 123cc7c422
commit 019c53b08e
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
init.org
View File

@ -1,6 +1,6 @@
#+TODO: TODO WIP WISH CLEANUP FIXME REVIEW |
#+OPTIONS: use-property-inheritance:t
#+PROPERTY: header-args :load yes :tangle init-org.el
#+PROPERTY: header-args :load yes :tangle init-org.el :comments link
=org-babel-tangle= takes nearly 27 seconds to tangle this file, at the time of writing. So for a brief while I used this sed script instead -
# eval: (progn (make-local-variable 'after-save-hook) (add-hook 'after-save-hook (lambda () (start-process-shell-command "sed-tangle" "sed-tangle" "sed -n -e '/#+BEGIN_SRC emacs-lisp$/,/#+END_SRC$/{//!p;}' init.org > init.el"))))
@ -92,10 +92,11 @@ This needs to be before =boon=/=exwm=, or you get a "failed to define function i
#+END_SRC
* exwm :disabled:
:PROPERTIES:
:literate-load: no
:header-args: :load no :tangle no
:END:
#+BEGIN_SRC emacs-lisp
#+BEGIN_SRC emacs-lisp :load no
(setq exwm-input-global-keys
'(([?\C-1] . select-window-1)
([?\C-2] . select-window-2)
@ -121,7 +122,7 @@ This needs to be before =boon=/=exwm=, or you get a "failed to define function i
([?\s-v] . exwm-input-toggle-keyboard)))
#+END_SRC
Use window title for buffer names.
#+BEGIN_SRC emacs-lisp
#+BEGIN_SRC emacs-lisp :load no
(require 'exwm)
(add-hook 'exwm-update-title-hook
(lambda ()
@ -130,7 +131,7 @@ Use window title for buffer names.
#+END_SRC
** Helpers
A less repetitive way to start processes. Also enables Boon in the process buffer, so I can easy navigate it, copy text in it, or switch away from it.
#+BEGIN_SRC emacs-lisp
#+BEGIN_SRC emacs-lisp :load no
(defun my-start-process (program &optional name &rest args)
"Run PROGRAM with ARGS in buffer NAME."
(interactive "P")
@ -141,7 +142,7 @@ A less repetitive way to start processes. Also enables Boon in the process buffe
#+END_SRC
This is useful even without EXWM - switching does not work (...yet?), but I can launch apps via Hydra, and the output goes into the familiar environment of an Emacs buffer.
#+BEGIN_SRC emacs-lisp
#+BEGIN_SRC emacs-lisp :load no
(defun my-start-app-or-switch (program &optional class-re title-re name &rest args)
"Switch to EXWM buffer matching CLASS-RE or TITLE-RE, or run PROGRAM with ARGS.
NAME is the name of the process and its buffer."
@ -162,7 +163,7 @@ NAME is the name of the process and its buffer."
#+END_SRC
** Startup programs
#+BEGIN_SRC emacs-lisp
#+BEGIN_SRC emacs-lisp :load no
(my-start-process (expand-file-name "~/bin/kmonad") "kmonad" (expand-file-name "~/kmonad-tvs.kbd"))
(my-start-process (expand-file-name "~/bin/kmonad") "kmonad" (expand-file-name "~/kmonad-legion.kbd"))
(my-start-process "transmission-gtk")