I am trying to initialize Magit Forge's
forge-alist programatically. Therefore I put together my first couple of emacs-lisp code. It looks like the following:
(let ((gitlab-install (lambda (host) (list host (concat host "/api/v4") host forge-gitlab-repository)))) (dolist (host '("gitlab.example.com" "gitlab.foobar.com")) (print host) (print (funcall gitlab-install host)) (add-to-list 'forge-alist (funcall gitlab-install host))))
Unfortunately it seems that the final
forge-alist has strange entries even though the
(print) statement prints out the entries correctly.
((#1="gitlab.foobar.com" "gitlab.foobar.com/api/v4" #1# forge-gitlab-repository) (#2="gitlab.example.com" "gitlab.example.com/api/v4" #2# forge-gitlab-repository) ...)
What am I doing wrong?