     :after zone)
 
   ;; A Nyan zone. Well, just because.
-  ;; (use-package zone-nyan :ensure t
-  ;;   :after zone
-  ;;   :config
-  ;;   (when (window-system)
-  ;;     (validate-setq zone-programs (vconcat [zone-nyan] zone-programs))))
+  (use-package zone-nyan :ensure t
+    :after zone
+    :config
+    (when (window-system)
+      (validate-setq zone-programs (vconcat [zone-nyan] zone-programs))))
 
   (use-package discover-my-major :ensure t)
 

  (use-package zone
    :config
    (zone-when-idle 120)
    (validate-setq zone-programs
                   [zone-pgm-whack-chars
                    zone-pgm-rotate
                    zone-pgm-drip
                    zone-pgm-martini-swan-dive]))

  (use-package zone-words
    :after zone
    :config
    (validate-setq zone-programs
                   [zone-words]))

  ;; ;; Locomotives zone.
  ;; (use-package zone-sl :ensure t

      (move-end-of-line nil)
      (newline-and-indent))))

(defun ar/open-line ()
  "Insert an empty line after current line.  Keep existing position."
  (interactive)
  (save-mark-and-excursion
   (end-of-line)
   (newline)))

(bind-key "C-o" #'ar/open-line)

;; From https://github.com/ocodo/.emacs.d/blob/master/custom/handy-functions.el
(defun ar/join-line-or-lines-in-region ()
