** Writeroom Mode
#+BEGIN_SRC emacs-lisp
(use-package writeroom-mode
- :config (add-hook 'writeroom-mode-hook 'auto-fill-mode)
+ :config
+ (defun my/writing-mode ()
+ "Start my writing mode; enable visual-line-mode and auto-fill-mode"
+ (interactive)
+ (if writeroom-mode
+ (progn
+ (writeroom-mode -1)
+ (visual-line-mode -1)
+ (auto-fill-mode -1)
+ (visual-fill-column-mode -1)
+ )
+ (visual-line-mode 1)
+ (auto-fill-mode 1)
+ (visual-fill-column-mode 1)
+ (writeroom-mode 1))
+ )
)
#+END_SRC
** GhostText/Atomic Chrome