(defun elscreen-current-directory ()
  (let* ((screen-history  (elscreen-get-conf-list 'screen-history))
         (screen-property (elscreen-get-conf-list 'screen-property))
         (current-screen (car screen-history))
         (property (cadr (assoc current-screen screen-property)))
         (curbuf (marker-buffer (nth 2 property))))
    (elscreen-get-current-directory curbuf)))

(defun non-elscreen-current-directory ()
  (let* ((bufsinfo (cadr (cadr (current-frame-configuration))))
         (bufname-list (assoc-default 'buffer-list bufsinfo)))
    (loop for buf in bufname-list
          for file = (or (buffer-file-name buf)
                         (with-current-buffer buf
                           (when (eq major-mode 'dired-mode)
                             dired-directory)))
          when (buffer-file-name buf)
          return (file-name-directory it))))

(provide 'cde)