List all projects

Author: patrick.joerg

README.md

@@ -38,7 +38,7 @@ tn --done => all done issues
 tn -p CAD => only open issues from Project CAD
 tn --done -c team => only done issues from context team
 tn -p CAD -c team => Combinations allowed
-tn -l => List all @contexts
+tn -l @ => List all @contexts or "+" for projects
 ```
 Project and context can be multiple like -p BIM -p CAD
 
@@ -64,9 +64,10 @@ Give it the directory to search for and a list of directories to exclude.
 - [x] Support - [o] for half done indented lists
 - [x] Take the project from the title of the last h1 upwards the file
 
-- [x] Give it some colors and emojis 🤡  
-- [ ] Make searchpaths a list
+- [x] Give it some colors and emojis 🤡
 - [x] Give the possibility to exclude subdirectories from search TODO OS "Error 123" on windows
+- [x] Give back all projects or contexts like: tn --list -p
+- [ ] Make searchpaths a list
 - [ ] Add some tests from http://www.nushell.sh/book/testing.html 
 - [ ] Add a config for depth to show only unindented items per default
 - [ ] Group issues by files where they came from
@@ -75,7 +76,6 @@ Give it the directory to search for and a list of directories to exclude.
       the file. Then +project should give a combination of the two,
       or could even be used for something else.
 
-- [ ] Give back all projects or contexts like: tn --list -p
 - [ ] Make a filter for @maybes or configurable words.
 - [ ] Create a Link directly to the file and open it in $EDITOR
       see otn function, after that

tn.nu

@@ -6,11 +6,12 @@ export def td [
     --project(-p): string = "" # All todos within a +project
     --context(-c): string  = "" # All todos within a @context
     --retro(-r): string = "" # A retrospective for todos in git history
-    --list(-l) # List all @contexts used
+    --list(-l): string = "" # List all @contexts or +projects used.
     --version(-v) # Version of todo-nu
         ] {
 
-   let generate_todos = (($retro | is-empty) and ($list == false))
+   let generate_todos = (($retro | is-empty) and ($list | is-empty))
+   echo $list
    let list_contexts = ($retro | is-empty)
 
     # The path to parse
@@ -21,15 +22,21 @@ export def td [
     let EXCLUDEDIR = $CONFIG.exclude
 
      if $version {
-         let version = "0.0.3"
+         let version = "0.0.4"
          $version
       } else if $generate_todos {
          let td = generate_todos $TODO_FILE_PATH $EXCLUDEDIR $FILTER $project $context
          $td
       } else if $list_contexts {
-         let td = generate_todos $TODO_FILE_PATH $EXCLUDEDIR $FILTER $project $context
-         let l = list_contexts $td
-         $l
+           if $list == "@" {
+             let td = generate_todos $TODO_FILE_PATH $EXCLUDEDIR $FILTER $project $context
+             let l = list_contexts $td
+             $l
+          } else if $list == "+" {
+             let td = generate_todos $TODO_FILE_PATH $EXCLUDEDIR $FILTER $project $context
+             let l = list_projects $td
+             $l
+           } else {"Either specify "@" for contexts or "+" for projects"}
       } else {
          let r = (get_retrospective $retro $TODO_FILE_PATH $FILTER)
          $r
@@ -43,7 +50,6 @@ def generate_todos [todo_file_path: path,
                     context: string] {
          let excludes = (generate_excludes_list $todo_file_path $excludedir)
          let todos = (filter_todos $todo_file_path $filter $excludes)
-         # let filtered = (filter_excludes $todos $EXCLUDEDIR)
          # Filter by project and context
          let tn = (get_project_context_filter $todos $project $context)
          # Parse it to a table
@@ -62,6 +68,17 @@ def list_contexts [todos: table] {
     $contexts | uniq --count | compact | filter {|x| $x.value != ""}
 }
 
+# Get a list of all +projects beeing used. Although a project should actually be a file.
+# One approach could be to count both the appearences of "+" and the same word as filename
+#Not of much need for now.
+def list_projects [todos: table] {
+    # Get all strings with the pattern "+something", but not if its a code in backticks
+    # Doesn't catch multiline code blocks containing this pattern inside.
+    let projects = ($todos | get item | each {|e| parse --regex '(`[^`]*`)|\+([^\s]+)' |
+                    get capture1 | flatten}) | flatten
+    $projects | uniq --count | compact | filter {|x| $x.value != ""}
+}
+
 def get_list_filter [all: bool, done: bool] {
 
   if ($all and $done) {