Topic: make a function

[AIberto]

_1$ (setq item "HKEY_CURRENT_USER\\Software\\Data")
      (mapcar '(lambda (x) (vl-registry-read item x)) (vl-registry-descendents item ""))

returns
("134" "500" "530" "540" )

I don't know what is  this  value ?  I need know keynmame

so
_1$(setq item "HKEY_CURRENT_USER\\Software\\Data")
     (mapcar '(lambda (x) (list x (vl-registry-read item x))) (vl-registry-descendents item ""))   

returns
(("Width" "134") ("Length1" "500") ("Length3" "530") ("Length2" "540"))


Is it possible? Defined a Function

( defun get_reg_lst ( patch keylist) 
.........
..........
..........

call :
(get_reg_lst  item  '(Length1  Length2 Length3))

returns
( "500" "540" "530" )

[kpblc]

(setq item "HKEY_CURRENT_USER\\Software\\Data")
(mapcar '(lambda (x) (cons x (vl-registry-read item x))) (vl-registry-descendents item ""))

[AIberto]

(setq item "HKEY_CURRENT_USER\\Software\\Data")
(mapcar '(lambda (x) (cons x (vl-registry-read item x))) (vl-registry-descendents item ""))

Not I want ,

Hi kpblc ,You didn't see this one ? It's the same.

so
_1$(setq item "HKEY_CURRENT_USER\\Software\\Data")
     (mapcar '(lambda (x) (list x (vl-registry-read item x))) (vl-registry-descendents item ""))   

returns
(("Width" "134") ("Length1" "500") ("Length3" "530") ("Length2" "540"))

This is I want.
( defun get_reg_lst ( patch keylist) 
.........
..........
..........

call :
(get_reg_lst  item  '(Length1  Length2 Length3))

returns
( "500" "540" "530" )

[kpblc]

There are many ways to get what you want:

Code: [Select]

(setq item "HKEY_CURRENT_USER\\Software\\Data"
      lst  '("Length1" "Length2" "Length3")
      ) ;_ end of setq

(vl-remove-if-not
  (function
    (lambda (x)
      (member (car x) lst)
      ) ;_ end of lambda
    ) ;_ end of function
  (mapcar '(lambda (x) (cons x (vl-registry-read item x))) (vl-registry-descendents item ""))
  ) ;_ end of vl-remove-if-not

Code: [Select]

(mapcar
  (function
    (lambda (key)
      (cons key (vl-registry-read item key))
      ) ;_ end of lambda
    ) ;_ end of function
  '("Length1" "Length2" "Length3")
  ) ;_ end of mapcarand more ways. Unfortunally i have no time to write them (and i think you can create some more ways and codes )

[AIberto]

There are many ways to get what you want:

Code: [Select]

(setq item "HKEY_CURRENT_USER\\Software\\Data"
      lst  '("Length1" "Length2" "Length3")
      ) ;_ end of setq

(vl-remove-if-not
  (function
    (lambda (x)
      (member (car x) lst)
      ) ;_ end of lambda
    ) ;_ end of function
  (mapcar '(lambda (x) (cons x (vl-registry-read item x))) (vl-registry-descendents item ""))
  ) ;_ end of vl-remove-if-not

Code: [Select]

(mapcar
  (function
    (lambda (key)
      (cons key (vl-registry-read item key))
      ) ;_ end of lambda
    ) ;_ end of function
  '("Length1" "Length2" "Length3")
  ) ;_ end of mapcarand more ways. Unfortunally i have no time to write them (and i think you can create some more ways and codes )

Thank you kpblc

Code - Auto/Visual Lisp: [Select]

1.   (mapcar 'cdr(mapcar
2.   (function
3.     (lambda (key)
4.       (cons key (vl-registry-read item key))
5.       )
6.     )
7.   '("Length1" "Length2" "Length3")
8.   ))
9.  
10. ("100" "200" "300")
11.  

[kpblc]

you can make code more simple:

Code: [Select]

(mapcar
  (function
    (lambda (key)
      (vl-registry-read item key)
      ) ;_ end of lambda
    ) ;_ end of function
  '("Length1" "Length2" "Length3")
  ) ;_ end of mapcarBut i prefer to proceed with dotpairs and use assoc function: codes used this method are more scalable and clear.