              (set-window-start w2 s1)
              (setq i (1+ i)))))))
 
-;; Source: http://www.whattheemacsd.com/
+;; http://www.whattheemacsd.com/
 (defun delete-current-buffer-file ()
   "Deletes file connected to current buffer and kills buffer."
   (interactive)

    ;; distinguishable.
    (setq uniquify-buffer-name-style 'post-forward)))

;; Source: http://www.emacswiki.org/emacs/RecentFiles
(use-package recentf
  :config
  (progn

        (set-window-configuration modi/toggle-one-window--window-configuration)
        (switch-to-buffer modi/toggle-one-window--buffer-name)))))

;; https://tsdh.wordpress.com/2015/03/03/swapping-emacs-windows-using-dragndrop/
(defun th/swap-window-buffers-by-dnd (drag-event)
  "Swaps the buffers displayed in the DRAG-EVENT's start and end window."
  (interactive "e")
  (let ((start-win (cl-caadr drag-event))
        (end-win   (cl-caaddr drag-event)))
    (when (and (windowp start-win)
               (windowp end-win)
               (not (eq start-win end-win))
               (not (memq (minibuffer-window)
                          (list start-win end-win))))
      (let ((bs (window-buffer start-win))
            (be (window-buffer end-win)))
        (unless (eq bs be)
          (set-window-buffer start-win be)
          (set-window-buffer end-win bs))))))

;; Key bindings
(bind-keys
 :map modi-mode-map
