Add snippets
This commit is contained in:
parent
ba2db8d6c8
commit
ffce737819
|
@ -0,0 +1,5 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: find-file-noselect
|
||||||
|
# key: ffns
|
||||||
|
# --
|
||||||
|
(find-file-noselect ${1:file})$0
|
|
@ -0,0 +1,5 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: get-file-buffer
|
||||||
|
# key: gfb
|
||||||
|
# --
|
||||||
|
(get-file-buffer ${1:file})$0
|
|
@ -0,0 +1,5 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: goto-char-point-min
|
||||||
|
# key: gcpm
|
||||||
|
# --
|
||||||
|
(goto-char (point-min))
|
|
@ -0,0 +1,5 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: point-max
|
||||||
|
# key: pm
|
||||||
|
# --
|
||||||
|
(point-max)
|
|
@ -0,0 +1,5 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: read-current-buffer
|
||||||
|
# key: rcb
|
||||||
|
# --
|
||||||
|
(read (current-buffer))
|
|
@ -0,0 +1,5 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: with-slots
|
||||||
|
# key: ws
|
||||||
|
# --
|
||||||
|
(with-slots (${1:slots}) ${2:object})$0
|
|
@ -0,0 +1,8 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: defclass
|
||||||
|
# key: dc
|
||||||
|
# --
|
||||||
|
(defclass ${1:name} (${2:inherits})
|
||||||
|
(${4:slot})
|
||||||
|
(:documentation "${3:doc}"))
|
||||||
|
$0
|
|
@ -0,0 +1,8 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# contributor: contrapunctus (tilde.team/~contrapunctus)
|
||||||
|
# name: defgeneric
|
||||||
|
# key: dg
|
||||||
|
# --
|
||||||
|
(defgeneric ${1:name} (${2:args})
|
||||||
|
"${3:docstring}")
|
||||||
|
$0
|
|
@ -0,0 +1,7 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# contributor: contrapunctus (tilde.team/~contrapunctus)
|
||||||
|
# name: defmethod
|
||||||
|
# key: dm
|
||||||
|
# --
|
||||||
|
(defmethod ${1:name} (${2:args})
|
||||||
|
$0)
|
|
@ -0,0 +1,5 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: in-package
|
||||||
|
# key: ip
|
||||||
|
# --
|
||||||
|
(in-package :${0:package})
|
|
@ -0,0 +1,5 @@
|
||||||
|
# -*- mode: snippet -*-
|
||||||
|
# name: quickload
|
||||||
|
# key: qq
|
||||||
|
# --
|
||||||
|
(ql:quickload :${1:system} $0)
|
Loading…
Reference in New Issue