At Tue, 4 Jul 2023 09:56:59 -0400 (EDT) Robert Heller <hel...@deepsoft.com>
wrote:
>
> OK, I've given up. I'm going to write a Tcl program to post process the
> default HTML export and create a LaTeX file. There is some serious things
> broken that I cannot figure out.
Actually, I am going to write a Python program (yech) to create the LaTeX
file and totally give up on printing Invoices from the GnuCash GUI.
>
> At Mon, 3 Jul 2023 18:57:17 -0700 Vincent Dawans <dawa...@gmail.com> wrote:
>
> >
> > HI Robert:
> >
> > Here are a few things you need to change:
> >
> > That very last statement (gnc:make-html-style-sheet "DWS_Stylesheet" (N_
> > "DWS Stylesheet")) the first parameter is actually the template name
> > defined just above, so it should be "DWS Stylesheet" without the
> > underscore. The second parameter is the name of the default stylesheet
> > created based on that template. You can use the same name as the template
> > or you could call your Template "DWS Template" both here and above, as in:
> >
> > (gnc:define-html-style-sheet
> > 'version 3.0
> > 'name (N_ "DWS Template")
> > 'renderer dws-renderer
> > 'options-generator dws-options)
> >
> > (gnc:make-html-style-sheet "DWS Template" (N_ "DWS Stylesheet"))
> >
> > I would also advise you put your code in a separate scm file, for instance
> > dws.scm, then store it in the USER_DATA directory .local/share/gnucash and
> > load it from config-user.scm by adding
> >
> > (load (gnc-build-userdata-path "dws.scm"))
> >
> > Finally, possibly you are hitting a bug with the inability to save or there
> > is something I don't know about loading the template because I have the
> > same problem. Actually it's saving fine, you can see it in
> > local/share/gnucash/stylesheets-2.0. It's the loading that's not working. I
> > am wondering if it's not trying to load the saved stylesheet before running
> > config-user.scm and therefore not finding it or something like that. But if
> > I put the scm file directly in the main template directory under gnucash
> > then it works, it's loading the saved settings, so that's a work-around.
> > You don't load it in config-user.scm; instead you copy the file to
> >
> > <gnucash install
> > dir>/gnucash/share/guile/site/2.2/gnucash/report/stylesheets/
> >
> > Sincerely,
> >
> > Vincent Dawans
> >
> > Then it saves fine for me.
> >
> >
> >
> >
> > On Mon, Jul 3, 2023 at
> > 7:17ÃÂÃÂÃÂâÃÂÃÂÃÂÃÂÃÂÃÂÃÂïAM Robert Heller
> > <hel...@deepsoft.com> wrote:
> >
> > >
> > > I have written a style sheet module and it *seems* to be loading now, but
> > > things are wonky any I don't know why.
> > >
> > > What I am *trying to go:
> > >
> > > 1) Put my company letterhead across the top of the invoice
> > > 2) Put a "button image" (Payments by PayPal) under the invoice table.
> > >
> > > My custom stylesheet code adds two options: the button image and some
> > > (optional) text to put under the button image (typically the e-mail
> > > address to
> > > use as the payment target).
> > >
> > > Several things are not working:
> > >
> > > If I use the Edit->Style Sheets options and create a new stylesheet from
> > > my
> > > template, the addition options are not available (why?) If I just edit the
> > > template itselt (with Edit->Style Sheets) I can set the header image and
> > > the
> > > button image, and the header image shows up, but not the button image
> > > (why?),
> > > and the options not saved across runs (why?).
> > >
> > > This code used to work just fine with V 2.6. What has changed? What do I
> > > need to change? The attached code was copied and modified from the V4.14
> > > source tree (footer.scm), but obviously something is wrong somewhere.
> > >
> > >
> > > ;;*****************************************************************************
> > > ;;
> > > ;; System :
> > > ;; Module :
> > > ;; Object Name : $RCSfile$
> > > ;; Revision : $Revision$
> > > ;; Date : $Date$
> > > ;; Author : $Author$
> > > ;; Created By : Robert Heller
> > > ;; Created : Sun Jul 2 15:09:23 2023
> > > ;; Last Modified : <230703.1014>
> > > ;;
> > > ;; Description
> > > ;;
> > > ;; Notes
> > > ;;
> > > ;; History
> > > ;;
> > >
> > > ;;*****************************************************************************
> > > ;;# @copyright
> > > ;; Copyright (C) 2023 Robert Heller D/B/A Deepwoods Software
> > > ;; 51 Locke Hill Road
> > > ;; Wendell, MA 01379-9728
> > > ;;
> > > ;; This program is free software; you can redistribute it and/or modify
> > > ;; it under the terms of the GNU General Public License as published by
> > > ;; the Free Software Foundation; either version 2 of the License, or
> > > ;; (at your option) any later version.
> > > ;;
> > > ;; This program is distributed in the hope that it will be useful,
> > > ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
> > > ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> > > ;; GNU General Public License for more details.
> > > ;;
> > > ;; You should have received a copy of the GNU General Public License
> > > ;; along with this program; if not, write to the Free Software
> > > ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
> > > ;; @file dws-stylesheet.scm
> > > ;; @author Robert Heller
> > > ;; @date Sun Jul 2 15:09:23 2023
> > > ;;
> > > ;;
> > >
> > > ;;*****************************************************************************
> > >
> > > (define-module (gnucash report stylesheets DWS))
> > >
> > > (use-modules (gnucash engine))
> > > (use-modules (gnucash utilities))
> > > (use-modules (gnucash core-utils))
> > > (use-modules (gnucash app-utils))
> > > (use-modules (gnucash report))
> > > (use-modules (gnucash html))
> > >
> > > (define (dws-options)
> > > (let* ((options (gnc:new-options))
> > > (opt-register
> > > (lambda (opt)
> > > (gnc:register-option options opt))))
> > >
> > > (opt-register
> > > (gnc:make-string-option
> > > (N_ "General")
> > > (N_ "Preparer") "a"
> > > (N_ "Name of person preparing the report.")
> > > ""))
> > >
> > > (opt-register
> > > (gnc:make-string-option
> > > (N_ "General")
> > > (N_ "Prepared for") "b"
> > > (N_ "Name of organization or company prepared for.")
> > > ""))
> > >
> > > (opt-register
> > > (gnc:make-simple-boolean-option
> > > (N_ "General")
> > > (N_ "Show preparer info") "c"
> > > (N_ "Name of organization or company.")
> > > #f))
> > >
> > > (opt-register
> > > (gnc:make-simple-boolean-option
> > > (N_ "General")
> > > (N_ "Enable Links") "d"
> > > (N_ "Enable hyperlinks in reports.")
> > > #t))
> > >
> > > (opt-register
> > > (gnc:make-text-option
> > > (N_ "General")
> > > (N_ "Footer") "e"
> > > (N_ "String to be placed as a footer.")
> > > ""))
> > >
> > > (opt-register
> > > (gnc:make-pixmap-option
> > > (N_ "Images")
> > > (N_ "Background Tile") "a" (N_ "Background tile for reports.")
> > > ""))
> > >
> > > (opt-register
> > > (gnc:make-pixmap-option
> > > (N_ "Images")
> > > ;;; Translators: Banner is an image like Logo.
> > > (N_ "Heading Banner") "b" (N_ "Banner for top of report.")
> > > ""))
> > >
> > > (opt-register
> > > (gnc:make-multichoice-option
> > > (N_ "Images")
> > > (N_ "Heading Alignment") "c" (N_ "Banner for top of report.")
> > > 'left
> > > (list (vector 'left (N_ "Left"))
> > > (vector 'center (N_ "Center"))
> > > (vector 'right (N_ "Right")))))
> > >
> > > (opt-register
> > > (gnc:make-pixmap-option
> > > (N_ "Images")
> > > (N_ "Logo") "d" (N_ "Company logo image.")
> > > ""))
> > >
> > > ;; RPH Mon Oct 8 10:46:26 2007
> > > ;; Button image and associated text options
> > > (opt-register
> > > (gnc:make-pixmap-option
> > > (N_ "Images")
> > > (N_ "Button Image") "e" (N_ "Button image.")
> > > ""))
> > > (opt-register
> > > (gnc:make-string-option
> > > (N_ "Images")
> > > (N_ "Button Image Text") "f" (N_ "Text to place under Button
> > > Image.")
> > > ""))
> > >
> > > (opt-register
> > > (gnc:make-color-option
> > > (N_ "Colors")
> > > (N_ "Background Color") "a" (N_ "General background color for
> > > report.")
> > > (list #xff #xff #xff #xff)
> > > 255 #f))
> > >
> > > (opt-register
> > > (gnc:make-color-option
> > > (N_ "Colors")
> > > (N_ "Text Color") "b" (N_ "Normal body text color.")
> > > (list #x00 #x00 #x00 #xff)
> > > 255 #f))
> > >
> > > (opt-register
> > > (gnc:make-color-option
> > > (N_ "Colors")
> > > (N_ "Link Color") "c" (N_ "Link text color.")
> > > (list #xb2 #x22 #x22 #xff)
> > > 255 #f))
> > >
> > > (opt-register
> > > (gnc:make-color-option
> > > (N_ "Colors")
> > > (N_ "Table Cell Color") "c" (N_ "Default background for table
> > > cells.")
> > > (list #xff #xff #xff #xff)
> > > 255 #f))
> > >
> > > (opt-register
> > > (gnc:make-color-option
> > > (N_ "Colors")
> > > (N_ "Alternate Table Cell Color") "d"
> > > (N_ "Default alternate background for table cells.")
> > > (list #xff #xff #xff #xff)
> > > 255 #f))
> > >
> > > (opt-register
> > > (gnc:make-color-option
> > > (N_ "Colors")
> > > (N_ "Subheading/Subtotal Cell Color") "e"
> > > (N_ "Default color for subtotal rows.")
> > > (list #xee #xe8 #xaa #xff)
> > > 255 #f))
> > >
> > > (opt-register
> > > (gnc:make-color-option
> > > (N_ "Colors")
> > > (N_ "Sub-subheading/total Cell Color") "f"
> > > (N_ "Color for subsubtotals.")
> > > (list #xfa #xfa #xd2 #xff)
> > > 255 #f))
> > >
> > > (opt-register
> > > (gnc:make-color-option
> > > (N_ "Colors")
> > > (N_ "Grand Total Cell Color") "g"
> > > (N_ "Color for grand totals.")
> > > (list #xff #xff #x00 #xff)
> > > 255 #f))
> > >
> > > (opt-register
> > > (gnc:make-number-range-option
> > > (N_ "Tables")
> > > (N_ "Table cell spacing") "a" (N_ "Space between table cells.")
> > > 1 0 20 0 1))
> > >
> > > (opt-register
> > > (gnc:make-number-range-option
> > > (N_ "Tables")
> > > (N_ "Table cell padding") "b" (N_ "Space between table cell edge and
> > > content.")
> > > 1 0 20 0 1))
> > >
> > > (opt-register
> > > (gnc:make-number-range-option
> > > (N_ "Tables")
> > > (N_ "Table border width") "c" (N_ "Bevel depth on tables.")
> > > 1 0 20 0 1))
> > > (register-font-options options)
> > >
> > > options))
> > >
> > > (define (dws-renderer options doc)
> > > (let* ((ssdoc (gnc:make-html-document))
> > > (opt-val
> > > (lambda (section name)
> > > (gnc:option-value
> > > (gnc:lookup-option options section name))))
> > > (color-val
> > > (lambda (section name)
> > > (gnc:color-option->html
> > > (gnc:lookup-option options section name))))
> > > (preparer (opt-val "General" "Preparer"))
> > > (prepared-for (opt-val "General" "Prepared for"))
> > > (show-preparer? (opt-val "General" "Show preparer info"))
> > > (links? (opt-val "General" "Enable Links"))
> > > (footer-text (opt-val "General" "Footer"))
> > > (bgcolor (color-val "Colors" "Background Color"))
> > > (textcolor (color-val "Colors" "Text Color"))
> > > (linkcolor (color-val "Colors" "Link Color"))
> > > (normal-row-color (color-val "Colors" "Table Cell Color"))
> > > (alternate-row-color (color-val "Colors" "Alternate Table Cell
> > > Color"))
> > > (primary-subheading-color
> > > (color-val "Colors" "Subheading/Subtotal Cell Color"))
> > > (secondary-subheading-color
> > > (color-val "Colors" "Sub-subheading/total Cell Color"))
> > > (grand-total-color (color-val "Colors" "Grand Total Cell Color"))
> > > (bgpixmap (opt-val "Images" "Background Tile"))
> > > (headpixmap (opt-val "Images" "Heading Banner"))
> > > (logopixmap (opt-val "Images" "Logo"))
> > > ;; Fetch Button image options
> > > (buttonpixmap (opt-val (N_ "Images") (N_ "Button Image")))
> > > (buttontext (opt-val (N_ "Images") (N_ "Button Image Text")))
> > > (align (gnc:value->string (opt-val "Images" "Heading
> > > Alignment")))
> > > (spacing (opt-val "Tables" "Table cell spacing"))
> > > (padding (opt-val "Tables" "Table cell padding"))
> > > (border (opt-val "Tables" "Table border width")))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "body"
> > > 'attribute (list "bgcolor" bgcolor)
> > > 'attribute (list "text" textcolor)
> > > 'attribute (list "link" linkcolor))
> > > ;;;;
> > > ;;;;
> > > ;;;;
> > > (gnc:html-document-set-style!
> > > ssdoc "column-heading-left"
> > > 'tag "th"
> > > 'attribute (list "class" "column-heading-left"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "column-heading-center"
> > > 'tag "th"
> > > 'attribute (list "class" "column-heading-center"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "column-heading-right"
> > > 'tag "th"
> > > 'attribute (list "class" "column-heading-right"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "date-cell"
> > > 'tag "td"
> > > 'attribute (list "class" "date-cell"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "anchor-cell"
> > > 'tag "td"
> > > 'attribute (list "class" "anchor-cell"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "number-cell"
> > > 'tag "td"
> > > 'attribute (list "class" "number-cell"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "number-cell-neg"
> > > 'tag "td"
> > > 'attribute (list "class" "number-cell neg"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "number-header"
> > > 'tag "th"
> > > 'attribute (list "class" "number-header"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "text-cell"
> > > 'tag "td"
> > > 'attribute (list "class" "text-cell"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "total-number-cell"
> > > 'tag '("td")
> > > 'attribute (list "class" "total-number-cell"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "total-number-cell-neg"
> > > 'tag '("td")
> > > 'attribute (list "class" "total-number-cell neg"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "total-label-cell"
> > > 'tag '("td")
> > > 'attribute (list "class" "total-label-cell"))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "centered-label-cell"
> > > 'tag '("td")
> > > 'attribute (list "class" "centered-label-cell"))
> > >
> > > (if (and bgpixmap
> > > (not (string=? bgpixmap "")))
> > > (gnc:html-document-set-style!
> > > ssdoc "body"
> > > 'attribute (list "background" (make-file-url bgpixmap))))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "table"
> > > 'attribute (list "border" border)
> > > 'attribute (list "cellspacing" spacing)
> > > 'attribute (list "cellpadding" padding))
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "normal-row"
> > > 'attribute (list "bgcolor" normal-row-color)
> > > 'tag "tr")
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "alternate-row"
> > > 'attribute (list "bgcolor" alternate-row-color)
> > > 'tag "tr")
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "primary-subheading"
> > > 'attribute (list "bgcolor" primary-subheading-color)
> > > 'tag "tr")
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "secondary-subheading"
> > > 'attribute (list "bgcolor" secondary-subheading-color)
> > > 'tag "tr")
> > >
> > > (gnc:html-document-set-style!
> > > ssdoc "grand-total"
> > > 'attribute (list "bgcolor" grand-total-color)
> > > 'tag "tr")
> > >
> > > ;; don't surround marked-up links with <a> </a>
> > > (if (not links?)
> > > (gnc:html-document-set-style!
> > > ssdoc "a" 'tag ""))
> > >
> > > (add-css-information-to-doc options ssdoc doc)
> > >
> > > (let ((t (gnc:make-html-table))
> > > ;; set the header column to be the 2nd when we have a logo
> > > ;; do this so that when logo is not present, the document is
> > > ;; perfectly centered
> > > (headcolumn (if (and logopixmap (> (string-length logopixmap)
> > > 0))
> > > 1 0)))
> > >
> > > ;; we don't want a bevel for this table, but we don't want
> > > ;; that to propagate
> > > (gnc:html-table-set-style!
> > > t "table"
> > > 'attribute (list "border" 0)
> > > 'attribute (list "style" "margin-left:auto; margin-right:auto")
> > > 'inheritable? #f)
> > >
> > > (let* ((headline (or (gnc:html-document-headline doc)
> > > (gnc:html-document-title doc))))
> > >
> > > (gnc:html-table-set-cell!
> > > t 1 headcolumn
> > > (if show-preparer?
> > > ;; title plus preparer info
> > > (gnc:make-html-text
> > > (gnc:html-markup-h3 headline)
> > > (gnc:html-markup-br)
> > > (G_ "Prepared by: ")
> > > (gnc:html-markup-b preparer)
> > > (gnc:html-markup-br)
> > > (G_ "Prepared for: ")
> > > (gnc:html-markup-b prepared-for)
> > > (gnc:html-markup-br)
> > > (G_ "Date: ")
> > > (qof-print-date
> > > (current-time)))
> > >
> > > ;; title only
> > > (gnc:make-html-text
> > > (gnc:html-markup-h3 headline)))))
> > >
> > > ;; only setup an image if we specified one
> > > (if (and logopixmap (> (string-length logopixmap) 0))
> > > (gnc:html-table-set-cell!
> > > t 0 0
> > > (gnc:make-html-text
> > > (gnc:html-markup-img (make-file-url logopixmap)))))
> > >
> > > (display "*** headpixmap is ")(display headpixmap)(newline)
> > > (if (and headpixmap (> (string-length headpixmap) 0))
> > > (let* ((div (gnc:html-markup-img (make-file-url headpixmap)))
> > > (cell (gnc:make-html-table-cell (gnc:make-html-text
> > > div))))
> > > (gnc:html-table-cell-set-style! cell "td" 'attribute `("align"
> > > ,align))
> > > (gnc:html-table-set-cell! t 0 headcolumn cell))
> > > (gnc:html-table-set-cell! t 0 headcolumn (gnc:make-html-text "
> > > ")))
> > >
> > > (apply
> > > gnc:html-table-set-cell!
> > > t 2 headcolumn
> > > (gnc:html-document-objects doc))
> > >
> > > (display "*** buttonpixmap is ")(display buttonpixmap)(newline)
> > > (display "*** buttontext is ")(display buttontext)(newline)
> > > (if (and buttonpixmap
> > > (not (string=? buttonpixmap "")))
> > > (gnc:html-table-set-cell!
> > > t 0 headcolumn
> > > (gnc:make-html-text
> > > (gnc:html-markup-img (make-file-url buttonpixmap))
> > > ;; Include additional text (typically E-Mail address used
> > > for
> > > ;; PayPal payments.
> > > (if (and buttontext (not (string=? buttontext "")))
> > > (string-append "<BR>" buttontext "<BR>") ) )) )
> > > (gnc:html-document-add-object! ssdoc t)
> > >
> > > (gnc:html-table-set-cell!
> > > t 3 headcolumn
> > > (gnc:make-html-text footer-text)))
> > > ssdoc))
> > >
> > > (gnc:define-html-style-sheet
> > > 'version 3.0
> > > 'name (N_ "DWS Stylesheet")
> > > 'renderer dws-renderer
> > > 'options-generator dws-options)
> > >
> > > (gnc:make-html-style-sheet "DWS_Stylesheet" (N_ "DWS Stylesheet"))
> > >
> > >
> > >
> > > --
> > > Robert Heller -- Cell: 413-658-7953 GV: 978-633-5364
> > > Deepwoods Software -- Custom Software Services
> > > http://www.deepsoft.com/ -- Linux Administration Services
> > > hel...@deepsoft.com -- Webhosting Services
> > >
> > > _______________________________________________
> > > gnucash-user mailing list
> > > gnucash-user@gnucash.org
> > > To update your subscription preferences or to unsubscribe:
> > > https://lists.gnucash.org/mailman/listinfo/gnucash-user
> > > -----
> > > Please remember to CC this list on all your replies.
> > > You can do this by using Reply-To-List or Reply-All.
> > >
> >
> >
> >
> >
>
--
Robert Heller -- Cell: 413-658-7953 GV: 978-633-5364
Deepwoods Software -- Custom Software Services
http://www.deepsoft.com/ -- Linux Administration Services
hel...@deepsoft.com -- Webhosting Services
_______________________________________________
gnucash-user mailing list
gnucash-user@gnucash.org
To update your subscription preferences or to unsubscribe:
https://lists.gnucash.org/mailman/listinfo/gnucash-user
-----
Please remember to CC this list on all your replies.
You can do this by using Reply-To-List or Reply-All.
