1 ;;; gnome-c-snippet.el --- GNOME-style code generation -*- lexical-binding: t; -*-
2 ;; Copyright (C) 2016 Free Software Foundation, Inc.
4 ;; Author: Daiki Ueno <ueno@gnu.org>
5 ;; Keywords: GNOME, C, coding style
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software: you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation, either version 3 of the License, or
12 ;; (at your option) any later version.
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24 ;; FIXME: The snippets defined here could be rewritten in yasnippet
28 (require 'gnome-c-align)
31 (defvar gnome-c-snippet-package nil)
32 (make-variable-buffer-local 'gnome-c-snippet-package)
34 (defvar gnome-c-snippet-class nil)
35 (make-variable-buffer-local 'gnome-c-snippet-class)
37 (defvar gnome-c-snippet-parent-package nil)
38 (make-variable-buffer-local 'gnome-c-snippet-parent-package)
40 (defvar gnome-c-snippet-parent-class nil)
41 (make-variable-buffer-local 'gnome-c-snippet-parent-class)
43 (defconst gnome-c-snippet-guess-name-functions
44 '(gnome-c-snippet--guess-name-from-header-buffer
45 gnome-c-snippet--guess-name-from-declaration
46 gnome-c-snippet--guess-name-from-file-name))
48 (defcustom gnome-c-snippet-align-arglist t
49 "Whether to align argument list of the inserted snippet"
51 :group 'gnome-c-style)
53 (make-variable-buffer-local 'gnome-c-snippet-align-arglist)
55 (defun gnome-c-snippet--find-declaration ()
58 (goto-char (point-min))
59 (when (re-search-forward
60 "^G_DECLARE_\\(?:FINAL\\|DERIVABLE\\)_TYPE\\s-*("
62 (setq beg (match-beginning 0))
63 (goto-char (match-end 0))
73 (defun gnome-c-snippet--extract-names-from-declaration (beg end)
75 (narrow-to-region beg end)
76 (goto-char (point-min))
78 (c-forward-syntactic-ws)
79 (let ((capitalized-package-class
80 (buffer-substring-no-properties (point)
83 (c-backward-syntactic-ws)
85 uppercased-package uppercased-class
86 capitalized-package capitalized-class capitalized-parent)
87 (c-forward-syntactic-ws)
89 (setq uppercased-package (split-string
90 (buffer-substring (point)
93 (c-backward-syntactic-ws)
96 (c-forward-syntactic-ws)
98 (setq uppercased-class (split-string
99 (buffer-substring (point)
102 (c-backward-syntactic-ws)
105 (c-forward-syntactic-ws)
107 (setq capitalized-parent (gnome-c-snippet--parse-name
108 (buffer-substring (point)
111 (c-backward-syntactic-ws)
115 (dolist (uppercased uppercased-package)
116 (let* ((length (length uppercased))
118 (substring capitalized-package-class
119 index (+ index length))))
120 (unless (equal (upcase capitalized) uppercased)
122 (push capitalized capitalized-package)
123 (setq index (+ index length))))
124 (dolist (uppercased uppercased-class)
125 (let* ((length (length uppercased))
127 (substring capitalized-package-class
128 index (+ index length))))
129 (unless (equal (upcase capitalized) uppercased)
131 (push capitalized capitalized-class)
132 (setq index (+ index length))))))
133 (list (nreverse capitalized-package)
134 (nreverse capitalized-class)
135 capitalized-parent))))
137 (defun gnome-c-snippet--find-header-buffer ()
138 (pcase (file-name-extension buffer-file-name)
142 (let ((header-file-name
143 (concat (file-name-sans-extension buffer-file-name) ".h")))
146 (with-current-buffer buffer
147 (equal buffer-file-name header-file-name)))
150 (defun gnome-c-snippet--guess-name-from-header-buffer (symbol)
151 (let ((header-buffer (gnome-c-snippet--find-header-buffer)))
153 (with-current-buffer header-buffer
154 (symbol-value (intern (format "gnome-c-snippet-%S" symbol)))))))
156 (defun gnome-c-snippet--guess-name-from-declaration (symbol)
157 (when (memq symbol '(package class parent-package parent-class))
158 (let ((header-buffer (gnome-c-snippet--find-header-buffer)))
160 (with-current-buffer header-buffer
161 (let ((region (gnome-c-snippet--find-declaration))
165 (apply #'gnome-c-snippet--extract-names-from-declaration
169 (`package (car names))
170 (`class (nth 1 names))
171 (`parent-package (list (car (nth 2 names))))
172 (`parent-class (cdr (nth 2 names))))))))))))
174 (defun gnome-c-snippet--guess-name-from-file-name (symbol)
175 (when (memq symbol '(package class))
176 (let ((filename (file-name-sans-extension
177 (file-name-nondirectory buffer-file-name))))
178 (when (string-match-p "-" filename)
179 (let ((names (split-string filename "-")))
181 (`package (list (upcase-initials (car names))))
182 (`class (mapcar #'upcase-initials (cdr names)))))))))
184 (defun gnome-c-snippet--parse-name (name)
187 (insert (upcase-initials name))
188 (goto-char (point-min))
190 ;; Skip characters not recognized by subword-mode.
191 (if (looking-at "[^[:lower:][:upper:][:digit:]]+")
192 (goto-char (match-end 0)))
193 (push (buffer-substring (point) (progn (subword-forward 1)
198 (defun gnome-c-snippet--read-name (prompt symbol &optional default)
199 (when (or current-prefix-arg
200 (not (symbol-value symbol)))
202 (gnome-c-snippet--parse-name
204 (or (if (symbol-value symbol)
205 (gnome-c-snippet--format-Package
206 (symbol-value symbol)))
208 (symbol-value symbol))
210 (defun gnome-c-snippet--read-package-and-class (parent)
211 (append (list (gnome-c-snippet--read-name
212 "Package (CamelCase): "
213 'gnome-c-snippet-package
214 (gnome-c-snippet--format-Package
215 (run-hook-with-args-until-success
216 'gnome-c-snippet-guess-name-functions
218 (gnome-c-snippet--read-name
219 "Class (CamelCase): "
220 'gnome-c-snippet-class
221 (gnome-c-snippet--format-Class
222 (run-hook-with-args-until-success
223 'gnome-c-snippet-guess-name-functions
226 (list (gnome-c-snippet--read-name
227 "Parent package (CamelCase): "
228 'gnome-c-snippet-parent-package
229 (gnome-c-snippet--format-Package
230 (run-hook-with-args-until-success
231 'gnome-c-snippet-guess-name-functions
233 (gnome-c-snippet--read-name
234 "Parent class (CamelCase): "
235 'gnome-c-snippet-parent-class
236 (gnome-c-snippet--format-Class
237 (run-hook-with-args-until-success
238 'gnome-c-snippet-guess-name-functions
241 (defun gnome-c-snippet--read-package-and-interface (parent)
242 (list (gnome-c-snippet--read-name
243 "Package (CamelCase): "
244 'gnome-c-snippet-package
245 (gnome-c-snippet--format-Package
246 (run-hook-with-args-until-success
247 'gnome-c-snippet-guess-name-functions
249 (gnome-c-snippet--read-name
250 "Interface (CamelCase): "
251 'gnome-c-snippet-class
252 (gnome-c-snippet--format-Class
253 (run-hook-with-args-until-success
254 'gnome-c-snippet-guess-name-functions
257 (list (gnome-c-snippet--read-name
258 "Parent package (CamelCase): "
259 'gnome-c-snippet-parent-package
260 (gnome-c-snippet--format-Package
261 (run-hook-with-args-until-success
262 'gnome-c-snippet-guess-name-functions
264 (gnome-c-snippet--read-name
265 "Parent class (CamelCase): "
266 'gnome-c-snippet-parent-class
267 (gnome-c-snippet--format-Class
268 (run-hook-with-args-until-success
269 'gnome-c-snippet-guess-name-functions
272 (defun gnome-c-snippet--format-PACKAGE (package)
273 (mapconcat #'upcase package "_"))
274 (defalias 'gnome-c-snippet--format-CLASS 'gnome-c-snippet--format-PACKAGE)
276 (defun gnome-c-snippet--format-PACKAGE_CLASS (package class)
277 (concat (gnome-c-snippet--format-PACKAGE package)
279 (gnome-c-snippet--format-CLASS class)))
281 (defun gnome-c-snippet--format-package (package)
282 (mapconcat #'downcase package "_"))
283 (defalias 'gnome-c-snippet--format-class 'gnome-c-snippet--format-package)
285 (defun gnome-c-snippet--format-package_class (package class)
286 (concat (gnome-c-snippet--format-package package)
288 (gnome-c-snippet--format-class class)))
290 (defun gnome-c-snippet--format-Package (package)
291 (mapconcat #'identity package ""))
292 (defalias 'gnome-c-snippet--format-Class 'gnome-c-snippet--format-Package)
294 (defun gnome-c-snippet--format-PackageClass (package class)
295 (concat (gnome-c-snippet--format-Package package)
296 (gnome-c-snippet--format-Class class)))
299 (defun gnome-c-snippet-insert-package_class (package class)
300 "Insert the class name before the current point."
301 (interactive (gnome-c-snippet--read-package-and-class nil))
302 (insert (gnome-c-snippet--format-package_class package class)))
305 (defun gnome-c-snippet-insert-PACKAGE_CLASS (package class)
306 "Insert the class name before the current point."
307 (interactive (gnome-c-snippet--read-package-and-class nil))
308 (insert (gnome-c-snippet--format-PACKAGE_CLASS package class)))
311 (defun gnome-c-snippet-insert-PackageClass (package class)
312 "Insert the class name (in CamelCase) before the current point."
313 (interactive (gnome-c-snippet--read-package-and-class nil))
314 (insert (gnome-c-snippet--format-PackageClass package class)))
316 (defun gnome-c-snippet-insert-interface-declaration (package iface
317 parent-package parent-class)
318 "Insert interface declaration for PACKAGE and IFACE"
319 (interactive (gnome-c-snippet--read-package-and-interface t))
321 #define " (gnome-c-snippet--format-PACKAGE package) "_TYPE_" (gnome-c-snippet--format-CLASS iface) " (" (gnome-c-snippet--format-package package) "_" (gnome-c-snippet--format-class iface) "_get_type ())
322 G_DECLARE_INTERFACE (" (gnome-c-snippet--format-PackageClass package iface) ", "
323 (gnome-c-snippet--format-package_class package iface) ", " (gnome-c-snippet--format-PACKAGE package) ", " (gnome-c-snippet--format-CLASS iface) ", " (gnome-c-snippet--format-PackageClass parent-package parent-class) ")
326 (defun gnome-c-snippet--insert-class-declaration (package
332 #define " (gnome-c-snippet--format-PACKAGE package) "_TYPE_" (gnome-c-snippet--format-CLASS class) " (" (gnome-c-snippet--format-package_class package class) "_get_type ())
333 G_DECLARE_" (if derivable "DERIVABLE" "FINAL") "_TYPE (" (gnome-c-snippet--format-PackageClass package class) ", "
334 (gnome-c-snippet--format-package_class package class) ", " (gnome-c-snippet--format-PACKAGE package) ", " (gnome-c-snippet--format-CLASS class) ", " (gnome-c-snippet--format-PackageClass parent-package parent-class) ")
337 (defun gnome-c-snippet-insert-final-class-declaration (package
341 "Insert final class declaration for PACKAGE and CLASS."
342 (interactive (gnome-c-snippet--read-package-and-class t))
343 (gnome-c-snippet--insert-class-declaration package
349 (defun gnome-c-snippet-insert-derivable-class-declaration (package
353 "Insert derivable class declaration for PACKAGE and CLASS."
354 (interactive (gnome-c-snippet--read-package-and-class t))
355 (gnome-c-snippet--insert-class-declaration package
361 (defun gnome-c-snippet-insert-interface-definition (package
365 "Insert class definition for PACKAGE and CLASS."
366 (interactive (gnome-c-snippet--read-package-and-interface t))
369 " (gnome-c-snippet--format-package_class package iface) "_default_init (" (gnome-c-snippet--format-PackageClass package iface) "Interface *iface) {
372 G_DEFINE_INTERFACE (" (gnome-c-snippet--format-PackageClass package iface) ", "
373 (gnome-c-snippet--format-package_class package iface) ", " (gnome-c-snippet--format-PACKAGE parent-package) "_TYPE_" (gnome-c-snippet--format-CLASS parent-class) ")
376 (defun gnome-c-snippet--insert-class-definition (package
383 G_DEFINE_" (if abstract "ABSTRACT_" "") "TYPE" (if code "WITH_CODE" "") " (" (gnome-c-snippet--format-PackageClass package class) ", "
384 (gnome-c-snippet--format-package_class package class) ", " (gnome-c-snippet--format-PACKAGE parent-package) "_TYPE_" (gnome-c-snippet--format-CLASS parent-class) (if code ", " "") ")"))
386 (defun gnome-c-snippet-insert-G_DEFINE_TYPE (package
390 "Insert G_DEFINE_TYPE for PACKAGE and CLASS."
391 (interactive (gnome-c-snippet--read-package-and-class t))
392 (gnome-c-snippet--insert-class-definition package
399 (defun gnome-c-snippet-insert-G_DEFINE_TYPE_WITH_CODE (package
403 "Insert G_DEFINE_TYPE_WITH_CODE for PACKAGE and CLASS."
404 (interactive (gnome-c-snippet--read-package-and-class t))
405 (gnome-c-snippet--insert-class-definition package
412 (defun gnome-c-snippet-insert-G_DEFINE_ABSTRACT_TYPE (package
416 "Insert G_DEFINE_ABSTRACT_TYPE for PACKAGE and CLASS."
417 (interactive (gnome-c-snippet--read-package-and-class t))
418 (gnome-c-snippet--insert-class-definition package
425 (defun gnome-c-snippet-insert-G_DEFINE_ABSTRACT_TYPE_WITH_CODE (package
429 "Insert G_DEFINE_ABSTRACT_TYPE_WITH_CODE for PACKAGE and CLASS."
430 (interactive (gnome-c-snippet--read-package-and-class t))
431 (gnome-c-snippet--insert-class-definition package
438 (defun gnome-c-snippet-insert-constructor (package class)
439 "Insert 'constructor' vfunc of GObjectClass for PACKAGE and CLASS."
440 (interactive (gnome-c-snippet--read-package-and-class nil))
441 (let (arglist-start body-start)
444 " (gnome-c-snippet--format-package_class package class) "_constructor (")
445 (setq arglist-start (point-marker))
446 (insert "GType *object,
447 guint n_construct_properties,
448 GObjectConstructParam *construct_properties)\n")
449 (setq body-start (point-marker))
450 (if gnome-c-snippet-align-arglist
452 (goto-char arglist-start)
453 (gnome-c-align-arglist-at-point))
454 (indent-region arglist-start (point)))
455 (goto-char body-start)
457 " (gnome-c-snippet--format-PackageClass package class) " *self = "
458 (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
460 G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->constructor (type, n_construct_properties, construct_properties);
463 (indent-region body-start (point))))
465 (defun gnome-c-snippet-insert-set_property (package class)
466 "Insert 'set_property' vfunc of GObjectClass for PACKAGE and CLASS."
467 (interactive (gnome-c-snippet--read-package-and-class nil))
468 (let (arglist-start body-start)
471 " (gnome-c-snippet--format-package_class package class) "_set_property (")
472 (setq arglist-start (point-marker))
473 (insert "GObject *object,
476 GParamSpec *pspec)\n")
477 (setq body-start (point-marker))
478 (if gnome-c-snippet-align-arglist
480 (goto-char arglist-start)
481 (gnome-c-align-arglist-at-point))
482 (indent-region arglist-start (point)))
483 (goto-char body-start)
485 " (gnome-c-snippet--format-PackageClass package class) " *self = "
486 (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
491 G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
496 (indent-region body-start (point))))
498 (defun gnome-c-snippet-insert-get_property (package class)
499 "Insert 'get_property' vfunc of GObjectClass for PACKAGE and CLASS."
500 (interactive (gnome-c-snippet--read-package-and-class nil))
501 (let (arglist-start body-start)
504 " (gnome-c-snippet--format-package_class package class) "_get_property (")
505 (setq arglist-start (point-marker))
506 (insert "GObject *object,
509 GParamSpec *pspec)\n")
510 (setq body-start (point-marker))
511 (if gnome-c-snippet-align-arglist
513 (goto-char arglist-start)
514 (gnome-c-align-arglist-at-point))
515 (indent-region arglist-start (point)))
516 (goto-char body-start)
518 " (gnome-c-snippet--format-PackageClass package class) " *self = "
519 (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
524 G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
529 (indent-region body-start (point))))
531 (defun gnome-c-snippet-insert-dispose (package class)
532 "Insert 'dispose' vfunc of GObjectClass for PACKAGE and CLASS."
533 (interactive (gnome-c-snippet--read-package-and-class nil))
537 " (gnome-c-snippet--format-package_class package class) "_dispose (GObject *object)\n")
538 (setq body-start (point-marker))
540 " (gnome-c-snippet--format-PackageClass package class) " *self = "
541 (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
543 G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->dispose (object);
546 (indent-region body-start (point))))
548 (defun gnome-c-snippet-insert-finalize (package class)
549 "Insert 'finalize' vfunc of GObjectClass for PACKAGE and CLASS."
550 (interactive (gnome-c-snippet--read-package-and-class nil))
554 " (gnome-c-snippet--format-package_class package class) "_finalize (GObject *object)\n")
555 (setq body-start (point-marker))
557 " (gnome-c-snippet--format-PackageClass package class) " *self = "
558 (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
560 G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->finalize (object);
563 (indent-region body-start (point))))
565 (defun gnome-c-snippet-insert-dispatch_properties_changed (package class)
566 "Insert 'dispatch_properties_changed vfunc of GObjectClass for
568 (interactive (gnome-c-snippet--read-package-and-class nil))
569 (let (arglist-start body-start)
572 " (gnome-c-snippet--format-package_class package class) "_dispatch_properties_changed (")
573 (setq arglist-start (point-marker))
574 (insert "GObject *object,
576 GParamSpec **pspecs)\n")
577 (setq body-start (point-marker))
578 (if gnome-c-snippet-align-arglist
580 (goto-char arglist-start)
581 (gnome-c-align-arglist-at-point))
582 (indent-region arglist-start (point)))
583 (goto-char body-start)
585 " (gnome-c-snippet--format-PackageClass package class) " *self = "
586 (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
588 G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->dispatch_properties_changed (object, n_pspecs, pspecs);
591 (indent-region body-start (point))))
593 (defun gnome-c-snippet-insert-notify (package class)
594 "Insert 'notify' vfunc of GObjectClass for PACKAGE and CLASS."
595 (interactive (gnome-c-snippet--read-package-and-class nil))
596 (let (arglist-start body-start)
599 " (gnome-c-snippet--format-package_class package class) "_notify (")
600 (setq arglist-start (point-marker))
601 (insert "GObject *object,
602 GParamSpec *pspec)\n")
603 (setq body-start (point-marker))
604 (if gnome-c-snippet-align-arglist
606 (goto-char arglist-start)
607 (gnome-c-align-arglist-at-point))
608 (indent-region arglist-start (point)))
610 " (gnome-c-snippet--format-PackageClass package class) " *self = "
611 (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
613 G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->notify (object, pspec);
616 (indent-region body-start (point))))
618 (defun gnome-c-snippet-insert-constructed (package class)
619 "Insert 'constructed' vfunc of GObjectClass for PACKAGE and CLASS."
620 (interactive (gnome-c-snippet--read-package-and-class nil))
624 " (gnome-c-snippet--format-package_class package class) "_constructed (GObject *object)\n")
625 (setq body-start (point-marker))
627 " (gnome-c-snippet--format-PackageClass package class) " *self = "
628 (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
630 G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->constructed (object);
633 (indent-region body-start (point))))
635 (defun gnome-c-snippet-insert-class-init (package class)
636 "Insert '_class_init' function for PACKAGE and CLASS."
637 (interactive (gnome-c-snippet--read-package-and-class nil))
640 " (gnome-c-snippet--format-package_class package class) "_class_init (" (gnome-c-snippet--format-PackageClass package class) "Class *klass)\n")
645 (defun gnome-c-snippet-insert-init (package class)
646 "Insert '_init' function for PACKAGE and CLASS."
647 (interactive (gnome-c-snippet--read-package-and-class nil))
650 " (gnome-c-snippet--format-package_class package class) "_init (" (gnome-c-snippet--format-PackageClass package class) " *self)\n")
655 (defvar gnome-c-snippet-snippet-commands
656 '(("G_DECLARE_INTERFACE" . gnome-c-snippet-insert-interface-declaration)
657 ("G_DECLARE_FINAL_TYPE" . gnome-c-snippet-insert-final-class-declaration)
658 ("G_DECLARE_DERIVABLE_TYPE" .
659 gnome-c-snippet-insert-derivable-class-declaration)
660 ("G_DEFINE_INTERFACE" . gnome-c-snippet-insert-interface-definition)
661 ("G_DEFINE_TYPE" . gnome-c-snippet-insert-G_DEFINE_TYPE)
662 ("G_DEFINE_TYPE_WITH_CODE" . gnome-c-snippet-insert-G_DEFINE_TYPE_WITH_CODE)
663 ("G_DEFINE_ABSTRACT_TYPE" .
664 gnome-c-snippet-insert-G_DEFINE_ABSTRACT_TYPE)
665 ("G_DEFINE_ABSTRACT_TYPE_WITH_CODE" .
666 gnome-c-snippet-insert-G_DEFINE_ABSTRACT_TYPE_WITH_CODE)
667 ("GObjectClass.constructor" . gnome-c-snippet-insert-constructor)
668 ("GObjectClass.set_property" . gnome-c-snippet-insert-set_property)
669 ("GObjectClass.get_property" . gnome-c-snippet-insert-get_property)
670 ("GObjectClass.dispose" . gnome-c-snippet-insert-dispose)
671 ("GObjectClass.finalize" . gnome-c-snippet-insert-finalize)
672 ("GObjectClass.dispatch_properties_changed" .
673 gnome-c-snippet-insert-dispatch_properties_changed)
674 ("GObjectClass.notify" . gnome-c-snippet-insert-notify)
675 ("GObjectClass.constructed" . gnome-c-snippet-insert-constructed)
676 ;; Will be overridden by `gnome-c-snippet-insert'.
677 ("_class_init" . gnome-c-snippet-insert-class-init)
678 ;; Will be overridden by `gnome-c-snippet-insert'.
679 ("_init" . gnome-c-snippet-insert-init)))
682 (defun gnome-c-snippet-insert (command)
684 (let ((commands (copy-tree gnome-c-snippet-snippet-commands)))
685 (when (and gnome-c-snippet-package gnome-c-snippet-class)
686 (setcar (assoc "_class_init" commands)
687 (concat (gnome-c-snippet--format-package_class
688 gnome-c-snippet-package gnome-c-snippet-class)
690 (setcar (assoc "_init" commands)
691 (concat (gnome-c-snippet--format-package_class
692 gnome-c-snippet-package gnome-c-snippet-class)
694 (let* ((name (completing-read "Snippet: " commands nil t))
695 (entry (assoc name commands)))
697 (error "Unknown snippet: %s" name))
698 (list (cdr entry)))))
699 (call-interactively command))
701 (provide 'gnome-c-snippet)
703 ;;; gnome-c-snippet.el ends here