bug#22981: guix-edit does not find git checkout directory

[myglc2 <myglc2@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 2222 bytes --]


Situation: GuixSD sysetm managaed by user glc using a git checkout in
/home/glc/sre/guix.

Problem: When I follow the manual to set up a vanila user (glc5) with a
separate git checkout in /home/glc5/src/guix, guix-edit does not find
the checkout source.

Note: I followed comments from the #guix irc channel to set links in glc
and root that point to the glc checkout:

glc@g1 ~/src/guix [env]$ stat ~/.config/guix/latest
  File: ‘/home/glc/.config/guix/latest’ -> ‘../../src/guix’

glc@g1 ~/src/guix [env]$ stat /root/.config/guix/latest
  File: ‘/root/.config/guix/latest’ -> ‘/home/glc/src/guix’


CREATE USER glc5
================

glc@g1 ~/src/guix$ guix environment guix
glc@g1 ~/src/guix [env]$ ./bootstrap
glc@g1 ~/src/guix [env]$ ./configure --localstatedir=/var && make

glc@g1 ~/src/guix [env]$ git branch -v
* master ff22f01 gnu: dropbear: Update to 2016.72 [fixes CVE-2016-3116].

glc@g1 ~/src/guix [env]$ which guix
/run/current-system/profile/bin/guix

glc@g1 ~/src/guix [env]$ stat /run/current-system/profile/bin/guix
  File: ‘/run/current-system/profile/bin/guix’ ->
  ‘/gnu/store/3lg5c1nidbj0kjdz5b63hn3vp29kzf0s-guix-0.9.0.c3f29bc/bin/guix’

glc@g1 ~/src/guix [env]$ sudo guix system reconfigure ../configs/c05system.scm

USER glc5 test
==============

glc5@g1 ~/src$ which guix
/run/current-system/profile/bin/guix

glc5@g1 ~/src$ stat /run/current-system/profile/bin/guix File:
  ‘/run/current-system/profile/bin/guix’ ->
  ‘/gnu/store/3lg5c1nidbj0kjdz5b63hn3vp29kzf0s-guix-0.9.0.c3f29bc/bin/guix’

glc5@g1 ~/src$ stat ~/.config/guix/latest
stat: cannot stat ‘/home/glc5/.config/guix/latest’: No such file or directory

## set up glc5's environment
glc5@g1 ~/src$ guix package -m glc5.scm 

## customize emacs following "8.3 The Perfect Setup"

glc5@g1 ~/src$ cat ~/.emacs.d/init.el | head -n4
;; from "8.3 The Perfect Setup"
;; Assuming the Guix checkout is in ~/src/guix.
(with-eval-after-load 'geiser-guile
  (add-to-list 'geiser-guile-load-path "~/src/guix"))

## clone guix
glc5@g1 ~/src$ git clone t://git.savannah.gnu.org/guix.git

### run emacs
emacs

M-x guix-edit screen

Problem: This finds read-only screen.src in store rather than in ~/src/guix/...


[-- Attachment #2: c05system.scm --]
[-- Type: application/octet-stream, Size: 1466 bytes --]

(use-modules (gnu))
(use-service-modules networking ssh)
(use-package-modules admin
		     disk
		     )
(operating-system
  (host-name "g1")
  (timezone "America/New_York")
  (locale "en_US.utf8")
  (bootloader (grub-configuration (device "/dev/sda")))
  (file-systems (cons (file-system
			(device "g1sd")
			(title 'label)
			(mount-point "/")
			(type "ext4"))
		      %base-file-systems))
  (users (cons* (user-account
		 (name "glc")
		 (comment "g l c")
		 (group "users")
		 (supplementary-groups '("wheel"))
		 (home-directory "/home/glc"))
		(user-account
		 (name "glc2")
		 (comment "glc2")
		 (group "users")
		 (supplementary-groups '("wheel"))
		 (home-directory "/home/glc2"))
		(user-account
		 (name "glc3")
		 (comment "glc3")
		 (group "users")
		 (supplementary-groups '("wheel"))
		 (home-directory "/home/glc3"))
		(user-account
		 (name "glc4")
		 (comment "glc4")
		 (group "users")
		 (supplementary-groups '("wheel"))
		 (home-directory "/home/glc4"))
		(user-account
		 (name "glc5")
		 (comment "glc5")
		 (group "users")
		 (supplementary-groups '("wheel"))
		 (home-directory "/home/glc5"))
		(user-account
		 (name "glc6")
		 (comment "glc6")
		 (group "users")
		 (supplementary-groups '("wheel"))
		 (home-directory "/home/glc6"))
		%base-user-accounts))
  (packages
   (cons*
    glibc-utf8-locales
    parted
    %base-packages))
  (services (cons* (dhcp-client-service)
		   (lsh-service #:port-number 22)
		   %base-services)))

[-- Attachment #3: glc5.scm --]
[-- Type: application/octet-stream, Size: 289 bytes --]

(use-package-modules
 fonts ;; font-dejavu
 base
 ssh rsync wget screen
 version-control
 emacs
 curl
 xorg certs
 graphviz
 ) 
(packages->manifest
 (list
  font-dejavu
  gnu-make
  openssh nss-certs xauth rsync wget git git-manpages
  emacs magit screen 
  curl ;; lpaste
  graphviz
  ))