blah

modules/home/users/crumb/emacs/snippets/bibtex-mode/.yas-setup.el

@@ -0,0 +1,27 @@
+;;; .yas-setup.el -*- lexical-binding: t; -*-
+
+(require 'dash)
+(require 's)
+
+(defun snippet-bibtex--make-id ()
+  (let ((surname (--> (or (yas-field-value 2)
+                          "surname")
+                      (s-downcase it)
+                      (string-to-list it)
+                      (-take-while (lambda (x) (/= x ?,)) it)
+                      (-filter (lambda (x) (not (memq x '(?- ?\s)))) it)
+                      (apply #'string it)))
+        (year (--> (or (yas-field-value 3)
+                       "1234")
+                   (string-to-list it)
+                   (-take-while (lambda (x) (<= ?0 x ?9)) it)
+                   (apply #'string it)))
+        (keyword (or (-some--> (or (yas-field-value 1)
+                                   "keyword")
+                       (s-downcase it)
+                       (s-split-words it)
+                       (-find (lambda (x)
+                                (not (member x '("the" "on" "of" "a" "when"))))
+                              it))
+                     "keyword")))
+    (concat surname year keyword)))

modules/home/users/crumb/emacs/snippets/bibtex-mode/@art

@@ -0,0 +1,13 @@
+# -*- mode: snippet -*-
+# name: Article
+# uuid:
+# key: @art
+# condition: t
+# --
+@article{${1:$(snippet-bibtex--make-id)}
+, title   = {${1:Principia Mathematica}}
+, author  = {${2:of Sinope, Diogenes}}
+, year    = {${3:1992}}
+, url     = {${4:https://example.com/}}
+, urldate = {${5:`(format-time-string "%Y-%m-%d")`}}
+}

modules/home/users/crumb/emacs/snippets/haskell-mode/foreign

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: foreign
+# uuid: haskell-foreign
+# key: foreign
+# condition: t
+# --
+
+foreign import ccall unsafe "src/bridge.c $1"
+  $1 :: $2

modules/home/users/crumb/emacs/snippets/nix-mode/__module

@@ -0,0 +1,21 @@
+# -*- mode: snippet -*-
+# name: Nix module
+# uuid:
+# key: __module
+# condition: t
+# expand-env: ((yas-indent-line 'fixed) (yas-wrap-around-region 'nil) (this-current-file-name (file-name-base (buffer-file-name (current-buffer)))))
+# --
+{ config, lib, pkgs, ... }:
+
+with lib;
+
+let cfg = config.${1:`this-current-file-name`};
+in {
+  options.$1 = {
+    enable = mkEnableOption "$2";
+  };
+
+  config = mkIf cfg.enable {
+    $3
+  };
+}

modules/home/users/crumb/emacs/snippets/nix-mode/enable

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: enable
+# uuid:
+# key: enable
+# condition: t
+# --
+enable = lib.mkEnableOption "$1";