[css2] Added function to view one issue only

--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%40191

Author: ianbjacobs

css2/bin/Attic/todo

@@ -55,23 +55,28 @@ quick_help ()
   pr
 }
 
+print_issue ()
+{
+     pr "Number          : $i"
+     pr "Priority        : $prio"
+     pr "Description     : $desc"
+     pr "Reference       : $ref"
+     pr "Owner           : $own"
+     pr "Archived on     : $date1"
+     pr "Resolved on     : $date2"
+     pr "Comments        : $comment"
+     pr "Resolution      : $res"
+     pr
+}
+
 list_issues ()
 {
   (
     IFS='	'
     i=0
     while read who prio desc ref own date1 date2 comment res; do
       i=`expr $i + 1`
-      pr "Number          : $i"
-      pr "Priority        : $prio"
-      pr "Description     : $desc"
-      pr "Reference       : $ref"
-      pr "Owner           : $own"
-      pr "Archived on     : $date1"
-      pr "Resolved on     : $date2"
-      pr "Comments        : $comment"
-      pr "Resolution      : $res"
-      pr
+      print_issue
     done
   ) < $ISSUES
 }
@@ -83,22 +88,35 @@ list_unresolved ()
     i=0
     while read who prio desc ref own date1 date2 comment res; do
       i=`expr $i + 1`
-      if [ "$res" = "-" ]; then
-	pr "Number          : $i"
-	pr "Priority        : $prio"
-	pr "Description     : $desc"
-	pr "Reference       : $ref"
-	pr "Owner           : $own"
-	pr "Archived on     : $date1"
-	pr "Resolved on     : $date2"
-	pr "Comments        : $comments"
-	pr "Resolution      : $res"
-	pr
-      fi
+      if [ "$res" = "-" ]; then print_issue; fi
     done
   ) < $ISSUES
 }
 
+
+list_issue ()
+{
+  if [ -z "$num" ]; then
+    pr "Number: \c"
+    read num
+  fi
+  case "$num" in
+    [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) ;;
+    *) pr "Error: not a valid issue number: $num" >&2; return 2;;
+  esac
+  (
+    IFS='	'
+    i=0
+    while read who prio desc ref own date1 date2 comment res1; do
+      i=`expr $i + 1`
+      if [ "$i" = "$num" ]; then
+	print_issue
+        exit 0
+      fi
+    done < $ISSUES
+  )
+}
+
 generate_html ()
 {
   echo "<table cellpadding=0 cellspacing=0 border=0>"
@@ -344,6 +362,7 @@ interactive ()
     pr "Choose one of:"
     while [ "$reply" = "" ]; do
       pr "	l	list the issues"
+      pr "	i	list a specific issue"
       pr "	t	list only unresolved issues"
       pr "	a	add an issue"
       pr "	c	add a comment to an issue"
@@ -356,6 +375,7 @@ interactive ()
       read reply
       case "$reply" in
 	l) list_issues | $PAGER;;
+	i) list_issue ;;
 	a) ref=; desc=; add_issue;;
 	c) num=; comment=; add_comment;;
 	o) num=; own=; add_owner;;
@@ -378,6 +398,7 @@ if [ $# = 0 ]; then
 else
   case "$1" in
     -l) list_issues;;
+    -i) num=$2; shift 2; list_issue;;
     -a) ref=$2; shift 2; desc="$*"; add_issue;;
     -c) num=$2; shift 2; comment="$*"; add_comment;;
     -o) num=$2; shift 2; own="$*"; add_owner;;

css2/bin/todo

@@ -55,23 +55,28 @@ quick_help ()
   pr
 }
 
+print_issue ()
+{
+     pr "Number          : $i"
+     pr "Priority        : $prio"
+     pr "Description     : $desc"
+     pr "Reference       : $ref"
+     pr "Owner           : $own"
+     pr "Archived on     : $date1"
+     pr "Resolved on     : $date2"
+     pr "Comments        : $comment"
+     pr "Resolution      : $res"
+     pr
+}
+
 list_issues ()
 {
   (
     IFS='	'
     i=0
     while read who prio desc ref own date1 date2 comment res; do
       i=`expr $i + 1`
-      pr "Number          : $i"
-      pr "Priority        : $prio"
-      pr "Description     : $desc"
-      pr "Reference       : $ref"
-      pr "Owner           : $own"
-      pr "Archived on     : $date1"
-      pr "Resolved on     : $date2"
-      pr "Comments        : $comment"
-      pr "Resolution      : $res"
-      pr
+      print_issue
     done
   ) < $ISSUES
 }
@@ -83,22 +88,35 @@ list_unresolved ()
     i=0
     while read who prio desc ref own date1 date2 comment res; do
       i=`expr $i + 1`
-      if [ "$res" = "-" ]; then
-	pr "Number          : $i"
-	pr "Priority        : $prio"
-	pr "Description     : $desc"
-	pr "Reference       : $ref"
-	pr "Owner           : $own"
-	pr "Archived on     : $date1"
-	pr "Resolved on     : $date2"
-	pr "Comments        : $comments"
-	pr "Resolution      : $res"
-	pr
-      fi
+      if [ "$res" = "-" ]; then print_issue; fi
     done
   ) < $ISSUES
 }
 
+
+list_issue ()
+{
+  if [ -z "$num" ]; then
+    pr "Number: \c"
+    read num
+  fi
+  case "$num" in
+    [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) ;;
+    *) pr "Error: not a valid issue number: $num" >&2; return 2;;
+  esac
+  (
+    IFS='	'
+    i=0
+    while read who prio desc ref own date1 date2 comment res1; do
+      i=`expr $i + 1`
+      if [ "$i" = "$num" ]; then
+	print_issue
+        exit 0
+      fi
+    done < $ISSUES
+  )
+}
+
 generate_html ()
 {
   echo "<table cellpadding=0 cellspacing=0 border=0>"
@@ -344,6 +362,7 @@ interactive ()
     pr "Choose one of:"
     while [ "$reply" = "" ]; do
       pr "	l	list the issues"
+      pr "	i	list a specific issue"
       pr "	t	list only unresolved issues"
       pr "	a	add an issue"
       pr "	c	add a comment to an issue"
@@ -356,6 +375,7 @@ interactive ()
       read reply
       case "$reply" in
 	l) list_issues | $PAGER;;
+	i) list_issue ;;
 	a) ref=; desc=; add_issue;;
 	c) num=; comment=; add_comment;;
 	o) num=; own=; add_owner;;
@@ -378,6 +398,7 @@ if [ $# = 0 ]; then
 else
   case "$1" in
     -l) list_issues;;
+    -i) num=$2; shift 2; list_issue;;
     -a) ref=$2; shift 2; desc="$*"; add_issue;;
     -c) num=$2; shift 2; comment="$*"; add_comment;;
     -o) num=$2; shift 2; own="$*"; add_owner;;