71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
(list key targ))
keys targtweaked)))
;;======================================================================
;; config file related routines
;;======================================================================
(define keys:config-get-fields common:get-fields)
(define (keys:make-key/field-string confdat)
(let ((fields (configf:get-section confdat "fields")))
(string-join
(map (lambda (field)(conc (car field) " " (cadr field)))
fields)
",")))
|
|
|
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
(list key targ))
keys targtweaked)))
;;======================================================================
;; config file related routines
;;======================================================================
;; (define keys:config-get-fields common:get-fields)
(define (keys:make-key/field-string confdat)
(let ((fields (configf:get-section confdat "fields")))
(string-join
(map (lambda (field)(conc (car field) " " (cadr field)))
fields)
",")))
|