Add snippets

This commit is contained in:
contrapunctus 2022-01-14 21:59:48 +05:30
parent ba2db8d6c8
commit ffce737819
11 changed files with 63 additions and 0 deletions

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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