Add snippets

snippets/emacs-lisp-mode/find-file-noselect

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: find-file-noselect
+# key: ffns
+# --
+(find-file-noselect ${1:file})$0

snippets/emacs-lisp-mode/get-file-buffer

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: get-file-buffer
+# key: gfb
+# --
+(get-file-buffer ${1:file})$0

snippets/emacs-lisp-mode/goto-char-point-min

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: goto-char-point-min
+# key: gcpm
+# --
+(goto-char (point-min))

snippets/emacs-lisp-mode/point-max

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: point-max
+# key: pm
+# --
+(point-max)

snippets/emacs-lisp-mode/read-current-buffer

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: read-current-buffer
+# key: rcb
+# --
+(read (current-buffer))

snippets/emacs-lisp-mode/with-slots

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: with-slots
+# key: ws
+# --
+(with-slots (${1:slots}) ${2:object})$0

snippets/lisp-mode/defclass

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: defclass
+# key: dc
+# --
+(defclass ${1:name} (${2:inherits})
+   (${4:slot})
+   (:documentation "${3:doc}"))
+$0

snippets/lisp-mode/defgeneric

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# contributor: contrapunctus (tilde.team/~contrapunctus)
+# name: defgeneric
+# key: dg
+# --
+(defgeneric ${1:name} (${2:args})
+  "${3:docstring}")
+$0

snippets/lisp-mode/defmethod

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# contributor: contrapunctus (tilde.team/~contrapunctus)
+# name: defmethod
+# key: dm
+# --
+(defmethod ${1:name} (${2:args})
+  $0)

snippets/slime-repl-mode/in-package

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: in-package
+# key: ip
+# --
+(in-package :${0:package})

snippets/slime-repl-mode/quickload

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: quickload
+# key: qq
+# --
+(ql:quickload :${1:system} $0)