branch: elpa/nix-mode
commit cc60a0d027c17f0ae659e28eb6f070935e792e4d
Author: Matthew Bauer <[email protected]>
Commit: Matthew Bauer <[email protected]>
Make nix-drv-mode a derived-mode of javascript-mode
This makes nix-drv-mode derived from javascript-mode. Cleanup is done
on change major mode. Cleanup can also be done manually via
nix-drv-mode-dejsonify-buffer.
---
nix-drv-mode.el | 47 +++++++++++++++++++++++++----------------------
1 file changed, 25 insertions(+), 22 deletions(-)
diff --git a/nix-drv-mode.el b/nix-drv-mode.el
index c9b253be6b..480f19c939 100644
--- a/nix-drv-mode.el
+++ b/nix-drv-mode.el
@@ -19,30 +19,33 @@
(require 'javascript-mode)
(require 'nix)
-(defvar-local nix-drv-mode nil)
-
;;;###autoload
-(defun nix-drv-mode ()
+(define-derived-mode nix-drv-mode javascript-mode "Nix-Derivation"
"Pretty print Nix’s .drv files."
- (interactive)
- (when (string-match (format "^%s/" nix-store-dir) (buffer-file-name))
- (if nix-drv-mode
- (progn
- (erase-buffer)
- (insert-file-contents (buffer-file-name))
- (setq nix-drv-mode nil)
- (set-buffer-modified-p nil)
- (read-only-mode nil))
- (let ((inhibit-read-only t))
- (setq nix-drv-mode t)
- (erase-buffer)
- (insert (shell-command-to-string
- (format "%s show-derivation \"%s\""
- nix-executable
- (buffer-file-name))))
- (javascript-mode)
- (set-buffer-modified-p nil)
- (read-only-mode 1)))))
+ (let ((inhibit-read-only t))
+ (erase-buffer)
+ (insert (shell-command-to-string
+ (format "%s show-derivation \"%s\""
+ nix-executable
+ (buffer-file-name))))
+ (set-buffer-modified-p nil)
+ (read-only-mode 1))
+
+ (add-hook 'change-major-mode-hook #'nix-drv-mode-dejsonify-buffer nil t))
+
+(defun nix-drv-mode-dejsonify-buffer ()
+ "Restore nix-drv-mode when switching to another mode."
+
+ (remove-hook 'change-major-mode-hook #'nix-drv-mode-dejsonify-buffer t)
+
+ (let ((inhibit-read-only t))
+ (erase-buffer)
+ (insert-file-contents (buffer-file-name))
+ (set-buffer-modified-p nil)
+ (read-only-mode nil)))
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.drv\\'" . nix-drv-mode))
(provide 'nix-drv-mode)
;;; nix-drv-mode.el ends here
