   (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]))
+    ;; (validate-setq zone-programs
+    ;;                [zone-pgm-whack-chars
+    ;;                 zone-pgm-rotate
+    ;;                 zone-pgm-drip
+    ;;                 zone-pgm-martini-swan-dive])
+    (validate-setq zone-programs []))
 
   (use-package zone-words
     :after zone
     :config
-    (validate-setq zone-programs
-                   [zone-words]))
+    (validate-setq zone-programs (vconcat [zone-nyan] zone-programs)))
 
   ;; ;; Locomotives zone.
   ;; (use-package zone-sl :ensure t

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

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

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

    :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 discover-my-major :ensure t)

