Re: Looping lists through mapcar

[Emanuel Berg]

uzibalqa wrote:

>> I cannot understand.  Provide exactly what you mean.
>
> Here is what I mean. When I have many alists
> (`andromeda-assoc-table-N' where `N' is a numeric value with
> say `N' being from 1 to 57), I want to avoid having to write
> them all down inside the function `andromeda-translate'.
>
> (defvar nscrip '())
>
> (defconst andromeda-assoc-table-1
>   '( ("OrycteropusAfer" . "Aardvark")  
>      ("VicugnaPacos" . "Alpaca") 
>      ("MyrmecophagaTridactyla" . "Anteater") ))
>
> (defconst andromeda-assoc-table-2
>   '( ("Dasypodidae" . "Armadillo")  
>      ("TaxideaTaxus" . "Badger")
>      ("Beaver" . "Beaver") ))
>
> (defconst andromeda-assoc-table-3
>   '( ("LynxRufus" . "Bobcat")
>      ("LepomisMacrochirus" . "Bluegill")
>      ("RangiferTarandus" . "Caribou") ))
>
> (defun andromeda-translate ()
>   "Shorten word at point according to specific rules."
>
>   (interactive)
>
>   (let* ( (bounds  (bounds-of-thing-at-point 'word))
>       (word (downcase (buffer-substring (car bounds) (cdr bounds))))
>       (rplc "") )
>
>     (goto-char (car bounds))
>     (add-to-list 'nscrip word)
>
>     (dolist (aggr (list andromeda-assoc-table-1
>                         andromeda-assoc-table-2
>                         andromeda-assoc-table-3))
>       (setq rplc (cdr (assoc word aggr)))
>       (unless (null rplc)
>          (add-to-list 'nscrip
>              (replace-regexp-in-string word rplc word)))) ))

Unheard of :)

-- 
underground experts united
https://dataswamp.org/~incal