code.delx.au - gnu-emacs-elpa/blob - gobject-minor-mode.el

   1 ;;; gobject-minor-mode.el --- minor mode for editing GObject-based C source code
   2 ;; Copyright (C) 2010,2011,2016 Daiki Ueno <ueno@gnu.org>
   3
   4 ;; Author: Daiki Ueno <ueno@gnu.org>
   5 ;; Keywords: GObject, C, coding style
   6
   7 ;; This file is not part of GNU Emacs.
   8
   9 ;; This program is free software: you can redistribute it and/or
  10 ;; modify it under the terms of the GNU General Public License as
  11 ;; published by the Free Software Foundation, either version 3 of the
  12 ;; License, or (at your option) any later version.
  13
  14 ;; This program is distributed in the hope that it will be useful, but
  15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 ;; General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with this program.  If not, see
  21 ;; <http://www.gnu.org/licenses/>.
  22
  23 ;;; Code:
  24
  25 (autoload 'gobject-align-arglist-region "gobject-align")
  26 (autoload 'gobject-align-func-decls-region "gobject-align")
  27 (autoload 'gobject-snippet-insert-package_class "gobject-snippet")
  28 (autoload 'gobject-snippet-insert-PACKAGE_CLASS "gobject-snippet")
  29 (autoload 'gobject-snippet-insert-PackageClass "gobject-snippet")
  30 (autoload 'gobject-snippet-insert-interface-declation "gobject-snippet")
  31 (autoload 'gobject-snippet-insert-class-declation "gobject-snippet")
  32 (autoload 'gobject-snippet-insert-set_property "gobject-snippet")
  33 (autoload 'gobject-snippet-insert-get_property "gobject-snippet")
  34 (autoload 'gobject-snippet-insert-dispose "gobject-snippet")
  35 (autoload 'gobject-snippet-insert-finalize "gobject-snippet")
  36 (autoload 'gobject-snippet-insert-notify "gobject-snippet")
  37 (autoload 'gobject-snippet-insert-constructed "gobject-snippet")
  38 (autoload 'gobject-snippet-insert "gobject-snippet")
  39
  40 (defvar gobject-minor-mode-map
  41   (let ((keymap (make-sparse-keymap)))
  42     (define-key keymap "\C-c\C-ga" 'gobject-align-arglist-region)
  43     (define-key keymap "\C-c\C-gf" 'gobject-align-func-decls-region)
  44     (define-key keymap "\C-c\C-gc" 'gobject-snippet-insert-package_class)
  45     (define-key keymap "\C-c\C-gC" 'gobject-snippet-insert-PACKAGE_CLASS)
  46     (define-key keymap "\C-c\C-g\C-c" 'gobject-snippet-insert-PackageClass)
  47     (define-key keymap "\C-c\C-gs" 'gobject-snippet-insert)
  48     keymap))
  49
  50 ;;;###autoload
  51 (define-minor-mode gobject-minor-mode
  52   "A minor-mode for editing GObject-based C source code."
  53   nil " GObject" gobject-minor-mode-map)
  54
  55 (provide 'gobject-c-mode)
  56
  57 ;;; gobject-c-mode.el ends here