;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 12:11:52 2008 ;;; from file /mnt/gmirror/ports/deskutils/etask/work/etask-0.3.91a/etask-tex.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`etask-tex.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'calendar) #@68 Name of the buffer used for Gantt chart tex file (in a new frame). (defconst etask-tex-buffer "*etaskCHART*" (#$ . 655)) #@53 Specify paper size. Examples: a4paper, letterpaper (custom-declare-variable 'etask-tex-papersize '"a4paper" '(#$ . 782) :type 'string :group 'latex) #@423 Script name to generate ps or pdf out of LaTeX. etask starts the subprocess `etask-chart-gen' for the specified script with one argument - the generated LaTeX file name without the .tex ending - and shows its output in buffer '*etask-chart-gen*'. This is a very simple sample script: #!/bin/sh file=`basename $1` cd /path/to/your/chart/ latex $file.tex dvips -Ppdf -t landscape $file.dvi ps2pdf $file.ps xpdf $file.pdf (custom-declare-variable 'etask-tex-processing-script '"" '(#$ . 939) :type 'string :group 'latex) #@742 1st color for Gantt chart header. This color can be used in `etask-tex-custom-header'. Example: \makebox[9.6cm][c]{\huge \sc \color{ etask-tex-header-color1-name } Ren\'e Weichselbaum} Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-header-color1 '"\\definecolor{headercolor1}{cmyk}{0, 0.70, 0.70, 0.2} %logored" '(#$ . 1467) :type 'string :group 'latex) #@46 String identifier for color1 in Gantt chart. (defconst etask-tex-header-color1-name (byte-code "\301\302\"T\301\303\"O\207" [etask-tex-header-color1 string-match "{" "}"] 5) (#$ . 2372)) #@671 2nd color for Gantt chart header. This color can be used in `etask-tex-custom-header'. See also `etask-tex-header-color1'. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-header-color2 '"\\definecolor{headercolor2}{rgb}{0.12, 0.12, 0.6} %sloganblue" '(#$ . 2569) :type 'string :group 'latex) #@46 String identifier for color2 in Gantt chart. (defconst etask-tex-header-color2-name (byte-code "\301\302\"T\301\303\"O\207" [etask-tex-header-color2 string-match "{" "}"] 5) (#$ . 3402)) #@687 Header as LaTeX statement; you can, for example, design or include your Company logo here. Ensure that you do not exceed the header height defined in `etask-tex-header-height'. If you do not define this variable etask generates a header for you that consists of `etask-organization' and `etask-organization-slogan'. Example: \makebox[9.6cm][c]{\huge \sc \color{headercolor1} Ren\'e Weichselbaum} \makebox[14.4cm][r]{\footnotesize \sc \color{headercolor2} Sound Advice. Reliable Software.}\\ [-3mm] \makebox[9.6cm][c]{\color{headercolor1} \rule[0mm]{9.6cm}{0.3pt}}\\ [1mm] \makebox[9.6cm][c]{\large \sc \color{headercolor1} Software Engineering {\normalsize \&} Consulting}\\ [10mm] (custom-declare-variable 'etask-tex-custom-header '"" '(#$ . 3599) :type 'string :group 'latex) #@67 Height of your Gantt chart header in mm. See `etask-tex-header'. (custom-declare-variable 'etask-tex-header-height '34 '(#$ . 4387) :type 'integer :group 'latex) #@89 Maximum LaTeX Gantt chart width in millimeter. See also the LaTeX variable \textwidth. (custom-declare-variable 'etask-tex-text-width '250 '(#$ . 4556) :type 'integer :group 'latex) #@127 Maximum LaTeX Gantt chart height including `etask-tex-header-height' in millimeter. See also the LaTeX variable \textheight. (custom-declare-variable 'etask-tex-text-height '180 '(#$ . 4746) :type 'integer :group 'latex) #@50 Customize page layout for LaTeX file generation. (custom-declare-variable 'etask-tex-custom-latex-lengths '(concat "\\setlength{\\parindent}{0mm}\n" "\\setlength{\\footskip}{20mm}\n" "\\setlength{\\oddsidemargin}{0mm}\n" "\\setlength{\\topmargin}{-30mm}\n" "\\setlength{\\parskip}{1.2ex}\n" "\\setlength{\\parindent}{0mm}\n") '(#$ . 4974) :type 'string :group 'latex) #@148 If non-nil the tasknames in the Gantt chart are colored according to their fill colors: Go to `etask-tex-color-expended-*' to change these colors. (custom-declare-variable 'etask-tex-color-tasknames-p 't '(#$ . 5349) :type 'boolean :group 'latex) #@103 If non-nil the task bar borders and their fill colors are the same. Otherwise, the borders are black. (custom-declare-variable 'etask-tex-taskbar-invisible-border-p 'nil '(#$ . 5603) :type 'boolean :group 'latex) #@32 Width of the task bar borders. (custom-declare-variable 'etask-tex-taskbar-linewidth '"0.05mm" '(#$ . 5822) :type 'string :group 'latex) #@149 In {none, solid, vlines, vlines*, hlines, hlines*, crosshatch, crosshatch*} The * versions also fill the background. 'none' is the default value. (custom-declare-variable 'etask-tex-taskbar-fillstyle '"solid" '(#$ . 5966) :type 'string :group 'latex) #@604 Color for expended effort of normal tasks in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-expended-normal '"\\definecolor{expendednormal}{rgb}{0.26,0.56,0.26} %darkgreen" '(#$ . 6226) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-color-expended-normal-name "expendednormal" (#$ . 7000)) #@607 Color for expended effort of high risk tasks in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-expended-highrisk '"\\definecolor{expendedhighrisk}{rgb}{0.26,0.26,0.56} %darkblue" '(#$ . 7128) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-color-expended-highrisk-name "expendedhighrisk" (#$ . 7908)) #@611 Color for expended effort of critical path tasks in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-expended-critical '"\\definecolor{expendedcritical}{rgb}{0.56,0.26,0.26} %darkred" '(#$ . 8040) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-color-expended-critical-name "expendedcritical" (#$ . 8823)) #@600 Color for open effort of normal tasks in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-open-normal '"\\definecolor{opennormal}{rgb}{0.86,1,0.86} %lightgreen" '(#$ . 8955) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-color-open-normal-name "opennormal" (#$ . 9715)) #@602 Color for open effort of highrisk tasks in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-open-highrisk '"\\definecolor{openhighrisk}{rgb}{0.86,0.86,1} %lightblue" '(#$ . 9835) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-color-open-highrisk-name "openhighrisk" (#$ . 10600)) #@607 Color for open effort of critical path tasks in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-open-critical '"\\definecolor{opencritical}{rgb}{1,0.86,0.86} %lightred" '(#$ . 10725) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-color-open-critical-name "opencritical" (#$ . 11495)) #@60 If non-nil vertical today line is inserted in Gantt chart. (custom-declare-variable 'etask-tex-today-vertical-line-p 't '(#$ . 11619) :type 'boolean :group 'latex) #@602 Color for vertical line at current date in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-today-vertical-line '"\\definecolor{todaycolor}{rgb}{0.65,0,0} %darkred" '(#$ . 11790) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-today-vertical-line-color-name "todaycolor" (#$ . 12555)) #@46 Width of vertical today line in Gantt chart. (custom-declare-variable 'etask-tex-today-vertical-line-width '"0.2mm" '(#$ . 12683) :type 'string :group 'latex) #@116 Line style of vertical today line in Gantt chart. Values: solid, dotted, dashed, none; solid is the default value (custom-declare-variable 'etask-tex-today-vertical-line-style '"solid" '(#$ . 12849) :type 'string :group 'latex) #@59 If non-nil vertical year line is inserted in Gantt chart. (custom-declare-variable 'etask-tex-year-vertical-line-p 't '(#$ . 13084) :type 'boolean :group 'latex) #@609 Color for vertical line at beginning of a year in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-year-vertical-line '"\\definecolor{yearcolor}{rgb}{0,0,0} %black" '(#$ . 13253) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-year-vertical-line-color-name "yearcolor" (#$ . 14018)) #@45 Width of vertical year line in Gantt chart. (custom-declare-variable 'etask-tex-year-vertical-line-width '"0.2mm" '(#$ . 14144) :type 'string :group 'latex) #@115 Line style of vertical year line in Gantt chart. Values: solid, dotted, dashed, none; solid is the default value (custom-declare-variable 'etask-tex-year-vertical-line-style '"solid" '(#$ . 14308) :type 'string :group 'latex) #@105 If non-nil vertical month line is inserted in Gantt chart according to `etask-tex-month-filter-values'. (custom-declare-variable 'etask-tex-month-vertical-line-p 't '(#$ . 14542) :type 'boolean :group 'latex) #@610 Color for vertical line at beginning of a month in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-month-vertical-line '"\\definecolor{monthcolor}{rgb}{0,0,0} %black" '(#$ . 14758) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-month-vertical-line-color-name "monthcolor" (#$ . 15526)) #@46 Width of vertical month line in Gantt chart. (custom-declare-variable 'etask-tex-month-vertical-line-width '"0.2mm" '(#$ . 15654) :type 'string :group 'latex) #@116 Line style of vertical month line in Gantt chart. Values: solid, dotted, dashed, none; solid is the default value (custom-declare-variable 'etask-tex-month-vertical-line-style '"dashed" '(#$ . 15820) :type 'string :group 'latex) #@106 If non-nil vertical week lines are inserted in Gantt chart according to `etask-tex-week-filter-values' . (custom-declare-variable 'etask-tex-week-vertical-line-p 't '(#$ . 16057) :type 'boolean :group 'latex) #@38 If non-nil the ISO week is inserted. (custom-declare-variable 'etask-tex-insert-iso-week-p 't '(#$ . 16272) :type 'boolean :group 'latex) #@609 Color for vertical line at beginning of a week in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-week-vertical-line '"\\definecolor{weekcolor}{rgb}{0,0,0} %black" '(#$ . 16417) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-week-vertical-line-color-name "weekcolor" (#$ . 17182)) #@45 Width of vertical week line in Gantt chart. (custom-declare-variable 'etask-tex-week-vertical-line-width '"0.2mm" '(#$ . 17308) :type 'string :group 'latex) #@87 Line style of vertical week line in Gantt chart. Values: solid, dotted, dashed, none (custom-declare-variable 'etask-tex-week-vertical-line-style '"dotted" '(#$ . 17471) :type 'string :group 'latex) #@116 If non-nil and one day scales to more than 1mm then vertical day lines are inserted at the top of the Gantt chart. (custom-declare-variable 'etask-tex-day-vertical-line-p 't '(#$ . 17678) :type 'boolean :group 'latex) #@608 Color for vertical line at beginning of a day in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-day-vertical-line '"\\definecolor{daycolor}{rgb}{0,0,0} %black" '(#$ . 17903) :type 'string :group 'latex) #@627 Color for horizontal and vertical line at beginning of a holiday in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-holiday-line '"\\definecolor{holidaycolor}{rgb}{1,0.66,0.66} %lightred" '(#$ . 18666) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-day-vertical-line-normalcolor-name "daycolor" (#$ . 19455)) #@45 String identifier for color in Gantt chart. (defconst etask-tex-day-holidaycolor-name "holidaycolor" (#$ . 19585)) #@44 Width of vertical day line in Gantt chart. (custom-declare-variable 'etask-tex-day-vertical-line-width '"0.2mm" '(#$ . 19706) :type 'string :group 'latex) #@86 Line style of vertical day line in Gantt chart. Values: solid, dotted, dashed, none (custom-declare-variable 'etask-tex-day-vertical-line-style '"solid" '(#$ . 19867) :type 'string :group 'latex) #@47 If non-nil a grid is inserted in Gantt chart. (custom-declare-variable 'etask-tex-taskline-p 't '(#$ . 20070) :type 'boolean :group 'latex) #@607 Color for horizontal and vertical task lines in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-taskline '"\\definecolor{taskcolor}{rgb}{0.86,0.86,0.86} %grey" '(#$ . 20217) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-taskline-color-name "taskcolor" (#$ . 20978)) #@37 Width of task lines in Gantt chart. (custom-declare-variable 'etask-tex-taskline-width '"0.02mm" '(#$ . 21094) :type 'string :group 'latex) #@79 Line style of task lines in Gantt chart. Values: solid, dotted, dashed, none (custom-declare-variable 'etask-tex-taskline-style '"solid" '(#$ . 21240) :type 'string :group 'latex) #@74 If non-nil milestone colors are set to their criticality in Gantt chart. (custom-declare-variable 'etask-tex-color-milestones-p 't '(#$ . 21427) :type 'boolean :group 'latex) #@589 Color for milestone border in Gantt chart. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-linecolor-milestone '"\\definecolor{lcmilestone}{rgb}{0,0,0} %black" '(#$ . 21609) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-linecolor-milestone-name "lcmilestone" (#$ . 22351)) #@630 Color for milestone in Gantt chart. Used if `etask-tex-color-milestones-p' is nil. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-fillcolor-milestone '"\\definecolor{fcmilestone}{rgb}{0,0,0} %black" '(#$ . 22475) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-fillcolor-milestone-name "fcmilestone" (#$ . 23258)) #@178 Style of a milestone. Values according to PSTricks dot styles: * + | o x asterisk diamond* diamond oplus otimes pentagon* pentagon square* square triangle* triangle (custom-declare-variable 'etask-tex-milestone-dotstyle '"diamond" '(#$ . 23382) :type 'string :group 'latex) #@23 Scale of a milestone. (custom-declare-variable 'etask-tex-milestone-scale '3 '(#$ . 23674) :type 'number :group 'latex) #@46 Default label in the footer for Gantt chart. (custom-declare-variable 'etask-tex-default-label '"" '(#$ . 23800) :type 'string :group 'latex) #@602 Color for task names header in Gantt chart -- not used. Syntax: \definecolor{name}{model}{color specification} %comment. Do not change the prefix \definecolor{name}. How to define your own color: ----------------------------- model ... in {rgb, cmyk, gray} color specification for rgb comma-separated list of 3 real numbers between 0 and 1 (color components: red-green-blue) color specification for cmyk comma-separated list of 4 real numbers between 0 and 1 (cyan magenta yellow black) color specification for gray grayscale, a single real number between 0 (black) and 1 (white) (custom-declare-variable 'etask-tex-color-tasknames-header '"\\definecolor{tasknamesheadercolor}{rgb}{0,0,0} %black" '(#$ . 23949) :type 'string :group 'latex) #@45 String identifier for color in Gantt chart. (defconst etask-tex-color-tasknames-header-name "tasknamesheadercolor" (#$ . 24716)) #@57 Height of timeline at the top of the Gantt chart in mm. (defconst etask-tex-timeline-height 12 (#$ . 24851)) #@44 Width of Gantt chart holiday marker in mm. (defconst etask-tex-holiday-width 2 (#$ . 24966)) #@68 Magic number: Width of one upper case letter in mm in LaTeX chart. (defconst etask-tex-letter-width 2 (#$ . 25065)) #@28 Subitem indentation in mm. (defconst etask-tex-subitemoffset 2 (#$ . 25187)) #@76 Minimum month width in LaTeX Gantt chart in mm to display all its letters. (defconst etask-tex-all-month-letters-width 20 (#$ . 25270)) #@76 Minimum month width in LaTeX Gantt chart in mm to display all its letters. (defconst etask-tex-3-month-letters-width 11 (#$ . 25412)) #@76 Minimum month width in LaTeX Gantt chart in mm to display all its letters. (defconst etask-tex-2-month-letters-width 8 (#$ . 25552)) #@76 Minimum month width in LaTeX Gantt chart in mm to display all its letters. (defconst etask-tex-1-month-letter-width 5 (#$ . 25691)) #@81 Minimum space between task name and its surrounding frame in LaTeX chart in mm. (defconst etask-tex-min-taskbar-space 2 (#$ . 25829)) #@41 Height of taskbar in LaTeX chart in mm. (custom-declare-variable 'etask-tex-taskbar-height '6 '(#$ . 25969) :type 'integer :group 'latex) #@229 Height of a task name at the left side of the Gantt chart in mm. A task name is inserted via \rput(x,y){name} - see PSTricks package. This variable is y1-y2, where y1 belongs to the task that is above the task with y value y2. (custom-declare-variable 'etask-tex-task-height '8 '(#$ . 26114) :type 'integer :group 'latex) #@363 Space between delimiter line and content in mm. Task 01| | | ==-------- Task 02| | C | ======----- Task 03| | C | ==------- task names|____|||___| |___|||___|task bars ^ ^task ^ ^ | |type | | - - - - - - - - - - - - - customize this width (custom-declare-variable 'etask-tex-space-between-delimiter '5 '(#$ . 26444) :type 'integer :group 'latex) #@806 List of (FACTOR MODULO) value pairs to determine if vertical week line and its corresponding ISO week are displayed. FACTOR is the width of a day in mm. Factors must be sorted descending, i.e. the pair with the greater FACTOR comes first. FACTOR ... number, >= 0 MODULO ... whole number For example, assume the following expression: '((1 1) (0.7 2) (0 10)) This expression specifies that if one day in your Gantt chart scales to more than 1mm then all weeks are displayed, but if one day is only in the interval ]0.7 1] then every 2nd week is shown. If FACTOR equals 0 then its MODULO value is used for all other day lengths. If MODULO is zero nothing is displayed. For example, in '((1 1) (0.7 2) (0.6 0) (0 10)) nothing is displayed if one day is greater than 0.6mm and not greater than 0.7mm. (custom-declare-variable 'etask-tex-week-filter-values ''((1 1) (0.7 2) (0.5 5) (0 10)) '(#$ . 26920) :type 'sexp :group 'latex) #@128 (FACTOR MODULO) value pairs to determine if vertical month line is displayed. For details see `etask-tex-week-filter-values'. (custom-declare-variable 'etask-tex-month-filter-values ''((0.5 1) (0.7 2) (0.5 5) (0 10)) '(#$ . 27861) :type 'sexp :group 'latex) #@25 Specify input encoding. (custom-declare-variable 'etask-tex-inputencoding '"latin1" '(#$ . 28126) :type 'string :group 'latex) #@32 Bookmark in LaTeX source file. (defconst etask-tex-bookmark-tasknames "TASKNAMES COLUMN" (#$ . 28259)) #@32 Bookmark in LaTeX source file. (defconst etask-tex-bookmark-tasktypes "TASKTYPES COLUMN" (#$ . 28368)) #@32 Bookmark in LaTeX source file. (defconst etask-tex-bookmark-timeline "TIMELINE" (#$ . 28477)) #@32 Bookmark in LaTeX source file. (defconst etask-tex-bookmark-taskbars "TASKBARS" (#$ . 28577)) #@106 Add LaTeX commands not covered so far. Format: (concat "your_first_command" "your_next_command_string") (custom-declare-variable 'etask-tex-custom-commands '"" '(#$ . 28678) :type 'string :group 'latex) #@120 Generate a Gantt chart (LaTeX file) for all (marked) tasks. If there are marked tasks, only these tasks are included. (defalias 'etask-generate-latex-gantt-chart #[nil "\306 \211\203\260\307 \211\203 \202\310\311\312\313\314 \"\315\311\211\211\211#\260!$\316 \203l%\203l\311&\317\320\321\322 !PB&B&\323\324&!!\210\325'!q\210\326\327 !\210eb\210\330 \210\331\n$\"\210\332\333!\210\334 \210)\202\214r\325'!q\210\326\327 !\210eb\210\330 \210\331\n$\"\210\332\333!\210\334 \210)(;\205\254(G\310V\205\254\335\336\337(\327 \327 G)GZ[\340O$-\202\263\341\342!)\207" [tasklist markedtasks tasksinchart num task etask-language etask-cat-get-current-elts etask-cat-get-marked-elements 0 nil read-from-minibuffer etask-lang-msg 320 ": " etask-multi-frame-p name "GANTT CHART --- " calendar-date-string calendar-current-date select-frame make-frame get-buffer-create find-file etask-get-chartfile erase-buffer etask-tex-generate-barchart run-hooks etask-tex-hook save-buffer start-process "etask-chart-gen" "*etask-chart-gen*" -4 error "Gantt chart contains no data" etask-tex-default-label texlabel etask-allow-popup-frames-p frame-alist etask-tex-buffer etask-tex-processing-script etask-working-dir] 9 (#$ . 28889) nil]) #@36 Insert chart header in LaTeX file. (defalias 'etask-tex-insert-header #[nil "G\306V\203 \202\307 \310\n\311\312\313 \310\f\314\315\260\f\211c)\207" [etask-tex-custom-header etask-tex-header-color1-name etask-organization etask-tex-header-color2-name etask-organization-slogan header 0 "\\makebox[\\width][c]{\\huge \\sc \\color{" "} " "}\n" "\\hfill\n" "\\makebox[\\width][r]{\\footnotesize \\sc \\color{" "}" "\\\\[10mm]"] 13 (#$ . 30140)]) #@32 Insert preamble in LaTeX file. (defalias 'etask-tex-insert-preamble #[(texlabel) "\306c\210c\210\307c\210\310c\210\311c\210 \227c\210\312c\210\311c\210\n\227c\210\313c\210\314c\210\315c\210\316c\210\317c\210 \320Pc\210\f\320Pc\210 \320Pc\210%\320Pc\210&\320Pc\210'\320Pc\210(\320Pc\210)\320Pc\210*\320Pc\210+\320Pc\210,\320Pc\210-\320Pc\210.\320Pc\210/\320Pc\2100\320Pc\2101\320Pc\2102\320Pc\2103\320Pc\210\321c\210\322c\210\323c\210\3244!c\210\325c\210\326c\210\3245!c\210\325c\2106c\2107c\210\327c\210\330c\210\331c\210\332c\210\333c\210\3348\335\230\203\331\336 A@\202\3338\337Qc\210\340c\210\341c\210\342c\210\343c\210\344c\207" [etask-tex-papersize etask-language etask-tex-inputencoding etask-tex-header-color1 etask-tex-header-color2 etask-tex-color-expended-normal "\\documentclass[landscape,12pt," "]{article}\n" "\\usepackage{ae}\n" "\\usepackage[" "]{babel}\n" "]{inputenc}\n" "\\usepackage[T1]{fontenc}\n" "\\usepackage[official]{eurosym}\n" "\\usepackage{amssymb}\n" "\\usepackage{pst-all}\n" "\n" "\\usepackage{fancyhdr}\n" "\\special{! TeXDict begin /landplus90{true}store end }\n" "\\setlength{\\textwidth}{" number-to-string "mm}\n" "\\setlength{\\textheight}{" "\\pagestyle{fancy}\n" "\\fancyhf{}\n" "\\renewcommand{\\headrulewidth}{0pt}\n" "\\fancyfoot[C]{\n" "\\makebox[\\textwidth][c]{\\footnotesize\\sf%\n" " {\\sc " "p" etask-cat-get-current-item "\\hspace{\\stretch{1}}\n" " ---\\hspace{1cm}\\thepage\\hspace{1cm}---\n" " \\hspace{\\stretch{1}}\\today}}}\n\n" "%----------------------------------------\n" "\\begin{document}\n" "%----------------------------------------\n\n" etask-tex-color-expended-highrisk etask-tex-color-expended-critical etask-tex-color-open-normal etask-tex-color-open-highrisk etask-tex-color-open-critical etask-tex-color-today-vertical-line etask-tex-color-year-vertical-line etask-tex-color-month-vertical-line etask-tex-color-week-vertical-line etask-tex-color-day-vertical-line etask-tex-color-holiday-line etask-tex-color-taskline etask-tex-linecolor-milestone etask-tex-fillcolor-milestone etask-tex-color-tasknames-header etask-tex-text-width etask-tex-text-height etask-tex-custom-latex-lengths etask-tex-custom-commands texlabel] 3 (#$ . 30594)]) #@116 Insert pspicture specification for chart page in LaTeX file with width= `etask-tex-text-width' and height=CHEIGHT. (defalias 'etask-tex-insert-begin-picture #[(cheight) "\302c\210\303c\210\304\305!!c\210\306c\210\304\305 !!c\210\307c\207" [etask-tex-text-width cheight "\n\n" "\\begin{pspicture}(0,0)(" number-to-string etask-tex-num-cm "," ")\n"] 3 (#$ . 32834)]) #@51 Insert end statement for pspicture in LaTeX file. (defalias 'etask-tex-insert-end-picture #[nil "\300c\207" ["\n\\end{pspicture}\n"] 1 (#$ . 33206)]) #@222 Generate Gantt chart of TASKLIST. TEXLABEL is a string printed on the left side of the footer - e.g the project name. Configure the variable `etask-tex-default-label' to set the default value for the chart label promt. (defalias 'etask-tex-generate-barchart #[(tasklist texlabel) "\306!\307!G\310!  \fZ\311_Z!Z\"#$Z\211%&Z'Z(\f\311_\\!\\)' _*%&Z+\312\313*!(\245!,\314-\315.\315/\3150\3151\3162!\210,\314V\2033+(*V\203\200(*Z\202\201\314Z0(*^'\245.\317-T-.\\#/\320 \210\321%!\210\3223\323\261\210\324/\f(#\210\3224\323Qc\210\325\f\\+0#\210\326/\f\211\\\314\\\\(#\210\3225\323Qc\210\327/)%&\330\245\"%\210\3226\323\261\210\331/)(\" \n&\210\332c\210\333)+0 \n\"&\210\334 \210-.\\-' -Z_*,S\211,\314V\203g\335c\210\202g\336c.\207" [tasklist projbegin projend tasknum ctwidth etask-tex-space-between-delimiter etask-calculate-earliestbegin etask-calculate-lastend etask-tex-get-maxtaskwidth 3 ceiling float 0 nil etask-tex-insert-preamble etask-get-sublist etask-tex-insert-header etask-tex-insert-begin-picture "\n%" "\n" etask-tex-insert-tasknames etask-tex-insert-vertical-line etask-tex-insert-tasktypes etask-tex-insert-timeline 2 etask-tex-insert-taskbars "\n% HIGHLIGHT SPECIAL DATES\n" etask-tex-insert-special-date-lines etask-tex-insert-end-picture "\n\\newpage\n" "\\end{document}" sp etask-tex-text-width etask-tex-letter-width cwidth etask-tex-text-height etask-tex-header-height cheight etask-tex-timeline-height etask-tex-task-height taskbarheight taskbarx taskbarcurrheight vliney pages alreadyprinted tasksonpage elements vlinelen contentstr texlabel etask-tex-bookmark-tasknames etask-tex-bookmark-tasktypes etask-tex-bookmark-timeline etask-tex-bookmark-taskbars] 8 (#$ . 33363)]) #@59 Insert Gantt chart's label above tasknames in LaTeX file. (defalias 'etask-tex-generate-tasknames-header #[(xpos ypos label) "\205&\304c\210\305\306 !!c\210\307c\210\305\306\n!!c\210\310c\210 c\210\311c\210c\210\312c\207" [label xpos ypos etask-tex-color-tasknames-header-name "\\rput[tr](" number-to-string etask-tex-num-cm "," "){\\color{" "}" "}\n"] 3 (#$ . 35166)]) #@78 Insert STR at position (XPOS,YPOS) using rput. The string ALIGN is in l,r,c (defalias 'etask-tex-insert-rputstring #[(align xpos ypos str) "\306c\210c\210\307c\210\310 !c\210\311c\210\310\n!c\210\312c\210 \203*\313c\210\314\f@\315\"c\210\316c\210 c\210\317c\207" [align xpos ypos etask-tex-color-tasknames-p tasklist str "\\rput[" "](" number-to-string "," "){" "\\color{" etask-tex-taskbar-get-fillcolor expended "}" "}\n"] 3 (#$ . 35545)]) #@181 Insert Gantt chart's task name column for the tasks in TASKLIST in LaTeX file. XPOS and YPOS specify the point where the first task name is to be inserted. Alignment: top, right (defalias 'etask-tex-insert-tasknames #[(tasklist xpos ypos) "\205\235\306@!GS\n\307 !\310\245Z  \311V\203: \311V\2038\312\313\314\211 _\\!\314\f!\315$\210 S\211\202 \312\313 \311V\203N\314\211 T_\\!\202V\314\211 _\\!\314\f!\316@\"$\210\203t\317\311\n&\210\203\216A\204\216\317\311\n Z&\210A\205\234\320A\n Z#+\207" [tasklist sublevel ypos etask-tex-task-height currypos tmp etask-cat-get-elementindex float 2 0 etask-tex-insert-rputstring "l" etask-tex-num-cm "-" etask-db-get etask-tex-insert-horizontal-line etask-tex-insert-tasknames etask-tex-subitemoffset etask-db-attr-taskname etask-tex-taskline-p etask-tex-text-width etask-tex-taskline-color-name etask-tex-taskline-width etask-tex-taskline-style xpos] 8 (#$ . 35997)]) #@117 Insert horizontal line (XPOS,YPOS) (XPOS+len,YPOS) in LaTeX file. LINECOLOR, LINEWIDTH, and LINESTYLE are strings. (defalias 'etask-tex-insert-horizontal-line #[(xpos ypos len &optional linecolor linewidth linestyle) "\306c\210\204 \204\n\203=\307\205\310P \205#\205 \311\312 Q\n\2058 \2044\2055 ?\2055\311\313\nQ\314\260c\210\315c\210\316\317 !!c\210\311c\210\316\317\f!!c\210\320c\210\316\317 \\!!c\210\311c\210\316\317\f!!c\210\321c\207" [linecolor linewidth linestyle xpos ypos len "\\psline" "[" "linecolor=" "," "linewidth=" "linestyle=" "]" "(" number-to-string etask-tex-num-cm ")(" ")\n"] 6 (#$ . 36968)]) #@115 Insert vertical line (XPOS,YPOS) (XPOS,YPOS-len) in LaTeX file. LINECOLOR, LINEWIDTH, and LINESTYLE are strings. (defalias 'etask-tex-insert-vertical-line #[(xpos ypos len &optional linecolor linewidth linestyle) "\306c\210\204 \204\n\203=\307\205\310P \205#\205 \311\312 Q\n\2058 \2044\2055 ?\2055\311\313\nQ\314\260c\210\315c\210\316\317 !!c\210\311c\210\316\317\f!!c\210\320c\210\316\317 !!c\210\311c\210\316\317\f Z!!c\210\321c\207" [linecolor linewidth linestyle xpos ypos len "\\psline" "[" "linecolor=" "," "linewidth=" "linestyle=" "]" "(" number-to-string etask-tex-num-cm ")(" ")\n"] 6 (#$ . 37611)]) #@279 Insert vertical lines that highlight special days in LaTeX file. (XPOS,YPOS) is the upper left corner of the task bar region. HEIGHT is the task bar region's height. PROJBEGIN and PROJEND are dates. PROJLEN is the project length scaled to mm to fit into the task bar region. (defalias 'etask-tex-insert-special-date-lines #[(xpos ypos height projbegin projend projlen) "\306 \"T\307\310 !\n\245%\311&\312%'\"(\312%)\"*\311+\311,\f\nW\205n\313 \211\211AA@)S- \211\211@). \211A@)/ \211AA@)0/.S\314_\\1.\315V\203\2321.\316_\317\\\320\245Z10\2110\316\246\307U\205\2210\321\246\307U?\206\2210\322\246\307U)\203\2321T11--\323_\\-\316\245\\-\321\245[\\-\322\245\\*!\211@)&2\203\304(\204\310\311\202\327\324 !\325U\205\327&(\246\307U+3\203\326\327 \"\203\330c\210\3314%\f_\\56789&\210+\203\3324%\f_\\5 #\210\333c\210\202:\203s \211@)\325U\203s \211A@)\325U\203s\334c\210\335 \211AA@)!c\210\336c\210\3314%\f_\\56;<=&\210+\203>\203\3324%\f_\\5 #\210\333c\210\202?\203\326*\203\326 \211A@)\325U\203\326 \211@)*\246\307U\203\326\337c\210\335 \211@)!c\210\336c\210\3314%\f_\\56@AB&\210+\203>\203\3324%\f_\\5 #\210\333c\210\202+\203\340c\210\3314%\f_\\56CDE&\210>\203\3324%\f_\\5 #\210\333c\210F\2034%\325V\2034\3314%\f_\\5G\341 !\203+H\202-IJK&\210%\325V\203b\341 !\204b\3424%\f_\\5\310G!\316\245Z%I\335\310G!\315\245!\343P%\210\344 \325\"\fT\211\202+. \207" [projbegin projend projdays date days projlen etask-days-between 0 float nil etask-tex-filter calendar-iso-from-absolute 31 2 4 23 10 100 400 365 calendar-day-of-week 1 calendar-date-equal calendar-current-date "\n% Today:\n" etask-tex-insert-vertical-line etask-tex-insert-iso-week "\n" "\n% Year (" number-to-string "):\n" "\n% Month (" "\n% Week:\n" etask-businessday-p etask-tex-insert-horizontal-line "mm" etask-add-days-to-date factor isoweek etask-tex-week-filter-values weekfilter etask-tex-month-filter-values monthfilter printweekp str prior-years month day year day-of-year etask-tex-week-vertical-line-p etask-tex-today-vertical-line-p xpos ypos height etask-tex-today-vertical-line-color-name etask-tex-today-vertical-line-width etask-tex-today-vertical-line-style etask-tex-year-vertical-line-p etask-tex-year-vertical-line-color-name etask-tex-year-vertical-line-width etask-tex-year-vertical-line-style etask-tex-insert-iso-week-p etask-tex-month-vertical-line-p etask-tex-month-vertical-line-color-name etask-tex-month-vertical-line-width etask-tex-month-vertical-line-style etask-tex-week-vertical-line-color-name etask-tex-week-vertical-line-width etask-tex-week-vertical-line-style etask-tex-day-vertical-line-p etask-tex-holiday-width etask-tex-day-vertical-line-normalcolor-name etask-tex-day-holidaycolor-name etask-tex-day-vertical-line-width etask-tex-day-vertical-line-style] 9 (#$ . 38249)]) #@122 Insert ISO week number of DATE at (XPOS,YPOS) in LaTeX file. See also `calendar-iso-date-string'. Alignment: top, left (defalias 'etask-tex-insert-iso-week #[(xpos ypos date) "\306c\210\307\310T!!c\210\311c\210\307\310 \nZ\312Z!!c\210\313c\210\307\314 \211\211AA@)S \211\211@) \211A@) \211AA@) S\315_\\ \316V\203\202 \317_\320\\\321\245Z\211\317\246\322U\205y\323\246\322U?\206y\324\246\322U)\203\202T-\f\325_\\\f\317\245\\\f\323\245[\\\f\324\245\\*!\211@)!c\210\326c\207" [xpos ypos etask-tex-holiday-width date prior-years month "\\rput[tl](" number-to-string etask-tex-num-cm "," 1 "){\\scriptsize " calendar-iso-from-absolute 31 2 4 23 10 0 100 400 365 "}\n" day year day-of-year] 8 (#$ . 41205)]) #@158 Insert Gantt chart's task type column for the tasks in TASKLIST in LaTeX file. XPOS and YPOS specify the point where the first task type is to be inserted. (defalias 'etask-tex-insert-tasktypes #[(tasklist xpos ypos) "\203R\306@ \"\307c\210\310\311 !!c\210\312c\210\310\311\f\313 !\314\245Z!!c\210\315c\210\n\230\2034\316c\210\202Q\n\230\203A\317c\210\202Q\n\230\203N\320c\210\202Q\321c\210)A\205_\322A \f Z#\207" [tasklist etask-db-attr-tasktype type xpos ypos etask-tex-task-height etask-db-get "\\rput[c](" number-to-string etask-tex-num-cm "," float 2 "){" "~}\\\\\n" "H}\\\\\n" "C}\\\\\n" "" etask-tex-insert-tasktypes etask-normaltask-string etask-highrisktask-string etask-criticaltask-string] 5 (#$ . 41956)]) #@46 Insert Gantt chart's timeline in LaTeX file. (defalias 'etask-tex-insert-timeline #[(tasklist xpos ypos height width) "\306c\210\307 \n \f%\210\310c\210\311 \n \312\245Z \f%\207" [tasklist xpos ypos height width etask-tex-timeline-height "\n% YEARS\n" etask-tex-insert-years "\n% MONTHS\n" etask-tex-insert-months 2] 6 (#$ . 42700)]) #@228 Insert the Gantt chart's year timeline in LaTeX file. XPOS and YPOS specify the point (top, left) where the year timeline should start. This point and its HEIGHT and WIDTH in millimeter define the year-frame to be generated. (defalias 'etask-tex-insert-years #[(tasklist xpos ypos height width) "\306!\307! \211AA@)\n\211AA@)\fZT\211\"\310 \n\"T#\311$!#\245%\312&\312'\312(\313c\210\314\315%#_!!c\210\316c\210\"\317V\205\f \"Z\\'\315%\320 \n'#_!(\321c\210\314'!c\210\322c\210\314(!c\210\323c\210\314\315%!!c\210\324c\210\316c\210\325c\210\314\326)!!c\210\327c\210\314\326*+Z!!c\210\330c\210\314\326)(\\!!c\210\327c\210\314\326*!!c\210\331c\210\332c\210\314\326)\311(!\333\245\\!!c\210\327c\210\314\326*\334Z!!c\210\335c\210(\336V\203\356\314'!c\210\202(\337V\203\314'!\333\312Oc\210\202\340c\210\341c\210)(\\)\"S\211\"\202J.\n\207" [tasklist projbegin projend date projyearbegin projyears etask-calculate-earliestbegin etask-calculate-lastend etask-days-between float nil "\n% Length of all years in mm = " number-to-string etask-simplify-number "\n" 0 etask-projdays-in-year "\n% " ": Length in mm = " " (1 day = " "mm)" "\\psframe(" etask-tex-num-cm "," ")(" ")\n" "\\rput[t](" 2 1.5 "){" 10 5 "" "}\n" yearnum projdays width factor str year len xpos ypos height] 7 (#$ . 43043)]) #@231 Insert the Gantt chart's month timeline in LaTeX file. XPOS and YPOS specify the point (top, left) where the month timeline should start. This point and its HEIGHT and WIDTH in millimeter define the month-frame to be generated. (defalias 'etask-tex-insert-months #[(tasklist xpos ypos height width) "\306!\307! \211@) \211AA@)\n\211@)\"\n\211AA@)#\n\211AA@) ZT$\310 \n\"T%\311&!%\245' #U\203Q\"\fZT\202_\312\fZT$\313Z\312_\\\"\\(\314) \211@)* +\315,\315-\315.\316c\210\317\320'%_!!c\210\321c\210)(X\205\221\322)*+ \n(&-\320'-_!.\323c\210\317*!c\210\324c\210\317.!c\210\325c\210\317-!c\210\321c\210\326c\210\317\327/!!c\210\330c\210\317\32701Z!!c\210\331c\210\317\327/.\\!!c\210\330c\210\317\3270!!c\210\332c\210\333c\210\317\327/\311.!\313\245\\!!c\210\330c\210\317\3270\334Z!!c\210\335c\210.2V\203.\336*!c\210\202g.3V\203@\336*\337\"c\210\202g.4V\203R\336*\313\"c\210\202g.5V\203d\336*\314\"c\210\202g\340c\210\341c\210*\312W\203y*T*\202\201\314*+T+/.\\/)T\211)\202\212.\207" [tasklist projbegin projend date projmonbegin projyearbegin etask-calculate-earliestbegin etask-calculate-lastend etask-days-between float 12 2 1 nil "\n% Length of all months in mm = " number-to-string etask-simplify-number "\n" etask-projdays-in-month "\n% " ": Length in mm = " " Number of days = " "\\psframe(" etask-tex-num-cm "," ")(" ")\n" "\\rput[t](" 1.5 "){" calendar-month-name 3 "" "}\n" projmonend projyearend projyears projdays width factor projmonths monnum month year str days len xpos ypos height etask-tex-all-month-letters-width etask-tex-3-month-letters-width etask-tex-2-month-letters-width etask-tex-1-month-letter-width] 8 (#$ . 44391)]) #@212 Insert Gantt chart's task bars for the tasks in LaTeX file. XPOS and YPOS specify the point where a task bar is to be inserted. Alignment: left, top PROJLEN is the project length scaled to mm to fit in chart. (defalias 'etask-tex-insert-taskbars #[(tasklist xpos ypos projlen projbegin projend) "\2056\306@!\203\307@ \n \f &\210\202$\310@ \n \f &\210A\2056\311A \n\nZ \f &\207" [tasklist xpos ypos projlen projbegin projend etask-is-milestone-p etask-tex-insert-milestone etask-tex-insert-taskbar etask-tex-insert-taskbars etask-tex-task-height] 7 (#$ . 46131)]) #@143 Insert milestone in LaTeX file. Project start is at (XPOS, YPOS, alignment: left, top). PROJLEN is the project length scaled to millimeter. (defalias 'etask-tex-insert-milestone #[(task xpos ypos projlen projbegin projend) "\306 \"T\307 !\n\245\306\310 \"\"\311\f_!\312c\210c\210\313c\210\2036\314 \315\"c\210\202:c\210\316c\210c\210\317c\210\320!c\210\321c\210\320\322\\!!c\210\323c\210\320\322\307 !\324\245Z!!c\210\325c,\207" [projbegin projend projdays projlen factor task etask-days-between float etask-db-get etask-simplify-number "\\psdots[linecolor=" ",fillcolor=" etask-tex-taskbar-get-fillcolor expended ",dotstyle=" ",dotscale=" number-to-string "](" etask-tex-num-cm "," 2 ")\n" etask-db-attr-taskbegin daysbefore taskstartpos etask-tex-linecolor-milestone-name etask-tex-color-milestones-p etask-tex-fillcolor-milestone-name etask-tex-milestone-dotstyle etask-tex-milestone-scale xpos ypos etask-tex-task-height] 5 (#$ . 46718)]) #@150 Insert task bar of TASK in LaTeX file. Project start is at (XPOS, YPOS, alignment: left, top). PROJLEN is the project length scaled to millimeter. (defalias 'etask-tex-insert-taskbar #[(task xpos ypos projlen projbegin projend) "\306 \"T\307 !\n\245\306\310 \"\"\311\f_!\306\310 \"\310 \"\"T\311\f_! \311\307\310 !\"!\310 \"\"\245!#\311 #_!$\311 \312#Z_!%\313\310 &\"\314Qc\210#\315V\203\320\316c\210'c\210\317c\210(c\210\320c\210\321 \322\"c\210)\203\217\323\321 \322\"Pc\210\324c\210\325\326*\\!!c\210\327c\210\325\326+,\330 ZZ!!c\210\331c\210\325\326*\\$\\!!c\210\327c\210\325\326+\330 Z!!c\210\332c\210#\312W\205?\316c\210'c\210\317c\210(c\210\320c\210\321 !c\210)\203\371\323\321 !Pc\210\324c\210\325\326*\\$\\!!c\210\327c\210\325\326+,\330 ZZ!!c\210\331c\210\325\326*\\$\\%\\!!c\210\327c\210\325\326+\330 Z!!c\210\332c. \207" [projbegin projend projdays projlen factor task etask-days-between float etask-db-get etask-simplify-number 1 "\n%TASK " ": \n" 0 "\\psframe[fillstyle=" ",linewidth=" ",fillcolor=" etask-tex-taskbar-get-fillcolor expended ",linecolor=" "](" number-to-string etask-tex-num-cm "," etask-tex-calculate-taskbar-space ")(" ")\n" etask-db-attr-taskbegin daysbefore taskstartpos etask-db-attr-taskend taskdays tasklen etask-db-attr-eeffort etask-db-attr-peffort expendedpercent expendedlen openlen etask-db-attr-taskname etask-tex-taskbar-fillstyle etask-tex-taskbar-linewidth etask-tex-taskbar-invisible-border-p xpos ypos etask-tex-task-height] 5 (#$ . 47701)]) #@60 Return full path name of requested LaTeX Gantt chart file. (defalias 'etask-get-chartfile #[nil " \303\304\305 \211A@)!\303\306\305 \211@)\307\"\303\304\305 \211AA@)!\310\260 \207" [etask-working-dir etask-tex-filename-prefix date "." number-to-string calendar-current-date calendar-month-name 3 ".tex"] 10 (#$ . 49263)]) #@59 Return length of longest taskname in mm for LaTeX output. (defalias 'etask-tex-get-maxtaskwidth #[(tasklist) "\306 \203$\307 @!GS\310\311 @ \"G\n\\\f\\\312\"B A\211\204 \313!_)\207" [list tasklist sublevel etask-db-attr-taskname etask-tex-subitemoffset etask-tex-letter-width nil etask-cat-get-elementindex make-string etask-db-get 70 etask-longest-string-in-list] 5 (#$ . 49595)]) #@59 Return NUM, given in mm, in cm and simplify if necessary. (defalias 'etask-tex-num-cm #[(num) "\301\302!\303\245!\207" [num etask-simplify-number float 10] 3 (#$ . 49992)]) #@246 Return modulo value for FACTOR that determines which time labels are displayed or nil if an assertion fails. FACTOR is the width of a day in mm. FILTER is a list of (FACTOR MODULO) value pairs. For details see `etask-tex-week-filter-values'. (defalias 'etask-tex-filter #[(factor filter) "\304V\205> \205> @@ @A@\211\247\205= \304Y\205=\305\n!\205= V\203.\n\202= \304U\2038\n\202=\306 A\"*\207" [factor filter mod fac 0 natnump etask-tex-filter] 4 (#$ . 50173)]) #@75 Return color string for TASK's bar. If EXPENDED is nil, OPEN is assumed. (defalias 'etask-tex-taskbar-get-fillcolor #[(task &optional expended) "\306 \" \203/\n\f\230\203 \202S\n\230\203 \202S\n\n\230\203+ \202S\307\202S\n\f\230\203:\f\202S\n\230\203F \202S\n\n\230\203R\202S\307)\207" [task etask-db-attr-tasktype type expended etask-normaltask-string etask-tex-color-expended-normal-name etask-db-get nil etask-highrisktask-string etask-tex-color-expended-highrisk-name etask-criticaltask-string etask-tex-color-expended-critical-name etask-tex-color-open-normal-name etask-tex-color-open-highrisk-name etask-tex-color-open-critical-name] 3 (#$ . 50659)]) #@848 Return taskbar space in mm. Taskbar's y-center = taskname's y-center: ------------------------------------------ | <--- taskbar space ---> |---------------- | ----------------- | (1) | | | | | TASKNAME (2) | TYPE | TASKBAR (3) | (1) | | | | |---------------- | ----------------- | <-| | --> - | | | | <--- taskbar space ---> |---------------- | --------------- | | | | | NEXT TASKNAME | | NEXT T. | NEXT TASKBAR | | | | ----------------- | --------------- | | (1) ... etask-min-taskbar-space (2) ... etask-tex-task-height (3) ... etask-tex-taskbar-height (defalias 'etask-tex-calculate-taskbar-space #[nil "\303 !\nZ\304\245]\207" [etask-tex-min-taskbar-space etask-tex-task-height etask-tex-taskbar-height float 2] 3 (#$ . 51355)]) (byte-code "\301\302\303!\207" [etask-tex-loaded-p t provide etask-tex] 2)