branch: scratch/editorconfig-cc
commit a4b8e55bf4dea4567f165ad5f71694f659610b3d
Author: 10sr <8slashes+...@gmail.com>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
Make EditorConfig core function pluggable
Close #41
Squashed commit of the following:
commit e91aca6f38d9c42be19cc49aafc75ac086907b00
Author: 10sr <8slashes+...@gmail.com>
Date: Sun Oct 25 03:19:26 2015 +0900
Fix typo in docstring
commit 76ce139cd0a0ff6bc250615ca7bb94868c85c41d
Author: 10sr <8slashes+...@gmail.com>
Date: Tue Oct 13 13:51:13 2015 +0900
Implement edconf-get-properties-from-exec
commit 23baf520c83a7cb68634cd173ce28f9a6842f593
Author: 10sr <8slashes+...@gmail.com>
Date: Mon Oct 12 03:18:54 2015 +0900
Add variable edconf-get-properties-function
---
editorconfig.el | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
diff --git a/editorconfig.el b/editorconfig.el
index 6f5ce71cff..f362ea7061 100644
--- a/editorconfig.el
+++ b/editorconfig.el
@@ -44,6 +44,16 @@
:type 'string
:group 'editorconfig)
+(defcustom edconf-get-properties-function
+ 'edconf-get-properties-from-exec
+ "Function to get EditorConofig properties for current buffer.
+This function will be called with no argument and should return a hash object
+containing properties, or nil if any core program is not available.
+The hash object should have symbols of property names as keys and strings of
+property values as values."
+ :type 'function
+ :group 'editorconfig)
+
(defcustom edconf-custom-hooks ()
"A list of custom hooks after loading common EditorConfig settings
@@ -104,10 +114,24 @@ property emacs_linum to decide whether to show line
numbers on the left
(defun edconf-parse-properties (props-string)
)
+(defun edconf-get-properties-from-exec ()
+ "Get EditorConfig properties of current buffer by calling
`edconf-exec-path'."
+ (if (executable-find edconf-exec-path)
+ (edconf-parse-properties (edconf-get-properties))
+ (display-warning :error
+ "Unable to find editorconfig executable.")
+ nil))
+
(defun edconf-find-file-hook ()
+ (let ((props (and (functionp edconf-get-properties-function)
+ (funcall edconf-get-properties-function))))
+ (if props
+ (progn
(edconf-set-line-length (gethash 'max_line_length props))
(dolist (hook edconf-custom-hooks)
(funcall hook props)))
+ (display-warning :error "EditorConfig core program is not available.
Styles will not be applied."))))
+
;;;###autoload
(add-to-list 'auto-mode-alist '("/\\.editorconfig\\'" . conf-unix-mode))
