amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

.dir-locals.el: Add tempel snippets.

Browse source 
Change-Id: Ic16f571f26fffee12e478e00c54be55e6eb90831
Signed-off-by: jgart <jgart@dismail.de>
This commit is contained in:
Nicolas Graves 2024-09-14 16:47:16 +02:00 • committed by jgart
parent 730b1f0768
commit e602b799fb
No known key found for this signature in database
GPG key ID: A52AA2B477B6DD35
3 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

87
etc/snippets/tempel/scheme-mode.eld Normal file
View file

@ -0,0 +1,87 @@
scheme-mode
(package...
"(define-public " (s name)
n> "(package"
n > "(name \"" (s name) "\")"
n > "(version \"" p "\")"
n > "(source origin...)"
n > "(build-system " (p "gnu") "-build-system)"
n > "(home-page \"" p "\")"
n > "(synopsis \"" p "\")"
n > "(description \"" p "\")"
n > "(license license:" (p "unknown") ")))" n)
(origin...
"(origin"
n> "(method " (p "url-fetch" method) ")"
n> "(uri " (cl-case (and method (intern method))
(git-fetch "git-reference...")
(svn-fetch "svn-reference...")
(hg-fetch "hg-reference...")
(cvs-fetch "cvs-reference...")
(bzr-fetch "bzr-reference...")
(otherwise "\"https://...\""))
")"
n>
(cl-case (and method (intern method))
(git-fetch
(insert "(file-name (git-file-name name version))")
(newline)
(indent-according-to-mode))
(hg-fetch
(insert "(file-name (hg-file-name name version))")
(newline)
(indent-according-to-mode))
(svn-fetch
(insert "(file-name (string-append name \"-\" version \"-checkout\"))")
(newline)
(indent-according-to-mode))
(cvs-fetch
(insert "(file-name (string-append name \"-\" version \"-checkout\"))")
(newline)
(indent-according-to-mode))
(bzr-fetch
(insert "(file-name (string-append name \"-\" version \"-checkout\"))")
(newline)
(indent-according-to-mode))
(t ""))
> "(sha256"
n > "(base32 \""
;; hash of an empty directory
(p "0sjjj9z1dhilhpc8pq4154czrb79z9cm044jvn75kxcjv6v5l2m5") "\")))")
(git-reference...
"(git-reference"
n> "(url \"" p "\")"
n> "(commit " (p "commit") "))")
(svn-reference...
"(svn-reference"
n> "(url \"" p "\")"
n> "(revision " (p "revision") "))")
(cvs-reference...
"(cvs-reference"
n> "(root-directory \"" p "\")"
n> "(module \"" p "\")"
n> "(revision \"" p "\"))")
(hg-reference...
"(hg-reference"
n> "(url \"" p "\")"
n> "(changeset " (p "changeset") "))")
(bzr-reference...
"(bzr-reference"
n> "(url \"" p "\")"
n> "(revision " (p "revision") "))")
(:phases\ "#:phases (modify-phases %standard-phases"
n> p ")")
(add-before\ "(add-before '" p " '" p
n > p ")")
(add-after\ "(add-after '" p " '" p
n > p ")")
(replace\ "(replace '" p " " p")")