          (message "File path copied: %s" -fpath) -fpath)))))
 (define-key global-map (kbd "C-c 1") 'vvv/copy-file-path)
 
+;;; - https://blog.chmouel.com/2016/09/07/dealing-with-yaml-in-emacs/
+;;; - https://stackoverflow.com/a/4459159/136238
+(defun aj-toggle-fold ()
+  "Toggle fold all lines larger than indentation on current line"
+  (interactive)
+  (let ((col 1))
+    (save-excursion
+      (back-to-indentation)
+      (setq col (1+ (current-column)))
+      (set-selective-display
+       (if selective-display nil (or col 1))))))
+(define-key global-map (kbd "C-c $") 'aj-toggle-fold)
+
+;;; ------------------------------------------------------------------
+;;; http://nullprogram.com/blog/2010/10/06/
+
+(defun set-window-width (n)
+  "Set the selected window's width."
+  (adjust-window-trailing-edge (selected-window) (- n (window-width)) t))
+
+(defun set-80-columns ()
+  "Set the selected window to 80 columns."
+  (interactive)
+  (set-window-width 80))
+(global-set-key (kbd "C-c 8") 'set-80-columns)
+;;; ------------------------------------------------------------------
+
 (when (file-accessible-directory-p "/opt/local/share/info/")
   ;; # Create a `dir' file, if necessary:
   ;; cd /opt/local/share/info


(define-key help-map "A" 'apropos-variable)

(progn ;; Unset unwelcome key bindings.
  (global-unset-key (kbd "s-q"))      ; `save-buffers-kill-emacs'
  (global-unset-key (kbd "s-w"))      ; `delete-frame'
  (global-unset-key "\C-z")           ; `suspend-frame'
  (global-unset-key (kbd "C-x C-z"))  ; `suspend-frame'
  (global-unset-key (kbd "s-:"))      ; `ispell'
  (global-unset-key (kbd "s-g"))      ; `isearch-repeat-forward'
  (global-unset-key (kbd "s-n"))      ; `ns-new-frame'
  (global-unset-key (kbd "s-z"))      ; `undo'
  (global-unset-key "\C-z"))          ; `undo'

(setq confirm-kill-emacs 'yes-or-no-p) ; say "no" to accidental terminations


	 ps-print-header nil
	 ps-multibyte-buffer 'bdf-font-except-latin))

;;; http://www.emacswiki.org/emacs/HideRegion
(let ((fn "~/lib/emacs/hide-region/hide-region.el"))
  (when (file-readable-p fn)
