dirnam nnir-wais-remove-prefix))
(setq group (substitute ?. ?/ (replace-match "" t t dirnam)))
(push (vector group
- (string-to-int artno)
- (string-to-int score))
+ (string-to-number artno)
+ (string-to-number score))
artlist))
(message "Massaging waissearch output...done")
(apply 'vector
(setq group (substitute ?. ?/ (match-string 1 article)))
(setq article-num (match-string 2 article))
(setq artlist (vconcat artlist (vector (vector group
- (string-to-int article-num)
+ (string-to-number article-num)
1000)))))
(message "Gathering query output...done")
artlist)))
(setq group (substitute ?. ?\\ group))
(push (vector group
- (string-to-int artno)
- (string-to-int score))
+ (string-to-number artno)
+ (string-to-number score))
artlist)))))
(message "Massaging swish++ output...done")
(setq group (substitute ?. ?\\ group))
(push (vector group
- (string-to-int artno)
- (string-to-int score))
+ (string-to-number artno)
+ (string-to-number score))
artlist))))
(message "Massaging swish-e output...done")
;; stuff results into artlist vector
(push (vector (substitute ?. ?/ group)
- (string-to-int article)
- (string-to-int score)) artlist)))
+ (string-to-number article)
+ (string-to-number score)) artlist)))
;; sort artlist by score
(apply 'vector