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

   1 ;;; gobject-minor-mode.el --- minor mode for editing GObject-style C source code -*- lexical-binding: t; -*-
   2 ;; Copyright (C) 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-at-point "gobject-align")
  26 (autoload 'gobject-align-region "gobject-align")
  27 (autoload 'gobject-align-set-column "gobject-align")
  28 (autoload 'gobject-align-guess-columns "gobject-align")
  29 (autoload 'gobject-snippet-insert-package_class "gobject-snippet")
  30 (autoload 'gobject-snippet-insert-PACKAGE_CLASS "gobject-snippet")
  31 (autoload 'gobject-snippet-insert-PackageClass "gobject-snippet")
  32 (autoload 'gobject-snippet-insert-interface-declation "gobject-snippet")
  33 (autoload 'gobject-snippet-insert-class-declation "gobject-snippet")
  34 (autoload 'gobject-snippet-insert-set_property "gobject-snippet")
  35 (autoload 'gobject-snippet-insert-get_property "gobject-snippet")
  36 (autoload 'gobject-snippet-insert-dispose "gobject-snippet")
  37 (autoload 'gobject-snippet-insert-finalize "gobject-snippet")
  38 (autoload 'gobject-snippet-insert-notify "gobject-snippet")
  39 (autoload 'gobject-snippet-insert-constructed "gobject-snippet")
  40 (autoload 'gobject-snippet-insert "gobject-snippet")
  41
  42 (defvar gobject-minor-mode-map
  43   (let ((keymap (make-sparse-keymap)))
  44     (define-key keymap "\C-c\C-ga" 'gobject-align-at-point)
  45     (define-key keymap "\C-c\C-gr" 'gobject-align-region)
  46     (define-key keymap "\C-c\C-gf" 'gobject-align-set-column)
  47     (define-key keymap "\C-c\C-gg" 'gobject-align-guess-columns)
  48     (define-key keymap "\C-c\C-gc" 'gobject-snippet-insert-package_class)
  49     (define-key keymap "\C-c\C-gC" 'gobject-snippet-insert-PACKAGE_CLASS)
  50     (define-key keymap "\C-c\C-g\C-c" 'gobject-snippet-insert-PackageClass)
  51     (define-key keymap "\C-c\C-gs" 'gobject-snippet-insert)
  52     keymap))
  53
  54 ;;;###autoload
  55 (define-minor-mode gobject-minor-mode
  56   "A minor-mode for editing GObject-based C source code."
  57   nil " GObject" gobject-minor-mode-map)
  58
  59 (provide 'gobject-c-mode)
  60
  61 ;;; gobject-c-mode.el ends here