75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
,@(map
(lambda (key)
(cons (car key) (cadr key)))
(keys:target->keyval (rmt:get-keys) target))
,@(map (lambda (var)
(let ((val (configf:lookup *configdat* "custom-context-menu-items" var)))
(cons var val)))
(configf:section-vars *configdat* "env-override"))))
|
|
|
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
,@(map
(lambda (key)
(cons (car key) (cadr key)))
(keys:target->keyval (rmt:get-keys) target))
,@(map (lambda (var)
(let ((val (configf:lookup *configdat* "env-override" var)))
(cons var val)))
(configf:section-vars *configdat* "env-override"))))
|