[bug#56955] [PATCH] .dir-locals.el: Add guix yasnippets.

[Andrew Tropin]

On 2022-08-10 16:26, Maxim Cournoyer wrote:

> Hi Andrew,
>
> Andrew Tropin <andrew@trop.in> writes:
>
>> * .dir-locals.el (eval): Add guix yasnippets.
>> ---
>>  .dir-locals.el | 9 +++++++++
>>  1 file changed, 9 insertions(+)
>>
>> diff --git a/.dir-locals.el b/.dir-locals.el
>> index e4c1da8026..ecaec8de87 100644
>> --- a/.dir-locals.el
>> +++ b/.dir-locals.el
>> @@ -14,6 +14,15 @@
>>       (eval . (setq-local guix-directory
>>                           (locate-dominating-file default-directory
>>                                                   ".dir-locals.el")))
>> +     ;; YASnippet
>> +     (eval . (with-eval-after-load
>> +                 'yasnippet
>> +               (add-to-list 'yas-snippet-dirs
>> +                            (expand-file-name
>> +                             "etc/snippets"
>> +                             (locate-dominating-file default-directory
>> +                                                     ".dir-locals.el")))
>> +               (yas-reload-all)))
>
> That's an interesting idea, but wouldn't the `yas-reload-all` be
> triggered for every module visited?  That may take some time if a user
> has lots of snippets in their collection.
>
> Perhaps what it could do is check if the yas-snippet-dirs already has
> the guix snippets directory, and do nothing if it does.

That's right, attaching v2 with the fix.

From 43ab1f3da75cd8bb719b664c42f23f053b3fbb69 Mon Sep 17 00:00:00 2001
From: Andrew Tropin <andrew@trop.in>
Date: Wed, 3 Aug 2022 17:51:48 +0300
Subject: [PATCH v2] .dir-locals.el: Add guix yasnippets.

* .dir-locals.el (eval): Add guix yasnippets.
---
 .dir-locals.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/.dir-locals.el b/.dir-locals.el
index e4c1da8026..6fa0ec8bc6 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -14,6 +14,17 @@
      (eval . (setq-local guix-directory
                          (locate-dominating-file default-directory
                                                  ".dir-locals.el")))
+     ;; YASnippet
+     (eval . (with-eval-after-load
+                 'yasnippet
+               (let ((guix-yasnippets
+                      (expand-file-name
+                       "etc/snippets"
+                       (locate-dominating-file default-directory
+                                               ".dir-locals.el"))))
+                 (unless (member guix-yasnippets yas-snippet-dirs)
+                   (add-to-list 'yas-snippet-dirs guix-yasnippets)
+                   (yas-reload-all)))))
 
      ;; Geiser
      ;; This allows automatically setting the `geiser-guile-load-path'
-- 
2.37.1

-- 
Best regards,
Andrew Tropin

signature.asc
Description: PGP signature