 (setq read-file-name-completion-ignore-case nil)
 (setq uniquify-recentf-func 'uniquify-recentf-ivy-recentf-open)
 (defun harmsway-dabbrev-complete-at-point ()
+  "Complete dabbrev at point."
   (dabbrev--reset-global-variables)
   (let* ((abbrev (dabbrev--abbrev-at-point))
          (cands (dabbrev--find-all-expansions abbrev t))
          (bnd (bounds-of-thing-at-point 'symbol)))
     (list (car bnd) (cdr bnd) cands)))
 (defun harmsway-add-ivy-completion-at-point ()
+  "Add completion at point for ivy."
   (require 'dabbrev)
   (add-to-list 'completion-at-point-functions 'harmsway-dabbrev-complete-at-point))
 ;(add-hook 'after-init-hook 'harmsway-add-ivy-completion-at-point)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; flyspell ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun my/toggle-flyspell-prog-mode ()
  "Toggle flyspell-prog-mode in current buffer."
  (interactive)
  (if flyspell-mode
      (turn-off-flyspell)

;; Copyright (C) 2015-2018  Dan Harms (dharms)
;; Author: Dan Harms <danielrharms@gmail.com>
;; Created: Friday, February 27, 2015
;; Modified Time-stamp: <2018-03-20 07:33:19 dharms>
;; Modified by: Dan Harms
;; Keywords:

