IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Eliminate use of gnc:find-file

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@22638 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Geert Janssens
2012-12-12 17:42:33 +00:00
parent cdb4628375
commit c11dfec1d0
3 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/core-utils/core-utils.i
View File

@@ -33,6 +33,9 @@ gchar * gnc_path_get_bindir(void);
%newobject gnc_path_get_stdreportsdir; %newobject gnc_path_get_stdreportsdir;
gchar * gnc_path_get_stdreportsdir(void); gchar * gnc_path_get_stdreportsdir(void);
%newobject gnc_path_find_localized_html_file;
gchar * gnc_path_find_localized_html_file(const gchar *);
gchar * gnc_build_dotgnucash_path(const gchar *); gchar * gnc_build_dotgnucash_path(const gchar *);
gchar * gnc_build_report_path(const gchar *); gchar * gnc_build_report_path(const gchar *);
gchar * gnc_build_stdreports_path(const gchar *); gchar * gnc_build_stdreports_path(const gchar *);

1
src/core-utils/core-utils.scm
View File

@@ -12,6 +12,7 @@
(re-export gnc-is-debugging) (re-export gnc-is-debugging)
(re-export gnc-path-get-bindir) (re-export gnc-path-get-bindir)
(re-export gnc-path-get-stdreportsdir) (re-export gnc-path-get-stdreportsdir)
(re-export gnc-path-find-localized-html-file)
(re-export gnc-build-dotgnucash-path) (re-export gnc-build-dotgnucash-path)
(re-export gnc-build-report-path) (re-export gnc-build-report-path)
(re-export gnc-build-stdreports-path) (re-export gnc-build-stdreports-path)

6
src/report/report-system/html-jqplot.scm
View File

@@ -1,16 +1,16 @@
(load-from-path "doc.scm") (use-modules (gnucash core-utils))
(define (gnc:html-js-include file) (define (gnc:html-js-include file)
(string-append (string-append
"<script language=\"javascript\" type=\"text/javascript\" src=\"" "<script language=\"javascript\" type=\"text/javascript\" src=\""
(gnc:find-file file (gnc:config-var-value-get gnc:*doc-path*)) (gnc-path-find-localized-html-file file)
"\"></script>\n" "\"></script>\n"
)) ))
(define (gnc:html-css-include file) (define (gnc:html-css-include file)
(string-append (string-append
"<link rel=\"stylesheet\" type=\"text/css\" href=\"" "<link rel=\"stylesheet\" type=\"text/css\" href=\""
(gnc:find-file file (gnc:config-var-value-get gnc:*doc-path*)) (gnc-path-find-localized-html-file file)
"\" />\n" "\" />\n"
)) ))