search

alezost / guix.el

Emacs interface for GNU Guix package manager
https://emacs-guix.gitlab.io/website/
GNU General Public License v3.0
139 stars 16 forks source link

Can't run guix commands #39

Closed BonfaceKilz closed 3 years ago

BonfaceKilz commented 3 years ago

I'm running emacs27.1 from guix upstream on ArchLinux.

Right now, I can't run guix commands using the emacs interface. When I try to search for a package(guix package-search. I get: Starting GUIX REPL... then: No prompt found. How do I work around this? I have guix and guile:

➜  ~ guix --version
guix (GNU Guix) 99a9aa8f55cfa4117c268acadd81817b6d90e94e
Copyright (C) 2020 the Guix authors

➜  ~  guile --version
guile (GNU Guile) 3.0.4

Does this package work for people on foreign distros?

Ambrevar commented 3 years ago

What is guix package-search?

M-x guix RET p n RET

works for me on Guix System.

BonfaceKilz commented 3 years ago

Sorry, I meant M-x guix-package-by-name. I'm not on a guix system though.

Ambrevar commented 3 years ago

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256

Works for me.

Can you run toggle-debug-on-error and report the stack trace you see when running guix-package-by-name? -----BEGIN PGP SIGNATURE-----

iQFGBAEBCAAwFiEEUPM+LlsMPZAEJKvom9z0l6S7zH8FAl9XnJESHG1haWxAYW1i cmV2YXIueHl6AAoJEJvc9Jeku8x/iJEIAJsELc+oFIfC5+F4CHjN5RL0VqpQ4lfd 3IVFv6csldP1JFJ02T5EVR3lhry37MV5pDKSIZ6h4t5uXhYR22xXSEuHGsAnkcp8 FMqr0Jr1nacTrgAnOgbvbLdaUovHBbVP1aZUyIJN51mKo6YbZMJaIqPGBmFa/IIY XvKn9OCyXaG9sU/N+vwD3Hwqp/52fz3+YJZItsyMTCCtFwf8mkFFnmoFcjQUfWGK PNP5M6E5WUzML6qnHFu3Cs3ZeEA+iSbn5oAywZ/j0SQ3bRzGo/UO5PepPCs0E2o9 vJi/FhR64xNRF5m3sIDDyFkr8Xgw13twPmGMaL8G1p+5bqmjDrM1G8g= =tmkH -----END PGP SIGNATURE-----

BonfaceKilz commented 3 years ago

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256

Pierre Neidhardt notifications@github.com writes:

I'm getting:

