Email contact completion mu4e using org-contacs

mu4e-org-contacs.el

  (defun sp/read-contact-list ()
  "Return a list of email addresses from org-contacts"
  (setq groupscontacts nil)
  (setq contacts nil)
  (setq groups nil)
  (mapcar (lambda (dbrow)
            (let ((contact (elt dbrow 2)))
              (let ((email (cdr (assoc "EMAIL" contact)))
                    (name (cdr (assoc "ITEM" contact)))
                    (groupexp (cdr (assoc "GROUP" contact))))
                (let ((format-email (concat
                                     "\""
                                     name
                                     "\""
                                     " <"
                                     email
                                     ">"
                                     )))
                  ;; Check if contact has a group
                  (if groupexp
                      (progn
                        (mapcar (lambda (group)
                                  (add-to-list 'groupscontacts (append (list group format-email) (cdr (assoc group groupscontacts))))
                                  (if (not (member group groups))
                                      (add-to-list 'groups group)))
                                (mapcar 'string-trim (split-string groupexp ",")))))
                  (if (not (member format-email contacts)) (add-to-list 'contacts format-email)))
                )))
          (org-contacts-db))
  (append (mapcar (lambda (group)
                    (concat
                     "GROUP:<"
                     group
                     "> "
                     (string-join (cdr (assoc group groupscontacts)) ", "))) groups)
          contacts))

  (defun sp/counsel-email-action (qline)
    (with-ivy-window
      (insert (let ((reg "GROUP:<[^>@]*> "))
                    (if (eq (string-match reg qline) 0)
                        (replace-regexp-in-string reg "" qline)
                      qline
                      )))))