IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-30 12:44:01 -06:00
Code Issues Packages Projects Releases Wiki Activity

[price-quotes] show if F::Q not installed, remove dead code

Browse Source
This commit is contained in:
Christopher Lam 2019-08-10 23:01:38 +08:00
parent 112cf99d2d
commit fab1c8db3e
1 changed files with 8 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
libgnucash/scm/price-quotes.scm
View File

@ -603,26 +603,15 @@ Run 'gnc-fq-update' as root to install them." "\n")))
(lambda (x) (not (string? x))) (lambda (x) (not (string? x)))
prices))))))) prices)))))))
; (define (get-1-quote exchange . items)
; (let ((cmd (apply list 'fetch exchange items))
; (quoter (run-sub-process #f
; gnc:*finance-quote-helper*
; gnc:*finance-quote-helper*)))
; (and quoter
; (write cmd (caddr quoter))
; (newline (caddr quoter))
; (force-output (caddr quoter))
; (let ((result (read (cadr quoter))))
; (close-input-port (cadr quoter))
; (close-output-port (caddr quoter))
; result))))
(define (gnc:price-quotes-install-sources) (define (gnc:price-quotes-install-sources)
(let ((sources (gnc:fq-check-sources))) (let ((sources (gnc:fq-check-sources)))
(if (list? sources) (cond
(begin ((list? sources)
;; Translators: ~A is the version string ;; Translators: ~A is the version string
(format #t (_ "Found Finance::Quote version ~A.") (car sources)) (format #t (_ "Found Finance::Quote version ~A.") (car sources))
(newline) (newline)
(gnc:msg "Found Finance::Quote version " (car sources)) (gnc:msg "Found Finance::Quote version " (car sources))
(gnc-quote-source-set-fq-installed (car sources) (cdr sources)))))) (gnc-quote-source-set-fq-installed (car sources) (cdr sources)))
(else
(display "No Finance::Quote found\n")
(gnc:msg "No Finance::Quote found")))))