(defun wearable-show-chords ()
  (interactive)
  (view-file-other-window "~/notebook/wearable/chords"))

(defvar wearable-is-mobile nil "t if user is walking around and wants a wearable-friendly display.")

(defun wearable-toggle-state ()
  (setq wearable-is-mobile (not wearable-is-mobile))
  (if wearable-is-mobile
      (wearable-switch-to-m1)
    (wearable-switch-to-desktop)
    )
  )

(defun wearable-switch-to-m1 ()
  (interactive)
  (set-face-attribute 'default nil :height 190 :foreground "white" :background "black" :family "lucida-typewriter")
  )

(defun wearable-switch-to-desktop ()
  (interactive)
  (set-face-attribute 'default nil :height 80 :foreground "white" :background "black" :family "misc-fixed")
  )