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

  (remove-hook 'ediff-after-quit-hook-internal
               'ediff-restore-windows))
(defadvice ediff-buffers (around ediff-restore-windows activate)
  (setq ediff-last-windows (current-window-configuration))
  (add-hook 'ediff-after-quit-hook-internal 'ediff-restore-windows)
  ad-do-it)

(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)
