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

* src/scm/main.scm (gnc:startup): very ugly hack -- right now we

Browse Source 
switch the current-module briefly during the loads.  This should
go away once the rest of the startup process is cleaned up.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5891 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning
2001-11-16 20:53:52 +00:00
parent 070ba7eba2
commit e2c521088f
1 changed files with 32 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
src/scm/main.scm
View File

@@ -144,32 +144,40 @@
(gnc:module-system-init) (gnc:module-system-init)
;; right now we have to statically load all these at startup time. ;; SUPER UGLY HACK -- this should go away when I come back for the
;; Hopefully we can gradually make them autoloading. ;; second cleanup pass...
(gnc:module-load "gnucash/engine" 0) (let ((original-module (current-module))
(gnc:module-load "gnucash/app-utils" 0) (bootstrap (resolve-module '(gnucash bootstrap))))
(gnc:module-load "gnucash/app-file" 0)
(gnc:module-load "gnucash/register/ledger-core" 0) (set-current-module bootstrap)
(gnc:module-load "gnucash/register/register-core" 0)
(gnc:module-load "gnucash/register/register-gnome" 0) ;; right now we have to statically load all these at startup time.
(gnc:module-load "gnucash/import-export/binary-import" 0) ;; Hopefully we can gradually make them autoloading.
(gnc:module-load "gnucash/import-export/qif-import" 0) (gnc:module-load "gnucash/engine" 0)
(gnc:module-load "gnucash/report/report-system" 0) (gnc:module-load "gnucash/app-utils" 0)
(gnc:module-load "gnucash/report/stylesheets" 0) (gnc:module-load "gnucash/app-file" 0)
(gnc:module-load "gnucash/report/standard-reports" 0) (gnc:module-load "gnucash/register/ledger-core" 0)
(gnc:module-load "gnucash/report/utility-reports" 0) (gnc:module-load "gnucash/register/register-core" 0)
(gnc:module-load "gnucash/report/locale-specific/us" 0) (gnc:module-load "gnucash/register/register-gnome" 0)
(gnc:module-load "gnucash/import-export/binary-import" 0)
(gnc:module-load "gnucash/import-export/qif-import" 0)
(gnc:module-load "gnucash/report/report-system" 0)
(gnc:module-load "gnucash/report/stylesheets" 0)
(gnc:module-load "gnucash/report/standard-reports" 0)
(gnc:module-load "gnucash/report/utility-reports" 0)
(gnc:module-load "gnucash/report/locale-specific/us" 0)
;; Now we can load a bunch of files. ;; Now we can load a bunch of files.
(load-from-path "path.scm") (load-from-path "path.scm")
(load-from-path "command-line.scm") (load-from-path "command-line.scm")
(load-from-path "doc.scm") (load-from-path "doc.scm")
(load-from-path "extensions.scm") (load-from-path "extensions.scm")
(load-from-path "main-window.scm") (load-from-path "main-window.scm")
(load-from-path "tip-of-the-day.scm") (load-from-path "tip-of-the-day.scm")
(load-from-path "printing/print-check.scm") (load-from-path "printing/print-check.scm")
(gnc:use-guile-module-here! '(gnucash price-quotes)) (gnc:use-guile-module-here! '(gnucash price-quotes))
(set-current-module original-module))
(gnc:hook-add-dangler gnc:*book-opened-hook* (gnc:hook-add-dangler gnc:*book-opened-hook*
(lambda (file) (lambda (file)