From bdf984607ec876f1e124fbd2806d382bc084131c Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 17 Dec 2015 01:45:13 +0100
Subject: Move some functions to viewing library

---
 emacs/.emacs.d/site-lisp/oni-viewing.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'emacs/.emacs.d/site-lisp')

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,12 +26,25 @@
 ;;; Code:
 
 (require 'whitespace)
+(require 'fill-column-indicator)
 
 ;;;###autoload
 (defun oni:make-readable ()
   "Make non-programming buffers a little more readable."
   (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'."
-- 
cgit v1.2.3-54-g00ecf