Fixed(?)

emacs/.emacs.d/qml-mode/qml-tools.el

@@ -0,0 +1,135 @@
+;; QML mark up supoprt tools
+;; for Qt ver. 5.x
+
+;; QML preprocessors
+;;
+;; `qml-insert-preprocessors' function inserts preprocessors of importing
+;; package (like "import QtQtuick 2.2") at current position.
+;;
+;; Preprocessors are defined by `qml-preprocessor-alist',
+;; default values are below:
+;;     ("QtQuick" . "2.2")
+;;     ("QtQuick.Controls" . "1.1")
+;;     ("QtQuick.Layouts" . "1.1")
+;;
+;; (each element must be tuple)
+;;
+;; If you want to add a package, call `qml-add-preprocessor' function,
+;; which require two arguments (package and version by string).
+;; When called this, sorts `qml-preprocessor-alist' by package name with asc.
+;; Also, want to remove one, call `qml-remove-preprocessor' function.
+;; ex:
+;;     (qml-add-preprocessor "QtQuick.Controls.Styles" "1.1")
+;;     (qml-remove-preprocessor "QtQuick.Controls")
+;;
+;; Basic packages instead default:
+;;     QtQuick.Controls.Styles 1.1
+;;     QtQuick.Dialogs 1.1
+;;     QtQuick.Window 2.0
+
+(defvar qml-preprocessor-alist '())
+
+(defun qml-add-preprocessor (package version)
+  (let ((elm (cons package version)))
+    (if (and (stringp package)
+             (stringp version)
+             (not (member elm qml-preprocessor-alist)))
+        (setq qml-preprocessor-alist
+              (sort (add-to-list 'qml-preprocessor-alist elm)
+                    (lambda (a b)
+                      (string< (car a) (car b))))))))
+
+(defun qml-remove-preprocessor (package)
+  (if (stringp package)
+      (setq qml-preprocessor-alist
+            (remove-if (lambda (p)
+                         (string-equal (car p) package))
+                       qml-preprocessor-alist))))
+
+(let ((preprocessor-list
+       (list
+        '("QtQuick"                   . "2.2")
+        '("QtQuick.Controls"          . "1.1")
+        '("QtQuick.Layouts"           . "1.1")
+        )))
+  (mapcar (lambda (p)
+            (qml-add-preprocessor (car p) (cdr p)))
+          preprocessor-list))
+
+(defun qml-insert-preprocessors (&optional not-sort)
+  (interactive)
+  (mapcar (lambda (preprocessor)
+            (insert (format "import %s %s\n" (car preprocessor) (cdr preprocessor))))
+          qml-preprocessor-alist))
+
+
+;; QML Test
+;;
+;; Stabs for testing custom Qml type.
+;;
+;; Main use of interactive functions:
+;;   `qml-test-insert-test-function'
+;;     prompt: function name without "test_" prefix
+;;
+;;   `qml-test-insert-signal-spy'
+;;     prompt: target object (id) and siganal name to spy
+;;
+
+;; common - insert stab and indent region
+(defun -insert-stab (stab)
+  (let ((begin (point)))
+    (insert stab)
+    (indent-region begin (point))))
+
+(defvar qml-import-dir-list '())
+
+;; common - reading string prompt which does not allow empty by default
+(defun -string-prompt (prompt &optional allow-empty default-value)
+  (if allow-empty
+      (read-string prompt default-value)
+    (let ((cont t) (in) (prompt1 prompt))
+      (while cont
+        (setq in (read-string prompt1 default-value))
+        (if (setq cont (string-equal in ""))
+            (setq prompt1 (concat "Cannot set empty. " prompt))))
+      in)))
+
+;; test function
+(defun qml-test-function-stab (fun-name)
+  (concat (format "function test_%s() {\n" fun-name)
+          "setup()\n\n"
+          "teardown()\n}\n"))
+
+(defun qml-test-insert-test-function (&optional name)
+  "Snippet of QML test function.
+If optional argument NAME is nil, prompt ask funtion name."
+  (interactive)
+  (-insert-stab (qml-test-function-stab
+                 (if (stringp name) name
+                   (-string-prompt "Function name (instead \"test_\" prefix): "))))
+  (beginning-of-line -2)
+  (indent-for-tab-command))
+
+;; signal spy
+(defun qml-test-signal-spy-stab (target signal)
+  (concat "SignalSpy {\n"
+          (format "id: %s%sSpy\n" target
+                  (concat (capitalize (substring signal 0 1))
+                          (if (> (length signal) 1) (substring signal 1) "")))
+          (format "target: %s\n" target)
+          (format "signalName: \"%s\"\n}\n" signal)))
+
+(defun qml-test-insert-signal-spy (&optional target signal-name)
+  "Snippet of static declaration of signal spy.
+If both optional arguments TARGET and SIGNAL-NAME are non-nil,
+insert declaration without asking itsm, otherwise, ask target and signal name."
+  (interactive)
+  (let* ((tar (if (stringp target) target nil))
+         (sig (if (stringp signal-name) signal-name nil))
+         (tar-name (if (and tar sig) (cons tar sig)
+                     (message "%s %s" tar sig)
+                     (cons (-string-prompt "Taget: " nil tar)
+                           (-string-prompt "Signal name: " nil sig)))))
+    (-insert-stab (qml-test-signal-spy-stab (car tar-name) (cdr tar-name)))))
+
+(provide 'qml-tools)