Move some functions to viewing library

1 files changed, 13 insertions, 0 deletions

diff --git a/emacs/.emacs.d/site-lisp/oni-viewing.el b/emacs/.emacs.d/site-lisp/oni-viewing.el
index 9af6a2f..cbe1fb0 100644
--- a/emacs/.emacs.d/site-lisp/oni-viewing.el
+++ b/emacs/.emacs.d/site-lisp/oni-viewing.el
@@ -26,6 +26,7 @@
 ;;; Code:
 
 (require 'whitespace)
+(require 'fill-column-indicator)
 
 ;;;###autoload
 (defun oni:make-readable ()
@@ -33,6 +34,18 @@
   (setq line-spacing .2))
 
 ;;;###autoload
+(defun oni:maybe-fci-mode ()
+  "Turn on `fci-mode' if there is a filename for the buffer."
+  (when (buffer-file-name)
+    (fci-mode)))
+
+;;;###autoload
+(defun oni:maybe-prettify-symbols-mode (&optional arg)
+  "See of `prettify-symbols-mode' is bound and call it if so."
+  (when (fboundp 'prettify-symbols-mode)
+    (prettify-symbols-mode arg)))
+
+;;;###autoload
 (defun oni:show-trailing-whitespace ()
   "Function for `markdown-mode-hook'."
   (setq-local whitespace-style '(face trailing)))