Browse Source

Add snippets

production
contrapunctus 4 months ago
parent
commit
ffce737819
  1. 5
      snippets/emacs-lisp-mode/find-file-noselect
  2. 5
      snippets/emacs-lisp-mode/get-file-buffer
  3. 5
      snippets/emacs-lisp-mode/goto-char-point-min
  4. 5
      snippets/emacs-lisp-mode/point-max
  5. 5
      snippets/emacs-lisp-mode/read-current-buffer
  6. 5
      snippets/emacs-lisp-mode/with-slots
  7. 8
      snippets/lisp-mode/defclass
  8. 8
      snippets/lisp-mode/defgeneric
  9. 7
      snippets/lisp-mode/defmethod
  10. 5
      snippets/slime-repl-mode/in-package
  11. 5
      snippets/slime-repl-mode/quickload

5
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

5
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

5
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))

5
snippets/emacs-lisp-mode/point-max

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

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

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

5
snippets/emacs-lisp-mode/with-slots

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

8
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

8
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

7
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)

5
snippets/slime-repl-mode/in-package

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

5
snippets/slime-repl-mode/quickload

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