17ee0e400b
After moving off of Meta, Dotfiles has a greater responsibility to manage configs. Vim, Tmux, and Emacs are now within Stow's purview.
36 lines
1 KiB
EmacsLisp
36 lines
1 KiB
EmacsLisp
;;; nix-log.el -- run nix commands in Emacs -*- lexical-binding: t -*-
|
|
|
|
;; Author: Matthew Bauer <mjbauer95@gmail.com>
|
|
;; Homepage: https://github.com/NixOS/nix-mode
|
|
;; Keywords: nix
|
|
|
|
;; This file is NOT part of GNU Emacs.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'nix)
|
|
(require 'nix-search)
|
|
(require 'nix-instantiate)
|
|
|
|
(defun nix-log (file attr)
|
|
"Open the nix log.
|
|
FILE nix file to parse.
|
|
ATTR attribute to load the log of."
|
|
(interactive (list (nix-read-file) nil))
|
|
(unless attr (setq attr (nix-read-attr file)))
|
|
|
|
(let* ((drv-file (nix-instantiate file attr))
|
|
(drv-name (progn
|
|
(string-match (format "^%s/\\(.*\\)$" nix-store-dir) drv-file)
|
|
(match-string 1 drv-file)))
|
|
(log-file (format "%s/log/nix/drvs/%s/%s.bz2"
|
|
nix-state-dir
|
|
(substring drv-name 0 2) drv-name)))
|
|
(if (file-exists-p log-file)
|
|
(find-file log-file)
|
|
(error "No log is available for derivation"))))
|
|
|
|
(provide 'nix-log)
|
|
;;; nix-log.el ends here
|