* plot
** Configuraciones						   :noexport:
#+TITLE:     plot.org
#+AUTHOR:    OSiRiS Gómez
#+EMAIL:     osiris@gcoop.coop
#+LANGUAGE:  es
#+OPTIONS:   H:3 num:t toc:t \n:nil @:t ::t |:t ^:t -:t f:t *:t TeX:t LaTeX:nil skip:nil d:t tags:not-in-toc
#+INFOJS_OPT: view:nil toc:t ltoc:t mouse:underline buttons:0 path:http://orgmode.org/org-info.js
#+LINK_HOME: index.html
#+STYLE:    <link rel="stylesheet" type="text/css" href="org.css" />
#+EXPORT_EXCLUDE_TAGS: noexport
** tareas por día
   :LOGBOOK:
   CLOCK: [2011-12-29 jue 00:04]--[2011-12-29 jue 02:45] =>  2:41
   CLOCK: [2011-12-28 mié 11:50]--[2011-12-28 mié 13:27] =>  1:37
   CLOCK: [2011-12-26 lun 16:50]--[2011-12-26 lun 19:00] =>  2:10
   CLOCK: [2011-12-16 vie 10:24]--[2011-12-16 vie 13:55] =>  3:31
   :END:

   #+srcname: org-task-by-day
   #+begin_src sh :session :results file
     cd ~/org
     YEAR=$(date +%Y)
     MONTH=$(date +%m)
     DAYS=$(egrep -ho "CLOCK:(.*)$YEAR-$MONTH-[0-9]{2}" *.org | awk '{print $2}' | tr -d "[" | sort -u)
     FILES=$(egrep -l "CLOCK:(.*)$YEAR-$MONTH-[0-9]{2}" *.org | sort -u)
     DAT=org-task-by-day.dat

     echo -n 'dia\t' >$DAT
     for F in $FILES
     do
       echo -n $(basename $F .org)'\tmin\t' >>$DAT
     done
     echo -n '\n' >>$DAT

     for DAY in $DAYS
     do       
       SEP='\t'
       for F in $FILES
       do
         grep "CLOCK: \[$DAY" $F | tr "[]" " " | awk '{split($10,a,":"); print $2,$4,a[1]*60+a[2]}' | sort | while read T
         do
           START=$(echo $T | awk '{print $2}')
           MINUTES=$(echo $T | awk '{print $3}')
           echo $DAY$SEP$START'\t'$MINUTES >>$DAT
         done
         SEP=$SEP'0\t0\t'
       done
     done
     echo $DAT
   #+end_src

   #+results: org-task-by-day
   [[file:org-task-by-day.dat]]

   #+begin_src gnuplot :var data='org-task-by-day.dat' :file org-task-by-day.png
   reset
   #set terminal png size 640, 480
   set terminal png size 1024, 768
   set lmargin 5
   set bmargin 5
   set rmargin 16
   set title "Orgmode Task by Day" font "Inconsolata,10"
   set xdata time
   set ydata time
   set timefmt x "%Y-%m-%d"
   set timefmt y "%H:%M"
   set format y "%H:%M"
   set format x "%d/%m/%Y" font "Inconsolata,8"
   set yrange ["00:01":"23:59"]
   set key outside font "Inconsolata,10"
   set xtics 60*60*24*7 font "Inconsolata,8" nomirror rotate by right at 0.5,0
   set ytics font "Inconsolata,8" nomirror
   set mytics
   unset mxtics
   set autoscale x
   f=`ls ~/org/*.org | wc -l`
   plot for [i=2:f:2] data u 1:i:(0):(column(i+1)*60) with vec lw 2 nohead ti col(i)
   #+end_src

   #+results:
   [[file:org-task-by-day.png]]