Add variable for org directory. First try with add-to-project-list as

an advice to find-file

projectorg.el

@@ -28,12 +28,18 @@
 
 ;;;; Variables
 
-(defvar projectorg-projects-root "/home/maxx/Projects/"
+(defvar projectorg-projects-root ""
   "Where all projects are rooted.
 
 This is the directory where projects are stored.
 Can contain subdirectories.
-The *org* subdirectory contains the notes file for each project, as well as the general notes files and the projects list file.")
+The projectorg-org-dir subdirectory contains the notes file for each project, as well as the general notes files and the projects list file.")
+
+(defvar projectorg-org-dir "org/"
+  "Directory inside projectorg-projects-root containing the org files.
+
+Defaults to \"org\"
+Contains the general notes files, the projects list files and each project notes file.")
 
 ;;;; Functions
 
@@ -68,17 +74,16 @@ It is an org file, with the same name as the project (including subdirectories),
         (projectorg/go-to-inbox)
       (find-file notes-file))))
 
-(defun projectorg/add-to-project-list ()
+(defun projectorg/add-to-project-list (FILENAME &optional WILDCARDS)
   "Add the currently visited project to the projectile list."
-  (let ((notes-file (projectorg/notes-file)))
-    (unless (or (and (eq projectile-require-project-root 'prompt)
-                     (not (projectile-project-p)))
-                (not (file-exists-p notes-file)))
-      (projectile-add-known-project (projectile-project-p)))))
+  (message FILENAME))
+  ;; (unless (and (eq projectile-require-project-root 'prompt)
+               ;; (not (projectile-project-p)))
+    ;; (projectile-add-known-project (projectile-project-p))))
 
 (defun projectorg/remove-from-project-list ()
   (let ((current-project (projectile-project-name)))
-    (message current-project)) )
+    (message current-project)))
 
 
 (provide 'projectorg)