docs and update

Author: George Moutsopoulos

Readme.org

@@ -105,6 +105,17 @@ This does not register an annotator with the ~org-annotate-code-info-alist~. One
 ("i" "Insert file to index" plain #'org-annotate-index-capture-finding-location "%?")
 #+end_src
 You can then start building an index with descriptions of your files in each directory.
+** projects
+To start using
+#+begin_src 
+(require 'org-annotate-index)
+#+end_src
+This will add hierarchical nodes based on the folders and subfolders relative to a projectile root. Besides a custom id that is used for identifying the nodes, a DIR property is also set so that you can use ~org-attach~. To use it with  ~org-capture~ add this to the templates
+#+begin_src 
+("f" "Insert file to index" plain #'org-annotate-projects-capture-finding-location "%?")
+#+end_src
+Alternatively, you can use ~org-annotate-projects-create~. The folders are saved by default in a single ~projects.org~ in the root folder, which you can visit with ~org-annotate-projects-visit-org-file~.
+
 * Similar Packages
 If you know of similar packages, please let me know
  - ~org-annotate-file~ is similar, but ~org-annotate-code~ is presently configurable

org-annotate-projects.el

@@ -20,7 +20,7 @@
 (defcustom org-annotate-projects-org-file "projects.org" "Org file for projects")
 
 (defun org-annotate-projects-get-project-root ()
-  (or org-annotate-projects-root (projectile-project-root)))
+  (expand-file-name (or org-annotate-projects-root (projectile-project-root))))
 
 (defun org-annotate-projects-get-org-file ()
   (concat (org-annotate-projects-get-project-root) "/" org-annotate-projects-org-file))
@@ -35,8 +35,8 @@
 			     (buffer-file-name))
 			    (t
 			     (buffer-file-name))))))
-    (expand-file-name (read-directory-name "Add folder to projects: "  this-dir)
-		      (org-annotate-projects-get-project-root))))
+    (directory-file-name (file-relative-name (read-directory-name "Add folder to projects: "  this-dir)
+		      (org-annotate-projects-get-project-root)))))
 
 (defun org-annotate-code-cumulate-mapconcat (sequence seperator)
   "On the SEQUENCE of strings (a b c) creates (a a/b a/b/c)."
@@ -54,7 +54,7 @@
   (let ((wspfolder (org-annotate-projects-get-folder)))
       (mapcar (lambda (node) (list :id (org-link-make-string (concat "file:" node))
 			       :heading (car (last (split-string node "/")))
-			       :properties (list (cons "DIR" (org-link-make-string (concat "file:" node))))))
+			       :properties (list (cons "DIR"  node))))
 	  (org-annotate-projects-cumulate-mapconcat (split-string wspfolder "/")))))