Suggest improve emacs setting in 'The Perfect Setup'

Suggest improve emacs setting in 'The Perfect Setup'

[Feng Shu]

Hello:

In 'The Perfect Setup', we suggest user to use the below emacs config:

```
;; Assuming the Guix checkout is in ~/src/guix.
(with-eval-after-load 'geiser-guile
  (add-to-list 'geiser-guile-load-path "~/src/guix"))
```

This config need user to deal with %load-path of guix, which seem to be
a hard job for new guile user for many dirs of guix and other guix channels,
why not suggest new user to use the below config:

```
(setq geiser-guile-binary (list "guix" "repl"))
```

or:

```
(setq geiser-guile-binary (list "guix" "repl" "-L" "/path/to/user-own-config-dir"))
```

when user just want to develop his own guix config, just run:

```
emacs
```

guix and other channels installed by 'guix pull' will be used properly.

when user want to develop in guix.git, he just run emacs like the below:

```
./pre-inst-env emacs
```

The below is my guix emacs config, seem to work:

--------------------------------------------------------------------------------

(require 'geiser)
(require 'geiser-guile)
(require 'guix)
(require 'magit)

;; ** My own guix config.
(defvar eh-geeguix-dir (expand-file-name "~/geeguix"))

;; ** Let geiser-guile use 'guix repl'
(setq geiser-guile-binary (list "guix" "repl" "-L" eh-geeguix-dir))

;; ** guix-devel-mode
(add-hook 'scheme-mode-hook #'guix-devel-mode)

;; ** Get guix dir installed by 'guix pull'.
(defun eh-guix-dir ()
  (file-name-as-directory
   (cl-find-if
    (lambda (dir)
      (file-exists-p (expand-file-name "guix.scm" dir)))
    (directory-files
     (expand-file-name "~/.cache/guix/checkouts/")
     t))))

;; ** copyright-update
(when (eh-guix-dir)
  (let* ((dir (eh-guix-dir))
         (file (expand-file-name "etc/copyright.el" dir)))
    (when (file-exists-p file)
      (load-file file)
      ;; (add-hook 'after-save-hook 'copyright-update)
      (setq copyright-names-regexp
            (format "%s <%s>" user-full-name user-mail-address)))))

;; ** tempel 
(when (eh-guix-dir)
  (let* ((dir (eh-guix-dir))
         (path (expand-file-name "etc/snippets/tempel/*" dir)))
    (add-to-list 'tempel-path path)))



-- 

Re: Suggest improve emacs setting in 'The Perfect Setup'

[Joshua Branson]

Feng Shu <tumashu@163.com> writes:

> Hello:
>
> In 'The Perfect Setup', we suggest user to use the below emacs config:
>
> ```
> ;; Assuming the Guix checkout is in ~/src/guix.
> (with-eval-after-load 'geiser-guile
>   (add-to-list 'geiser-guile-load-path "~/src/guix"))
> ```
>
> This config need user to deal with %load-path of guix, which seem to be
> a hard job for new guile user for many dirs of guix and other guix channels,
> why not suggest new user to use the below config:
>

How about you go ahead and make a patch on guix-patches@gnu.org, that
way this issue is not forgotten?

>
> ```
> (setq geiser-guile-binary (list "guix" "repl"))
> ```
>
>
> or:
>
> ```
> (setq geiser-guile-binary (list "guix" "repl" "-L" "/path/to/user-own-config-dir"))
> ```
>
> when user just want to develop his own guix config, just run:
>
> ```
> emacs
> ```
>
> guix and other channels installed by 'guix pull' will be used properly.
>
> when user want to develop in guix.git, he just run emacs like the below:
>
> ```
> ./pre-inst-env emacs
> ```
>
> The below is my guix emacs config, seem to work:
>
> --------------------------------------------------------------------------------
>
> (require 'geiser)
> (require 'geiser-guile)
> (require 'guix)
> (require 'magit)
>
> ;; ** My own guix config.
> (defvar eh-geeguix-dir (expand-file-name "~/geeguix"))
>
> ;; ** Let geiser-guile use 'guix repl'
> (setq geiser-guile-binary (list "guix" "repl" "-L" eh-geeguix-dir))
>
> ;; ** guix-devel-mode
> (add-hook 'scheme-mode-hook #'guix-devel-mode)
>
> ;; ** Get guix dir installed by 'guix pull'.
> (defun eh-guix-dir ()
>   (file-name-as-directory
>    (cl-find-if
>     (lambda (dir)
>       (file-exists-p (expand-file-name "guix.scm" dir)))
>     (directory-files
>      (expand-file-name "~/.cache/guix/checkouts/")
>      t))))
>
> ;; ** copyright-update
> (when (eh-guix-dir)
>   (let* ((dir (eh-guix-dir))
>          (file (expand-file-name "etc/copyright.el" dir)))
>     (when (file-exists-p file)
>       (load-file file)
>       ;; (add-hook 'after-save-hook 'copyright-update)
>       (setq copyright-names-regexp
>             (format "%s <%s>" user-full-name user-mail-address)))))
>
> ;; ** tempel
> (when (eh-guix-dir)
>   (let* ((dir (eh-guix-dir))
>          (path (expand-file-name "etc/snippets/tempel/*" dir)))
>     (add-to-list 'tempel-path path)))

I would also add:

(add-hook! 'scheme-mode-hook #'display-fill-column-indicator-mode)

This creates a vertical line that reminds you that your code should fit
inside 80 columns.

Possible also mention how to set up page break lines:

https://github.com/purcell/page-break-lines

Re: Suggest improve emacs setting in 'The Perfect Setup'

[Feng Shu]

Joshua Branson <jbranso@dismail.de> writes:

> Feng Shu <tumashu@163.com> writes:
>
>> Hello:
>>
>> In 'The Perfect Setup', we suggest user to use the below emacs config:
>>
>> ```
>> ;; Assuming the Guix checkout is in ~/src/guix.
>> (with-eval-after-load 'geiser-guile
>>   (add-to-list 'geiser-guile-load-path "~/src/guix"))
>> ```
>>
>> This config need user to deal with %load-path of guix, which seem to be
>> a hard job for new guile user for many dirs of guix and other guix channels,
>> why not suggest new user to use the below config:
>>
>
> How about you go ahead and make a patch on guix-patches@gnu.org, that
> way this issue is not forgotten?

Maybe we can add an example emacs config for develop guix in etc directory.

>
>>
>> ```
>> (setq geiser-guile-binary (list "guix" "repl"))
>> ```
>>
>>
>> or:
>>
>> ```
>> (setq geiser-guile-binary (list "guix" "repl" "-L" "/path/to/user-own-config-dir"))
>> ```
>>
>> when user just want to develop his own guix config, just run:
>>
>> ```
>> emacs
>> ```
>>
>> guix and other channels installed by 'guix pull' will be used properly.
>>
>> when user want to develop in guix.git, he just run emacs like the below:
>>
>> ```
>> ./pre-inst-env emacs
>> ```
>>
>> The below is my guix emacs config, seem to work:
>>
>> --------------------------------------------------------------------------------
>>
>> (require 'geiser)
>> (require 'geiser-guile)
>> (require 'guix)
>> (require 'magit)
>>
>> ;; ** My own guix config.
>> (defvar eh-geeguix-dir (expand-file-name "~/geeguix"))
>>
>> ;; ** Let geiser-guile use 'guix repl'
>> (setq geiser-guile-binary (list "guix" "repl" "-L" eh-geeguix-dir))
>>
>> ;; ** guix-devel-mode
>> (add-hook 'scheme-mode-hook #'guix-devel-mode)
>>
>> ;; ** Get guix dir installed by 'guix pull'.
>> (defun eh-guix-dir ()
>>   (file-name-as-directory
>>    (cl-find-if
>>     (lambda (dir)
>>       (file-exists-p (expand-file-name "guix.scm" dir)))
>>     (directory-files
>>      (expand-file-name "~/.cache/guix/checkouts/")
>>      t))))
>>
>> ;; ** copyright-update
>> (when (eh-guix-dir)
>>   (let* ((dir (eh-guix-dir))
>>          (file (expand-file-name "etc/copyright.el" dir)))
>>     (when (file-exists-p file)
>>       (load-file file)
>>       ;; (add-hook 'after-save-hook 'copyright-update)
>>       (setq copyright-names-regexp
>>             (format "%s <%s>" user-full-name user-mail-address)))))
>>
>> ;; ** tempel
>> (when (eh-guix-dir)
>>   (let* ((dir (eh-guix-dir))
>>          (path (expand-file-name "etc/snippets/tempel/*" dir)))
>>     (add-to-list 'tempel-path path)))
>
> I would also add:
>
> (add-hook! 'scheme-mode-hook #'display-fill-column-indicator-mode)
>
> This creates a vertical line that reminds you that your code should fit
> inside 80 columns.
>
> Possible also mention how to set up page break lines:
>
> https://github.com/purcell/page-break-lines

-- 

Re: Suggest improve emacs setting in 'The Perfect Setup'

[jbranso]

January 1, 2023 2:54 PM, "Feng Shu" <tumashu@163.com> wrote:

> Joshua Branson <jbranso@dismail.de> writes:
> 
>> Feng Shu <tumashu@163.com> writes:
>> 
>>> Hello:
>>> 
>>> In 'The Perfect Setup', we suggest user to use the below emacs config:
>>> 
>>> ```
>>> ;; Assuming the Guix checkout is in ~/src/guix.
>>> (with-eval-after-load 'geiser-guile
>>> (add-to-list 'geiser-guile-load-path "~/src/guix"))
>>> ```
>>> 
>>> This config need user to deal with %load-path of guix, which seem to be
>>> a hard job for new guile user for many dirs of guix and other guix channels,
>>> why not suggest new user to use the below config:
>> 
>> How about you go ahead and make a patch on guix-patches@gnu.org, that
>> way this issue is not forgotten?
> 
> Maybe we can add an example emacs config for develop guix in etc directory.

That's a good idea!  I think there is/was a guix developer trying to write an
emacs configuration specifically to hack on guix...

> 
>>> ```
>>> (setq geiser-guile-binary (list "guix" "repl"))
>>> ```
>>> 
>>> or:
>>> 
>>> ```
>>> (setq geiser-guile-binary (list "guix" "repl" "-L" "/path/to/user-own-config-dir"))
>>> ```
>>> 
>>> when user just want to develop his own guix config, just run:
>>> 
>>> ```
>>> emacs
>>> ```
>>> 
>>> guix and other channels installed by 'guix pull' will be used properly.
>>> 
>>> when user want to develop in guix.git, he just run emacs like the below:
>>> 
>>> ```
>>> ./pre-inst-env emacs
>>> ```
>>> 
>>> The below is my guix emacs config, seem to work:
>>> 
>>> --------------------------------------------------------------------------------
>>> 
>>> (require 'geiser)
>>> (require 'geiser-guile)
>>> (require 'guix)
>>> (require 'magit)
>>> 
>>> ;; ** My own guix config.
>>> (defvar eh-geeguix-dir (expand-file-name "~/geeguix"))
>>> 
>>> ;; ** Let geiser-guile use 'guix repl'
>>> (setq geiser-guile-binary (list "guix" "repl" "-L" eh-geeguix-dir))
>>> 
>>> ;; ** guix-devel-mode
>>> (add-hook 'scheme-mode-hook #'guix-devel-mode)
>>> 
>>> ;; ** Get guix dir installed by 'guix pull'.
>>> (defun eh-guix-dir ()
>>> (file-name-as-directory
>>> (cl-find-if
>>> (lambda (dir)
>>> (file-exists-p (expand-file-name "guix.scm" dir)))
>>> (directory-files
>>> (expand-file-name "~/.cache/guix/checkouts/")
>>> t))))
>>> 
>>> ;; ** copyright-update
>>> (when (eh-guix-dir)
>>> (let* ((dir (eh-guix-dir))
>>> (file (expand-file-name "etc/copyright.el" dir)))
>>> (when (file-exists-p file)
>>> (load-file file)
>>> ;; (add-hook 'after-save-hook 'copyright-update)
>>> (setq copyright-names-regexp
>>> (format "%s <%s>" user-full-name user-mail-address)))))
>>> 
>>> ;; ** tempel
>>> (when (eh-guix-dir)
>>> (let* ((dir (eh-guix-dir))
>>> (path (expand-file-name "etc/snippets/tempel/*" dir)))
>>> (add-to-list 'tempel-path path)))
>> 
>> I would also add:
>> 
>> (add-hook! 'scheme-mode-hook #'display-fill-column-indicator-mode)
>> 
>> This creates a vertical line that reminds you that your code should fit
>> inside 80 columns.
>> 
>> Possible also mention how to set up page break lines:
>> 
>> https://github.com/purcell/page-break-lines
> 
> --

Re: Suggest improve emacs setting in 'The Perfect Setup'

[Feng Shu]

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

jbranso@dismail.de writes:


> That's a good idea!  I think there is/was a guix developer trying to write an
> emacs configuration specifically to hack on guix...

The below is my current guix emacs config, I do not know whether it is
suitable for an example, maybe someone can try it :-)

If suitable, I will try to send a patch.


[-- Attachment #2: eh-guix.el --]
[-- Type: application/emacs-lisp, Size: 5127 bytes --]

Re: Suggest improve emacs setting in 'The Perfect Setup'

[jbranso]

January 1, 2023 4:06 PM, "Feng Shu" <tumashu@163.com> wrote:

> jbranso@dismail.de writes:
> 
>> That's a good idea! I think there is/was a guix developer trying to write an
>> emacs configuration specifically to hack on guix...
> 
> The below is my current guix emacs config, I do not know whether it is
> suitable for an example, maybe someone can try it :-)
> 
> If suitable, I will try to send a patch.

I would go ahead and send a patch to guix-patches.  It might be a good idea to 
review someone else' patch.  Guix is in need of patch reviewers.  :)

I should probably take my own advice and review someone else's patch too.  :)

Joshua

Re: Suggest improve emacs setting in 'The Perfect Setup'

[Feng Shu]

jbranso@dismail.de writes:

> January 1, 2023 4:06 PM, "Feng Shu" <tumashu@163.com> wrote:
>
>> jbranso@dismail.de writes:
>> 
>>> That's a good idea! I think there is/was a guix developer trying to write an
>>> emacs configuration specifically to hack on guix...
>> 
>> The below is my current guix emacs config, I do not know whether it is
>> suitable for an example, maybe someone can try it :-)
>> 
>> If suitable, I will try to send a patch.
>
> I would go ahead and send a patch to guix-patches.  It might be a good idea to 
> review someone else' patch.  Guix is in need of patch reviewers.  :)

Good news.

>
> I should probably take my own advice and review someone else's patch too.  :)
>
> Joshua


-- 

Re: Suggest improve emacs setting in 'The Perfect Setup'

[Mekeor Melire]

2022-12-31 18:17 jbranso@dismail.de:

> Possible also mention how to set up page break lines: 
> https://github.com/purcell/page-break-lines

By the way, another good alternative to that Emacs package is: 
https://depp.brause.cc/form-feed/

But I don't think that either of these packages should be 
mentioned in The Perfect Setup. They don't relate to Guix 
specifically.

Re: Suggest improve emacs setting in 'The Perfect Setup'

[Simon Tournier]

Hi,

Thanks for sharing.  Interesting to see other config.


On Fri, 30 Dec 2022 at 08:54, Feng Shu <tumashu@163.com> wrote:

> ;; ** Let geiser-guile use 'guix repl'
> (setq geiser-guile-binary (list "guix" "repl" "-L" eh-geeguix-dir))

Be careful, this can bite you. :-)  Guile is run with --no-auto-compile
so the debugger is probably not working as expected.  See [1,2].

1: https://yhetil.org/guix/86o7ss1u49.fsf@gmail.com
2: https://yhetil.org/guix/87lenve3t2.fsf@gnu.org


> ;; ** Get guix dir installed by 'guix pull'.
> (defun eh-guix-dir ()
>   (file-name-as-directory
>    (cl-find-if
>     (lambda (dir)
>       (file-exists-p (expand-file-name "guix.scm" dir)))
>     (directory-files
>      (expand-file-name "~/.cache/guix/checkouts/")
>      t))))

Well, I do not know what you do with this but if you manually write in
this directory, then “guix pull” could be then broken.


Cheers,
simon

Re: Suggest improve emacs setting in 'The Perfect Setup'

[Feng Shu]

Simon Tournier <zimon.toutoune@gmail.com> writes:

> Hi,
>
> Thanks for sharing.  Interesting to see other config.
>
>
> On Fri, 30 Dec 2022 at 08:54, Feng Shu <tumashu@163.com> wrote:
>
>> ;; ** Let geiser-guile use 'guix repl'
>> (setq geiser-guile-binary (list "guix" "repl" "-L" eh-geeguix-dir))
>
> Be careful, this can bite you. :-)  Guile is run with --no-auto-compile
> so the debugger is probably not working as expected.  See [1,2].
>
> 1: https://yhetil.org/guix/86o7ss1u49.fsf@gmail.com2: https://yhetil.org/guix/87lenve3t2.fsf@gnu.org
>
>
>> ;; ** Get guix dir installed by 'guix pull'.
>> (defun eh-guix-dir ()
>>   (file-name-as-directory
>>    (cl-find-if
>>     (lambda (dir)
>>       (file-exists-p (expand-file-name "guix.scm" dir)))
>>     (directory-files
>>      (expand-file-name "~/.cache/guix/checkouts/")
>>      t))))
>
> Well, I do not know what you do with this but if you manually write in
> this directory, then “guix pull” could be then broken.

I just read tempel templates and copyright.el from this directory.
maybe I should read them from another dir, but I do not know where,

in "~/.config/guix/current/share" seem can not find them.

>
>
> Cheers,
> simon

--