Debugger entered--Lisp error: (wrong-type-argument markerp nil)
  marker-position(nil)
  geiser-repl--narrow-to-prompt()
  geiser-repl--wrap-unfontify-region-function(1 382)
  font-lock-unfontify-region(1 382)
  font-lock-default-unfontify-buffer()
  font-lock-unfontify-buffer()
  font-lock-mode-internal(nil)
  font-lock-default-function(nil)
  font-lock-mode(-1)
  font-lock-change-mode()
  kill-all-local-variables()
  comint-mode()
  geiser-repl-mode()
  guix-start-repl(#<buffer *Guix REPL*> nil)
  guix-start-repl-maybe(nil "Starting Guix REPL ..." nil)
  guix-start-process-maybe()
  guix-get-repl-buffer(internal)
  guix-eval-read("(package/output-sexps \"/var/guix/profiles/per-user...")
  guix-output-list-get-entries("/var/guix/profiles/per-user/bonface/guix-profile" regexp "guile" (name))
  apply(guix-output-list-get-entries ("/var/guix/profiles/per-user/bonface/guix-profile" regexp "guile" (name)))
  bui-get-entries(guix-output list ("/var/guix/profiles/per-user/bonface/guix-profile" regexp "guile" (name)))
  guix-package-get-display("/var/guix/profiles/per-user/bonface/guix-profile" regexp "guile" (name))
  guix-search-by-regexp("guile" (name) "/var/guix/profiles/per-user/bonface/guix-profile")
  guix-search-by-name("guile" "/var/guix/profiles/per-user/bonface/guix-profile")
  funcall-interactively(guix-search-by-name "guile" "/var/guix/profiles/per-user/bonface/guix-profile")
  call-interactively(guix-search-by-name record nil)
  command-execute(guix-search-by-name record)
  helm-M-x-execute-command(guix-search-by-name)
  helm-execute-selection-action-1()
  helm-execute-selection-action()
  helm-internal((((name . "Emacs Commands history") (candidates . #f(compiled-function () #<bytecode 0x2e0abcd>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keep...") (must-match . t) (group . helm-command) (match-dynamic . t)) ((name . "Emacs Commands") (candidates . #f(compiled-function () #<bytecode 0x2e51c7d>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keep...") (must-match . t) (group . helm-command) (match-dynamic . t))) nil "M-x " nil nil "*helm M-x*" nil nil helm-M-x-input-history)
  apply(helm-internal ((((name . "Emacs Commands history") (candidates . #f(compiled-function () #<bytecode 0x2e0abcd>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keeping se...") (must-match . t) (group . helm-command) (match-dynamic . t)) ((name . "Emacs Commands") (candidates . #f(compiled-function () #<bytecode 0x2e51c7d>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keeping se...") (must-match . t) (group . helm-command) (match-dynamic . t))) nil "M-x " nil nil "*helm M-x*" nil nil helm-M-x-input-history))
  helm((((name . "Emacs Commands history") (candidates . #f(compiled-function () #<bytecode 0x2e0abcd>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keep...") (must-match . t) (group . helm-command) (match-dynamic . t)) ((name . "Emacs Commands") (candidates . #f(compiled-function () #<bytecode 0x2e51c7d>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keep...") (must-match . t) (group . helm-command) (match-dynamic . t))) nil "M-x " nil nil "*helm M-x*" nil nil helm-M-x-input-history)
  apply(helm ((((name . "Emacs Commands history") (candidates . #f(compiled-function () #<bytecode 0x2e0abcd>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keeping se...") (must-match . t) (group . helm-command) (match-dynamic . t)) ((name . "Emacs Commands") (candidates . #f(compiled-function () #<bytecode 0x2e51c7d>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keeping se...") (must-match . t) (group . helm-command) (match-dynamic . t))) nil "M-x " nil nil "*helm M-x*" nil nil helm-M-x-input-history))
  helm(:sources (((name . "Emacs Commands history") (candidates . #f(compiled-function () #<bytecode 0x2e0abcd>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keep...") (must-match . t) (group . helm-command) (match-dynamic . t)) ((name . "Emacs Commands") (candidates . #f(compiled-function () #<bytecode 0x2e51c7d>)) (keymap keymap (keymap ...) keymap (21 . helm-M-x-universal-argument) keymap (127 . delete-backward-char) (27 keymap ...) (C-return . helm-cr-empty-string) keymap (26 . helm-select-action) (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 . #f(compiled-function () ... #<bytecode 0x13f8d61>)) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) ...) (action . helm-type-command-actions) (persistent-action . helm-M-x-persistent-action) (persistent-help . "Describe this command") (help-message . helm-M-x-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-M-x-transformer-no-sort helm-fuzzy-highlight-matches) (volatile . t) (match . identity) (redisplay . identity) (nomark . t) (coerce . helm-symbolify) (header-line . "C-j: Describe this command (keep...") (must-match . t) (group . helm-command) (match-dynamic . t))) :prompt "M-x " :buffer "*helm M-x*" :history helm-M-x-input-history)
  helm-M-x-read-extended-command([mh-funcall-if-exists connection-failed gnus-agent-summary-mode-map xcb:render:TRAPEZOID helm-candidates-in-buffer xcb:randr:ListProviderProperties~reply xcb:GetScreenSaver~reply--anon-cmacro vc-git-stash-snapshot denied edebug-trace counsel-alias-expand ediff-restore-protected-variables guix-switch-to-buffer-or-funcall cache-buf vc-git-make-version-backups-p extend-region-p xcb:xkb:KeyVModMap-p clearfunsym want nsm-permanent-host-settings xcb:InstallColormap-child-p xcb:render:PictOp--eieio-childp mh-find-seq regex-case counsel-evil-marks-exclude-registers ivy-sort-file-function-default selinux-context counsel-evil-register-face geiser-company--setup geiser-repl--on-quit xcb:icccm:get-WM_ICON_SIZE-list-p post-deadline accessXTimeout geiser-menu--add-item c-mode-var geiser-doc--history-next-link Edebug\ All\ Defs org-duration-format geiser-xref-callees ediff-windows :swank-dependencies helm-grep-mode-jump-other-window-forward mh-msg-num-width-to-column gnus-registry-user-format-function-M problems alert--log-disable-messaging \. helm-buffers--get-tab-from-name s-diffstat-changed-fg actionsCount ...])
  helm-M-x(nil)
  funcall-interactively(helm-M-x nil)
  call-interactively(helm-M-x nil nil)
  command-execute(helm-M-x)

Bonface M. K. (https://www.bonfacemunyoki.com) One Divine Emacs To Rule Them All GPG key = D4F09EB110177E03C28E2FE1F5BBAE1E0392253F -----BEGIN PGP SIGNATURE-----

iQJNBAEBCAA3FiEE1PCesRAXfgPCji/h9buuHgOSJT8FAl9XvdsZHGJvbmZhY2Vt dW55b2tpQGdtYWlsLmNvbQAKCRD1u64eA5IlP6hoD/4xARmP8wZF9CwJjdX2PMEY fKDd2vk93gAW7Hb60q12QNEV8tZudogSuGat3vrUngPsrbVrK7+rQ2OisOocu2gY 3C2/Ou++W8SkFiapsyV4elBygyTJCdpOltI0NG0UvZLAe3zk0MSzYxMAFi3s1/TE glHQlzqi5N7NrGWy9oSG1Y4ruu57DMszLHcD81m6J5KJbZJZ1v/ybIS1+O4QyHyJ e9sZ8A8840maaisH7c1y4Im+ns7tO+W9InSsF0Oeu5IEWwUy4R+GeFl5B/IbqG1V FiR8WfV9UOWbFybsw/fOjrswnXE0DJoTisCU6pOB2a1JBaEKX/JeZJU/MUGlQHNf GKPfkmuJzdoPU6Ujv3kdoKReJjpUuM2aAhNGgVIO/aHYiajtye5EvD7qhsrvAPlJ YfpLSK/JR7SPD5uq1DSZZ2eEpY9s72dn2LujDkVmb0C2ycr9V2aX9PVUFqmZG8Ee KX+juJty/RpnMfNP4jHHYJEpnh50h+fQNzbkXIjw8Pjt9xPtqN+3Z7Mx9qWirfR+ cxFLO5tS3saz5pPsiVyVOS3nTmv+UXPMl8U6smjctX1LBPHOCRskZnJrMJ7My+hs IchjXqGqkvHjUBzhVLArCl/AqPjm3yL58/ikMYOyuWmx0MNu4FsmD9Mp2WVR5V6J 6UzCyfi/fGGjyZlPW7DXLw== =DHi1 -----END PGP SIGNATURE-----

globz commented 3 years ago

Hi,

I also have the exact same issue but for Ubuntu instead of Arch Linux.

I am running the following :

GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.22.30, cairo version 1.15.10) of 2020-09-19

globz@witchesbrew:~$ guile --version
guile (GNU Guile) 2.2.3
Packaged by Debian (2.2.3-deb+1-3ubuntu0.1)

globz@witchesbrew:~$ guix repl
GNU Guile 3.0.4

globz@witchesbrew:~$ guix describe
Generation 1    Oct 10 2020 15:00:03    (current)
  guix e42765b
    repository URL: https://git.savannah.gnu.org/git/guix.git
    branch: master
    commit: e42765b675d5f3fced0720c1a66350c635fd8643
a-sassmannshausen commented 3 years ago

I seem to have the same or a very similar problem. But I am on Guix SD, i.e. native Guix.

I just completed a fresh install from one of the release candidates.

To reproduce:

After this:

Could this be to do with the latest version of guile or emacs?

AitorATuin commented 3 years ago

I got exactly the same problem running on guix SD.

The problem happens because geiser version 0.12 added support for REPLs per projects (https://gitlab.com/jaor/geiser/-/commit/58f569efb327815c968988c2dc82f800c66cdb08) and since emacs-guix does some custom setup of the REPL buffers geiser can not match those them anymore.

Here there is a workaround to keep it working (while a proper fix is committed). Basically it advice the function that sets the scheme implementation in the REPL buffer (called by guix code when creating it) and sets also a project name for GUIX repls.

(defun guix-buffer-p (&optional buffer)
  (let ((buf-name (buffer-name (or buffer (current-buffer)))))
    (not (null (or (string-match "*Guix REPL" buf-name)
           (string-match "*Guix Internal REPL" buf-name))))))

(defun guix-geiser--set-project (&optional _impl _prompt)
  (when (and (eq 'guile geiser-impl--implementation)
         (null geiser-repl--project)
         (guix-buffer-p))
    (geiser-repl--set-this-buffer-project 'guix)))

(advice-add 'geiser-impl--set-buffer-implementation :after #'guix-geiser--set-project)

Tested with:

a-sassmannshausen commented 3 years ago

I can confirm the above works as a workaround.

monkeyjunglejuice commented 3 years ago

Works with:

vdm commented 3 years ago

Works with Ubuntu 18.04, emacs 28.

alezost commented 3 years ago

I think it should work properly now (with the latest commits). If anyone still has some problems, please reopen this issue.

weidtn commented 2 years ago

I have this problem right now even with the fix. Same error and I installed guix on manjaro linux emacs-guix, guile and emacs-native-comp are installed through guix and all paths are set properly

Trisk3lion commented 2 years ago

I have this very same problem as well, emacs-native-comp from guix package manager, running on Debian. The fix that is suggested above doesn't seem to do anything for me.

Stack trace:

Debugger entered--Lisp error: (error "No prompt found!")
  (error "%s" "No prompt found!")
  (geiser-repl--wait-for-prompt 10000)
  (geiser-repl--start-scheme guile nil "\\(^[^@(\n]+@([^)]*)> \\)\\|\\(^[^@(\n]+@([^)]*?) \\[\\([0...")
  (let ((prompt (geiser-con--combined-prompt geiser-guile--prompt-regexp geiser-guile--debugger-prompt-regexp))) (geiser-repl--save-remote-data address) (geiser-repl--start-scheme impl address prompt) (geiser-repl--quit-setup) (geiser-repl--history-setup) (set (make-local-variable 'geiser-repl--repls) (list buffer)) (geiser-repl--set-this-buffer-repl buffer) (setq geiser-repl--connection (geiser-con--make-connection (get-buffer-process (current-buffer)) geiser-guile--prompt-regexp geiser-guile--debugger-prompt-regexp)) (geiser-repl--startup impl address) (geiser-repl--autodoc-mode 1) (geiser-company--setup geiser-repl-company-p) (add-hook 'comint-output-filter-functions 'guix-repl-output-filter nil t) (set-process-query-on-exit-flag (get-buffer-process (current-buffer)) geiser-repl-query-on-kill-p))
  (save-current-buffer (set-buffer buffer) (geiser-repl-mode) (geiser-impl--set-buffer-implementation impl) (geiser-repl--set-this-buffer-project 'guix) (geiser-repl--autodoc-mode -1) (goto-char (point-max)) (let ((prompt (geiser-con--combined-prompt geiser-guile--prompt-regexp geiser-guile--debugger-prompt-regexp))) (geiser-repl--save-remote-data address) (geiser-repl--start-scheme impl address prompt) (geiser-repl--quit-setup) (geiser-repl--history-setup) (set (make-local-variable 'geiser-repl--repls) (list buffer)) (geiser-repl--set-this-buffer-repl buffer) (setq geiser-repl--connection (geiser-con--make-connection (get-buffer-process (current-buffer)) geiser-guile--prompt-regexp geiser-guile--debugger-prompt-regexp)) (geiser-repl--startup impl address) (geiser-repl--autodoc-mode 1) (geiser-company--setup geiser-repl-company-p) (add-hook 'comint-output-filter-functions 'guix-repl-output-filter nil t) (set-process-query-on-exit-flag (get-buffer-process (current-buffer)) geiser-repl-query-on-kill-p)))
  (let ((impl 'guile) (geiser-repl-startup-time guix-repl-startup-time)) (save-current-buffer (set-buffer buffer) (geiser-repl-mode) (geiser-impl--set-buffer-implementation impl) (geiser-repl--set-this-buffer-project 'guix) (geiser-repl--autodoc-mode -1) (goto-char (point-max)) (let ((prompt (geiser-con--combined-prompt geiser-guile--prompt-regexp geiser-guile--debugger-prompt-regexp))) (geiser-repl--save-remote-data address) (geiser-repl--start-scheme impl address prompt) (geiser-repl--quit-setup) (geiser-repl--history-setup) (set (make-local-variable 'geiser-repl--repls) (list buffer)) (geiser-repl--set-this-buffer-repl buffer) (setq geiser-repl--connection (geiser-con--make-connection (get-buffer-process (current-buffer)) geiser-guile--prompt-regexp geiser-guile--debugger-prompt-regexp)) (geiser-repl--startup impl address) (geiser-repl--autodoc-mode 1) (geiser-company--setup geiser-repl-company-p) (add-hook 'comint-output-filter-functions 'guix-repl-output-filter nil t) (set-process-query-on-exit-flag (get-buffer-process (current-buffer)) geiser-repl-query-on-kill-p))))
  (guix-start-repl #<buffer *Guix REPL*> nil)
  (let ((geiser-guile-binary (guix-repl-guile-program internal)) (repl (get-buffer-create (guix-get-repl-buffer-name internal)))) (guix-start-repl repl (and internal guix-repl-current-socket)) (set repl-var repl) (guix-geiser-eval-in-repl-synchronously ",m (emacs-guix)" repl t t) (and end-msg (message end-msg)) (if internal nil (run-hooks 'guix-repl-after-start-hook)))
  (if (and (buffer-live-p repl) (get-buffer-process repl)) nil (and start-msg (message start-msg)) (setq guix-repl-operation-p nil) (if internal nil (guix-repl-delete-socket-maybe) (setq guix-repl-current-socket (and guix-repl-use-server (or guix-repl-current-socket (funcall guix-repl-socket-file-name-function))))) (let ((geiser-guile-binary (guix-repl-guile-program internal)) (repl (get-buffer-create (guix-get-repl-buffer-name internal)))) (guix-start-repl repl (and internal guix-repl-current-socket)) (set repl-var repl) (guix-geiser-eval-in-repl-synchronously ",m (emacs-guix)" repl t t) (and end-msg (message end-msg)) (if internal nil (run-hooks 'guix-repl-after-start-hook))))
  (let* ((repl-var (guix-get-repl-buffer-variable internal)) (repl (symbol-value repl-var)) (default-directory guix-repl-default-directory)) (if (and (buffer-live-p repl) (get-buffer-process repl)) nil (and start-msg (message start-msg)) (setq guix-repl-operation-p nil) (if internal nil (guix-repl-delete-socket-maybe) (setq guix-repl-current-socket (and guix-repl-use-server (or guix-repl-current-socket (funcall guix-repl-socket-file-name-function))))) (let ((geiser-guile-binary (guix-repl-guile-program internal)) (repl (get-buffer-create (guix-get-repl-buffer-name internal)))) (guix-start-repl repl (and internal guix-repl-current-socket)) (set repl-var repl) (guix-geiser-eval-in-repl-synchronously ",m (emacs-guix)" repl t t) (and end-msg (message end-msg)) (if internal nil (run-hooks 'guix-repl-after-start-hook)))))
  (guix-start-repl-maybe nil "Starting Guix REPL ..." nil)
  (guix-start-process-maybe)
  (guix-get-repl-buffer internal)
  (guix-geiser-eval-read str (guix-get-repl-buffer 'internal))
  (let ((result (guix-geiser-eval-read str (guix-get-repl-buffer 'internal)))) (if (and (consp result) (eq (car result) 'in-file)) (guix-guile-read-from-file (cdr result)) result))
  (guix-eval-read "(package-names*)")
  (let ((names (guix-eval-read "(package-names*)"))) (sort (if guix-package-names-use-duplicates names (cl-delete-duplicates names :test #'string=)) #'string<))
  ((lambda nil (let ((names (guix-eval-read "(package-names*)"))) (sort (if guix-package-names-use-duplicates names (cl-delete-duplicates names :test #'string=)) #'string<))))
  (apply (lambda nil (let ((names (guix-eval-read "(package-names*)"))) (sort (if guix-package-names-use-duplicates names (cl-delete-duplicates names :test #'string=)) #'string<))) nil)
  (guix-package-names)
  (funcall guix-package-names)
  (guix-completing-read (or prompt "Package: ") (funcall 'guix-package-names) nil nil initial-contents nil nil)
  (guix-read-package-name-default "Package: " nil)
  (funcall guix-read-package-name-default "Package: " nil)
  (guix-read-package-name "Package: " nil)
  (list (guix-read-package-name "Package: " default-pkg) (guix-ui-read-package-profile))
  (let (default-pkg) (if guix-package-use-name-at-point (progn (let ((at-point (thing-at-point 'symbol t))) (if (stringp at-point) (progn (let (...) (setq default-pkg ...))))))) (list (guix-read-package-name "Package: " default-pkg) (guix-ui-read-package-profile)))
  (magit-invoke-popup-action 110)
  (funcall-interactively magit-invoke-popup-action 110)
  (command-execute magit-invoke-popup-action)