ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
80 lines
3.1 KiB
EmacsLisp
80 lines
3.1 KiB
EmacsLisp
;;; lang/nix/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
(defun +nix--options-action (candidate)
|
|
(switch-to-buffer-other-window
|
|
(nixos-options-doc-buffer
|
|
(nixos-options-get-documentation-for-option candidate))))
|
|
|
|
;;;###autoload
|
|
(defun +nix/open-repl ()
|
|
"Open a nix repl."
|
|
(interactive)
|
|
(nix-repl-show)
|
|
(current-buffer))
|
|
|
|
;;;###autoload
|
|
(defun +nix/lookup-option (&optional initial-input)
|
|
"Look up documentation on a nix option."
|
|
(interactive
|
|
(list
|
|
;; REVIEW Must be a better way to do this
|
|
(when (and (looking-at-p "[a-zA-Z0-9-_\\.]")
|
|
(not (doom-point-in-string-or-comment-p)))
|
|
(buffer-substring-no-properties
|
|
(save-excursion
|
|
(skip-chars-backward "^ ")
|
|
(point))
|
|
(save-excursion
|
|
(skip-chars-forward "^ ")
|
|
(point))))))
|
|
(cond ((modulep! :completion helm)
|
|
(require 'helm-nixos-options)
|
|
;; REVIEW We reimplment `helm-nixos-options' so we can supply
|
|
;; `initial-input'. Maybe use `helm-attrset' instead?
|
|
(helm :sources `(,(helm-source-nixos-options-search))
|
|
:buffer "*helm-nixos-options*"
|
|
:input initial-input))
|
|
((modulep! :completion ivy)
|
|
(require 'nixos-options)
|
|
(ivy-read "NixOS options: "
|
|
nixos-options
|
|
:require-match t
|
|
:initial-input initial-input
|
|
:action #'+nix--options-action
|
|
:caller '+nix/options))
|
|
((+nix--options-action (cdr
|
|
(assoc
|
|
(completing-read "NixOs options: "
|
|
nixos-options
|
|
nil
|
|
t
|
|
initial-input) nixos-options)))))
|
|
;; Tell lookup module to let us handle things from here
|
|
'deferred)
|
|
|
|
;;;###autoload
|
|
(defun +nix-shell-init-mode ()
|
|
"Resolve a (cached-)?nix-shell shebang to the correct major mode."
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(save-match-data
|
|
(if (not (and (re-search-forward "\\_<nix-shell " (line-end-position 2) t)
|
|
(re-search-forward "-i +\"?\\([^ \"\n]+\\)" (line-end-position) t)))
|
|
(message "Couldn't determine mode for this script")
|
|
(let* ((interp (match-string 1))
|
|
(mode
|
|
(assoc-default
|
|
interp
|
|
(mapcar (lambda (e)
|
|
(cons (format "\\`%s\\'" (car e))
|
|
(cdr e)))
|
|
interpreter-mode-alist)
|
|
#'string-match-p)))
|
|
(when mode
|
|
(prog1 (set-auto-mode-0 mode)
|
|
(when (eq major-mode 'sh-mode)
|
|
(sh-set-shell interp))
|
|
;; HACK Without this, quickrun tries to evaluate code directly
|
|
;; with (cached)?nix-shell.
|
|
;; TODO Use the nix-shell/cached-nix-shell-given interpreter
|
|
(setq-local quickrun-option-shebang nil))))))))
|