public/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

nixBufferBuilders.withPackages: Fix buffer count logic

Browse Source
This commit is contained in:
Shea Levy 2017-03-01 11:00:07 -05:00
parent 0495b34782
commit bae77363c3
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pkgs/build-support/emacs/buffer.nix
View File

@ -12,15 +12,16 @@
; Only set up nixpkgs buffer handling when we have some buffers active ; Only set up nixpkgs buffer handling when we have some buffers active
(defvar nixpkgs--buffer-count 0) (defvar nixpkgs--buffer-count 0)
(when (eq nixpkgs--buffer-count 0) (when (eq nixpkgs--buffer-count 0)
(make-variable-buffer-local 'nixpkgs--is-nixpkgs-buffer)
; When generating a new temporary buffer (one whose name starts with a space), do inherit-local inheritance and make it a nixpkgs buffer ; When generating a new temporary buffer (one whose name starts with a space), do inherit-local inheritance and make it a nixpkgs buffer
(defun nixpkgs--around-generate (orig name) (defun nixpkgs--around-generate (orig name)
(if (eq (aref name 0) ?\s) (if (and nixpkgs--is-nixpkgs-buffer (eq (aref name 0) ?\s))
(let ((buf (funcall orig name))) (let ((buf (funcall orig name)))
(when (inherit-local-inherit-child buf) (progn
(inherit-local-inherit-child buf)
(with-current-buffer buf (with-current-buffer buf
(make-local-variable 'kill-buffer-hook)
(setq nixpkgs--buffer-count (1+ nixpkgs--buffer-count)) (setq nixpkgs--buffer-count (1+ nixpkgs--buffer-count))
(add-hook 'kill-buffer-hook 'nixpkgs--decrement-buffer-count))) (add-hook 'kill-buffer-hook 'nixpkgs--decrement-buffer-count nil t)))
buf) buf)
(funcall orig name))) (funcall orig name)))
(advice-add 'generate-new-buffer :around #'nixpkgs--around-generate) (advice-add 'generate-new-buffer :around #'nixpkgs--around-generate)
@ -32,8 +33,7 @@
(fmakunbound 'nixpkgs--around-generate) (fmakunbound 'nixpkgs--around-generate)
(fmakunbound 'nixpkgs--decrement-buffer-count)))) (fmakunbound 'nixpkgs--decrement-buffer-count))))
(setq nixpkgs--buffer-count (1+ nixpkgs--buffer-count)) (setq nixpkgs--buffer-count (1+ nixpkgs--buffer-count))
(make-local-variable 'kill-buffer-hook) (add-hook 'kill-buffer-hook 'nixpkgs--decrement-buffer-count nil t)
(add-hook 'kill-buffer-hook 'nixpkgs--decrement-buffer-count)
; Add packages to PATH and exec-path ; Add packages to PATH and exec-path
(make-local-variable 'process-environment) (make-local-variable 'process-environment)
@ -42,6 +42,9 @@
(setenv "PATH" (concat "${lib.makeSearchPath "bin" pkgs}:" (getenv "PATH"))) (setenv "PATH" (concat "${lib.makeSearchPath "bin" pkgs}:" (getenv "PATH")))
(inherit-local-permanent exec-path (append '(${builtins.concatStringsSep " " (map (p: "\"${p}/bin\"") pkgs)}) exec-path)) (inherit-local-permanent exec-path (append '(${builtins.concatStringsSep " " (map (p: "\"${p}/bin\"") pkgs)}) exec-path))
(setq nixpkgs--is-nixpkgs-buffer t)
(inherit-local 'nixpkgs--is-nixpkgs-buffer)
${lib.concatStringsSep "\n" extras} ${lib.concatStringsSep "\n" extras}
''; '';
} }