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