gergely/gobgen.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

All global variables/functions should have package prefix

Browse Source
This commit is contained in:
Syohei YOSHIDA 2016-09-29 12:03:47 +09:00
parent a184fb21ff
commit 1c95c5bdb8
1 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gobgen.el
View File

@ -5,7 +5,7 @@
;; Author: Gergely Polonkai <gergely@polonkai.eu> ;; Author: Gergely Polonkai <gergely@polonkai.eu>
;; Keywords: gobject, glib, gtk, helper, utilities ;; Keywords: gobject, glib, gtk, helper, utilities
;; Version: 0.0.1 ;; Version: 0.0.1
;; Package-Requires: ((emacs "24.3")) ;; Package-Requires: ((emacs "24.4"))
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by ;; it under the terms of the GNU General Public License as published by
@ -29,6 +29,7 @@
(require 'widget) (require 'widget)
(require 'wid-edit) (require 'wid-edit)
(require 'subr-x)
(defvar-local gobgen-widget-name nil (defvar-local gobgen-widget-name nil
"Widget for the class name.") "Widget for the class name.")
@ -43,18 +44,7 @@
(defvar-local gobgen-widget-private nil (defvar-local gobgen-widget-private nil
"Checkbox field for the private structure option.") "Checkbox field for the private structure option.")
(defun string-join (list separator) (defun gobject-get-prefix (class-name)
"Takes a list of strings and joins them using delimiter."
(mapconcat (lambda (x) x) list separator))
(defun string-has-prefix (full-str prefix-str)
"Check if FULL-STR has the prefix PREFIX-STR"
(let* ((prefix-length (length prefix-str)))
(string-equal prefix-str (substring full-str 0 prefix-length))))
(defun get-gobject-prefix (class-name)
(car (split-string class-name "_"))) (car (split-string class-name "_")))
(defun gobgen-gen-header (CLASS_FULL_NAME (defun gobgen-gen-header (CLASS_FULL_NAME
@ -260,10 +250,10 @@
(parent-prefix-length (length parent-prefix)) (parent-prefix-length (length parent-prefix))
(class-prefix-length (length class-prefix))) (class-prefix-length (length class-prefix)))
(if (not (string-has-prefix parent-name (concat parent-prefix "_"))) (if (not (string-prefix-p (concat parent-prefix "_") parent-name))
(message (concat "Parent (" parent-name ") and parent prefix (" parent-prefix ") don't match")) (message (concat "Parent (" parent-name ") and parent prefix (" parent-prefix ") don't match"))
(if (not (string-has-prefix class-name (concat class-prefix "_"))) (if (not (string-prefix-p (concat class-prefix "_") class-name))
(message (concat "Class (" class-name ") and class prefix (" class-prefix ") don't match")) (message (concat "Class (" class-name ") and class prefix (" class-prefix ") don't match"))
(let* ((parent-name (substring parent-name (+ parent-prefix-length 1))) (let* ((parent-name (substring parent-name (+ parent-prefix-length 1)))
@ -348,7 +338,7 @@
:notify (lambda (widget _child &optional event) :notify (lambda (widget _child &optional event)
(save-excursion (save-excursion
(widget-value-set gobgen-widget-prefix (widget-value-set gobgen-widget-prefix
(get-gobject-prefix (widget-value widget))))) (gobject-get-prefix (widget-value widget)))))
:doc "The name of the new class, with its prefix included" :doc "The name of the new class, with its prefix included"
"gtk_example_object")) "gtk_example_object"))
@ -368,7 +358,7 @@
:notify (lambda (widget _child &optional event) :notify (lambda (widget _child &optional event)
(save-excursion (save-excursion
(widget-value-set gobgen-widget-parent-prefix (widget-value-set gobgen-widget-parent-prefix
(get-gobject-prefix (widget-value widget))))) (gobject-get-prefix (widget-value widget)))))
:doc "Name of the parent class. Use g_object if you don't want to derive from something specific." :doc "Name of the parent class. Use g_object if you don't want to derive from something specific."
"g_object")) "g_object"))