Too lazy for a commit message. Sue me!

core/lib/defuns-ui.el

@@ -15,8 +15,38 @@
   (interactive "<!>")
   (if bang
       (writeroom-mode (if writeroom-mode -1 1))
-    (set-frame-parameter nil 'fullscreen
-                         (when (not (frame-parameter nil 'fullscreen)) 'fullboth))))
+    (set-frame-parameter nil 'fullscreen (if (not (frame-parameter nil 'fullscreen)) 'fullboth))))
+
+;;;###autoload
+(defvar narf--write-mode nil)
+(defun narf:toggle-write-mode ()
+  (interactive)
+  (require 'writeroom-mode)
+  (let ((writeroom-width 100)
+        (writeroom-extra-line-spacing 12))
+    (writeroom-mode (if writeroom-mode -1 1))
+    (setq narf--write-mode writeroom-mode)
+
+    ;; (setq truncate-lines (not narf--write-mode))
+    ;; (setq word-wrap narf--write-mode)
+    (variable-pitch-mode narf--write-mode)
+
+    (if narf--write-mode
+        (narf/load-theme 'solarized-light)
+      (narf/reset-theme))
+
+    (fringe-mode (if narf--write-mode 0 '(3 . 6)))
+    (auto-fill-mode (if narf--write-mode -1 +1))
+    (text-scale-set (if narf--write-mode 2.5 0))
+    (scroll-bar-mode (if narf--write-mode 1 -1))
+
+    (when IS-MAC
+      (setq ;; sane trackpad/mouse scroll settings
+       mac-mouse-wheel-smooth-scroll narf--write-mode
+       mouse-wheel-progressive-speed narf--write-mode))
+
+    (when (eq major-mode 'org-mode)
+      (org-indent-mode (if narf--write-mode -1 1)))))
 
 (defvar narf--big-mode nil)
 ;;;###autoload
@@ -28,7 +58,15 @@
 ;;;###autoload
 (defun narf/reset-theme ()
   (interactive)
-  (load-theme (if window-system narf-theme narf-term-theme) t))
+  (narf/load-theme 'narf-dark))
+
+;;;###autoload
+(defun narf/load-theme (theme)
+  (interactive)
+  (mapc (lambda (th)
+          (when (custom-theme-enabled-p th) (disable-theme th)))
+        custom-enabled-themes)
+  (load-theme theme t))
 
 ;;;###autoload
 (defun narf/default-font ()
@@ -40,5 +78,14 @@
   (interactive)
   (set-frame-font narf-big-font))
 
+;;;###autoload
+(defun narf/show-as (how &optional pred)
+  (let* ((beg (match-beginning 1))
+         (end (match-end 1))
+         (ok (or (not pred) (funcall pred beg end))))
+    (when ok
+      (compose-region beg end how 'decompose-region))
+    nil))
+
 (provide 'defuns-ui)
 ;;; defuns-ui.el ends here