9da3ffee41
This is a massive diff that I had to do in a hurry - when leaving Urbint. I'm pretty sure that most of these are updating Emacs packages, but I'm not positive.
47 lines
1.4 KiB
EmacsLisp
47 lines
1.4 KiB
EmacsLisp
;;; nix-shebang.el --- Handle nix shebang header -*- lexical-binding: t -*-
|
||
|
||
;; Author: Matthew Bauer <mjbauer95@gmail.com>
|
||
;; Homepage: https://github.com/NixOS/nix-mode
|
||
;; Version: 1.2.1
|
||
;; Keywords: nix, languages, tools, unix
|
||
;; Package-Requires: ((emacs "24.3"))
|
||
|
||
;; This file is NOT part of GNU Emacs.
|
||
|
||
;;; Commentary:
|
||
|
||
;; This detects file headers that look like:
|
||
;; #!/usr/bin/env nix-shell
|
||
;; #!nix-shell -i bash
|
||
|
||
;; and correctly detects their file modes.
|
||
|
||
;;; Code:
|
||
|
||
(require 'files)
|
||
|
||
(defvar nix-shebang-interpreter-regexp "#!\s*nix-shell -i \\([^ \t\n]+\\)"
|
||
"Regexp for nix-shell -i header.")
|
||
|
||
(defun nix-shebang-get-interpreter ()
|
||
"Get interpreter string from nix-shell -i file."
|
||
(save-excursion
|
||
(goto-char (point-min))
|
||
(forward-line 1)
|
||
(when (looking-at nix-shebang-interpreter-regexp)
|
||
(match-string 1))))
|
||
|
||
(defun nix-shebang-mode ()
|
||
"Detect and run file’s interpreter mode."
|
||
(let ((mode (nix-shebang-get-interpreter)))
|
||
(when mode
|
||
(funcall (assoc-default mode
|
||
(mapcar (lambda (e)
|
||
(cons
|
||
(format "\\`%s\\'" (car e))
|
||
(cdr e)))
|
||
interpreter-mode-alist)
|
||
#'string-match-p)))))
|
||
|
||
(provide 'nix-shebang)
|
||
;;; nix-shebang.el ends here
|