howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Integrate the writeroom

Browse source 
A limited UI with the idea of removing distractions.
This commit is contained in:
Howard Abrams 2021-12-29 18:52:00 -08:00
parent bc6e6eea50
commit 14e3d5e9d9
1 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
ha-org.org
View file

@ -69,6 +69,7 @@ Org is an important part of my Emacs world, and with a lot of customization (eve
; but uses a trick to make it ; but uses a trick to make it
; appear indented. ; appear indented.
sentence-end-double-space nil ; I jump around by sentences, but seldom have two spaces.
;; Speed Commands: If point is at the beginning of a headline or code ;; Speed Commands: If point is at the beginning of a headline or code
;; block in org-mode, single keys do fun things. See ;; block in org-mode, single keys do fun things. See
;; org-speed-command-help for details (or hit the ? key at a headline). ;; org-speed-command-help for details (or hit the ? key at a headline).
@ -430,9 +431,27 @@ The key-bindings, keystrokes, key-connections work well with just ~M-T~ (notice
The [[https://github.com/bnbeckwith/writegood-mode][writegood-mode]] highlights passive and weasel words as typed. Shame it doesn't check for dangled prepositions. The [[https://github.com/bnbeckwith/writegood-mode][writegood-mode]] highlights passive and weasel words as typed. Shame it doesn't check for dangled prepositions.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package writegood-mode (use-package writegood-mode
:hook ((org-mode . writegood-mode))) :hook ((org-mode . writegood-mode)))
#+END_SRC #+END_SRC
** Writeroom
For a complete focused, /distraction-free/ environment, for writing or just concentrating, I'm using [[https://github.com/joostkremers/writeroom-mode][Writeroom-mode]]:
#+BEGIN_SRC emacs-lisp
(use-package writeroom-mode
:hook (writeroom-mode-disable . winner-undo)
:config
(ha-leader "t W" '("writeroom" . writeroom-mode))
(ha-leader :keymaps 'writeroom-mode-map
"=" '("adjust width" . writeroom-adjust-width)
"<" '("decrease width" . writeroom-decrease-width)
">" '("increase width" . writeroom-increase-width))
:bind (:map writeroom-mode-map
("C-M-<" . writeroom-decrease-width)
("C-M->" . writeroom-increase-width)
("C-M-=" . writeroom-adjust-width)))
#+END_SRC
* Technical Artifacts :noexport: * Technical Artifacts :noexport:
Let's provide a name so that the file can be required: Let's provide a name so that the file can be required: