From a138180c725b03a90fee31d7756a9fa944fb725f Mon Sep 17 00:00:00 2001
From: kuanyui <azazabc123@gmail.com>
Date: Sun, 16 Oct 2016 06:40:13 +0800
Subject: [PATCH 1/3] Add QML component id highlighter

---
 qml-mode.el | 69 +++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 67 insertions(+), 2 deletions(-)

diff --git a/qml-mode.el b/qml-mode.el
index 05d0ffc..051ddd0 100644
--- a/qml-mode.el
+++ b/qml-mode.el
@@ -2,6 +2,7 @@
 
 ;; Copyright (C) 2010      Wen-Chun Lin
 ;; Copyright (C) 2013-2016 Yen-Chin Lee
+;; Copyleft  (C) 2016      Ono Hiroko (@kuanyui)
 
 ;; Author: Yen-Chin Lee <coldnew.tw@gmail.com>
 ;; URL: https://github.com/coldnew/qml-mode
@@ -43,6 +44,10 @@
 
 ;;; ChangeLog
 ;;
+;; 0.4
+;;
+;;   * Add QML component id highlighter
+;;
 ;; 0.3
 ;;
 ;;   * rewrite based on js-mode.
@@ -158,7 +163,7 @@
     ;; Constant
     (,qml--constants-re (0 font-lock-constant-face))
     (,js--constant-re (0 font-lock-constant-face))
-    ("\\<id[ \t]*:[ \t]*\\([a-zA-Z0-9_]+\\)" (1 'font-lock-constant-face))
+    ("\\<id[ \t]*:[ \t]*\\([a-zA-Z0-9_]+\\)" (1 'font-lock-preprocessor-face))
     ("\\([+-]?\\<[0-9]*\\.?[0-9]+[xX]?[0-9a-fA-F]*\\)" . font-lock-constant-face)
     ("\\([a-zA-Z_\\.]+[a-zA-Z0-9_]*\\)[ \t]*:" (1 font-lock-variable-name-face))
     ;; builtin
@@ -177,7 +182,7 @@
     ;; commented out.
     (,qml--property-re (1 'font-lock-type-face)
                        (3 'font-lock-variable-name-face))
-    
+
     ,@qml--font-lock-keywords-1))
 
 (defconst qml--font-lock-keywords
@@ -185,6 +190,66 @@
     qml--font-lock-keywords-1
     qml--font-lock-keywords-2))
 
+(defvar-local qml--id-list '())
+(defvar-local qml-refresh-timer nil "Buffer-local timer.")
+
+;; ======================================================
+;; Highlight component id
+;; ======================================================
+
+(defun qml--search-all-id-in-current-file ()
+  "Get all compnents' id defined in current QML file."
+  (let (id-list)
+    (save-excursion
+      (goto-char (point-min))
+      (while (re-search-forward "\\<id[ \t]*:[ \t]*\\([a-zA-Z0-9_]+\\)" nil :no-error)
+        (cl-pushnew (match-string-no-properties 1) id-list :test #'string-equal)))
+    id-list))
+
+(defun qml--gen-font-lock-keywords (string-list face)
+  (list
+   (list (js--regexp-opt-symbol string-list) 0 face 'prepend)))
+
+(defun qml--highlight-all-id-in-current-file ()
+  (interactive)
+  (let ((old-id-list qml--id-list)
+        (new-id-list (qml--search-all-id-in-current-file)))
+    (when (not (equal old-id-list new-id-list))
+      (if old-id-list
+          (font-lock-remove-keywords nil (qml--gen-font-lock-keywords old-id-list 'font-lock-preprocessor-face)))
+      (setq qml--id-list new-id-list)
+      (font-lock-add-keywords nil (qml--gen-font-lock-keywords new-id-list 'font-lock-preprocessor-face) 'append)
+      (qml--flush))
+    ))
+
+(defun qml--flush ()
+  (if (fboundp 'font-lock-flush)
+      (font-lock-flush)
+    ;; Emacs < 25
+    (with-no-warnings
+      (font-lock-fontify-buffer))))
+
+;; ======================================================
+;; Idle Timer
+;; ======================================================
+
+(defun qml-timer-handler (buffer)
+  (when (buffer-live-p buffer)
+    (with-current-buffer buffer
+      (qml--highlight-all-id-in-current-file)
+      )))
+
+(add-hook 'qml-mode-hook
+          (lambda ()
+            (setq qml-refresh-timer
+                  (run-with-idle-timer 1.0 t 'qml-timer-handler (current-buffer)))))
+
+(add-hook 'kill-buffer-hook
+          (lambda ()
+            (when (timerp qml-refresh-timer)
+              (cancel-timer qml-refresh-timer))))
+
+
 ;;;###autoload
 (define-derived-mode qml-mode js-mode "QML"
   "Major mode for editing QML.

From 9ac6df7ce411346c88fa43c413b17841efac34b0 Mon Sep 17 00:00:00 2001
From: kuanyui <azazabc123@gmail.com>
Date: Sun, 16 Oct 2016 06:49:31 +0800
Subject: [PATCH 2/3] Add basic types provided by QML modules as property
 keywords

---
 qml-mode.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/qml-mode.el b/qml-mode.el
index 051ddd0..1af5c6a 100644
--- a/qml-mode.el
+++ b/qml-mode.el
@@ -6,7 +6,7 @@
 
 ;; Author: Yen-Chin Lee <coldnew.tw@gmail.com>
 ;; URL: https://github.com/coldnew/qml-mode
-;; Version: 0.3
+;; Version: 0.4
 ;; Keywords: qml, qt, qt declarative
 
 ;; This file is NOT part of GNU Emacs.
@@ -47,6 +47,7 @@
 ;; 0.4
 ;;
 ;;   * Add QML component id highlighter
+;;   * Add basic types provided by QML modules as property keyword
 ;;
 ;; 0.3
 ;;
@@ -129,7 +130,10 @@
 (defconst qml--property
   '("bool" "double" "real" "int"
     "string" "url" "color" "date"
-    "variant" "alias"))
+    "variant" "alias"
+    "font" "matrix4x4" "point" "quaternion" "rect" "size" "vector2d" "vector3d" "vector4d"
+    ))
+
 
 (defconst qml--property-re
   (concat "\\(property[ \t]+" (qml--list-to-string qml--property) "\\)+[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)"))

From 2600af2a9874b5e451606d63546e8e54440f2b31 Mon Sep 17 00:00:00 2001
From: kuanyui <azazabc123@gmail.com>
Date: Sun, 16 Oct 2016 06:52:48 +0800
Subject: [PATCH 3/3] Update README

---
 README.md | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/README.md b/README.md
index 0dd8fe5..8ab09cf 100644
--- a/README.md
+++ b/README.md
@@ -24,6 +24,10 @@ Add following lines to your init file:
 
 ### ChangeLog
 
+0.4
+
+  * Add QML component id highlighter
+  * Add basic types provided by QML modules as property keyword
 
 0.3