[elpa] master 1e67806 19/40: snippet: Make options customizable

[Daiki Ueno]

branch: master
commit 1e678062531c6bd02a589681de99e2f02a34de2f
Author: Daiki Ueno <address@hidden>
Commit: Daiki Ueno <address@hidden>

    snippet: Make options customizable
---
 gnome-align.el   |    7 ++++++-
 gnome-snippet.el |   45 ++++++++++++++++++++++++++-------------------
 2 files changed, 32 insertions(+), 20 deletions(-)

diff --git a/gnome-align.el b/gnome-align.el
index d84d0db..7ac94aa 100644
--- a/gnome-align.el
+++ b/gnome-align.el
@@ -25,11 +25,16 @@
 (require 'cc-mode)
 (require 'cl-lib)
 
+(defgroup gnome-minor-mode nil
+  "GNOME-style C source code editing"
+  :prefix "gnome-"
+  :group 'c)
+
 (defcustom gnome-align-max-column 80
   "Maximum number of columns per line."
   :type '(choice (integer :tag "Columns")
                 (const :tag "No wrap"))
-  :group 'c)
+  :group 'gnome-minor-mode)
 
 (defvar gnome-align-identifier-start-column nil)
 (make-variable-buffer-local 'gnome-align-identifier-start-column)
diff --git a/gnome-snippet.el b/gnome-snippet.el
index f8aad95..a2862ab 100644
--- a/gnome-snippet.el
+++ b/gnome-snippet.el
@@ -41,7 +41,11 @@
 (defvar gnome-snippet-parent-class nil)
 (make-variable-buffer-local 'gnome-snippet-parent-class)
 
-(defvar gnome-snippet-align-arglist nil)
+(defcustom gnome-snippet-align-arglist t
+  "Whether to align argument list of the inserted snippet"
+  :type 'boolean
+  :group 'gnome-minor-mode)
+
 (make-variable-buffer-local 'gnome-snippet-align-arglist)
 
 (defun gnome-snippet--parse-name (name)
@@ -309,13 +313,14 @@ static GObject *
     (setq arglist-start (point-marker))
     (insert "GType *object,
 guint n_construct_properties,
-GObjectConstructParam *construct_properties")
-    (funcall (if gnome-snippet-align-arglist
-                #'gnome-align-region
-              #'indent-region)
-            arglist-start (point))
-    (insert ")\n")
+GObjectConstructParam *construct_properties)\n")
     (setq body-start (point-marker))
+    (if gnome-snippet-align-arglist
+       (progn
+         (goto-char arglist-start)
+         (gnome-align-at-point))
+      (indent-region arglist-start (point)))
+    (goto-char body-start)
     (insert "{
   " (gnome-snippet--format-PackageClass package class) " *self = "
   (gnome-snippet--format-PACKAGE_CLASS package class) " (object);
@@ -340,13 +345,14 @@ static void
     (insert "GObject *object,
 guint prop_id,
 const GValue *value,
-GParamSpec *pspec")
-    (funcall (if gnome-snippet-align-arglist
-                #'gnome-align-region
-              #'indent-region)
-            arglist-start (point))
-    (insert ")\n")
+GParamSpec *pspec)\n")
     (setq body-start (point-marker))
+    (if gnome-snippet-align-arglist
+       (progn
+         (goto-char arglist-start)
+         (gnome-align-at-point))
+      (indent-region arglist-start (point)))
+    (goto-char body-start)
     (insert "{
   " (gnome-snippet--format-PackageClass package class) " *self = "
   (gnome-snippet--format-PACKAGE_CLASS package class) " (object);
@@ -376,13 +382,14 @@ static void
     (insert "GObject *object,
 guint prop_id,
 GValue *value,
-GParamSpec *pspec")
-    (funcall (if gnome-snippet-align-arglist
-                #'gnome-align-region
-              #'indent-region)
-            arglist-start (point))
-    (insert ")\n")
+GParamSpec *pspec)\n")
     (setq body-start (point-marker))
+    (if gnome-snippet-align-arglist
+       (progn
+         (goto-char arglist-start)
+         (gnome-align-at-point))
+      (indent-region arglist-start (point)))
+    (goto-char body-start)
     (insert "{
   " (gnome-snippet--format-PackageClass package class) " *self = "
 (gnome-snippet--format-PACKAGE_CLASS package class) " (object);