multiple deft #emacs

deft-in-dir.el

(defun deft-in-dir (directory &optional buffer)
  (interactive "Ddir: ")
  (setq buffer (or buffer "*deft-in-dir*"))

  (switch-to-buffer (or buffer "*deft-in-dir*"))

  ;; load deft if not loaded yet
  (unless (and
           (boundp 'deft-directory)
           (boundp 'deft-buffer))
    (require 'deft))

  ;; must bind because deft-mode calls kill-all-local-variables
  (unless (eq major-mode 'deft-mode)
    (let ((deft-directory directory)
          (deft-buffer buffer))
      (deft-mode))
    (make-local-variable 'deft-directory)
    (make-local-variable 'deft-buffer)
    (setq deft-directory directory deft-buffer buffer)))

;; sample
(defun snippets ()
  (interactive)
  (deft-in-dir "~/.snippets" "*snippets*"))