Move {core,modules}/lib/*.el to {core,modules}/defuns/

core/lib/defuns-project.el

@@ -1,51 +0,0 @@
-;;; defuns-project.el
-
-;;;###autoload
-(defun narf/project-root (&optional strict-p)
-  "Get the path to the root of your project. Uses `narf-project-root-files' to
-determine if a directory is a project."
-  (let (projectile-require-project-root strict-p) (projectile-project-root))
-  ;; (let ((home (file-truename "~"))
-  ;;       (path default-directory))
-  ;;   (unless (file-name-absolute-p path)
-  ;;     (setq path (expand-file-name path)))
-  ;;   (catch 'found
-  ;;     (ignore-errors
-  ;;       (f-traverse-upwards
-  ;;        (lambda (path)
-  ;;          (let ((path (file-truename path)))
-  ;;            (if (file-equal-p home path)
-  ;;                (throw 'found (if strict-p nil default-directory))
-  ;;              (dolist (file narf-project-root-files)
-  ;;                (when (file-exists-p (expand-file-name file path))
-  ;;                  (throw 'found path))))))
-  ;;        path))
-  ;;     default-directory))
-  )
-
-;;;###autoload
-(defun narf/project-has-files (files &optional root)
-  "Return non-nil if `file' exists in the project root."
-  (let ((root (or root (narf/project-root)))
-        (files (if (listp files) files (list files)))
-        found-p file)
-    (while (and files (not found-p))
-      (setq file (pop files))
-      (setq found-p (file-exists-p (narf/project-path-to file root))))
-    found-p))
-
-;;;###autoload
-(defun narf/project-path-to (file &optional root)
-  (let ((root (or root (narf/project-root))))
-    (expand-file-name file root)))
-
-;;;###autoload
-(defun narf/project-name (&optional root)
-  (file-name-nondirectory (directory-file-name (or root (narf/project-root)))))
-
-;;;###autoload
-(defun narf/project-p ()
-  (not (null (narf/project-root t))))
-
-(provide 'defuns-project)
-;;; defuns-project.el ends here