summary refs log tree commit diff stats
path: root/emacs/.emacs.d/main.el
diff options
context:
space:
mode:
authorAlan Pearce2017-09-15 12:19:57 +0200
committerAlan Pearce2017-09-15 12:19:57 +0200
commitedc7739837f4ecbf568405835c5470ab4ac222dd (patch)
tree5481b73b8fcf31d85f784bf464893e61dee8a3af /emacs/.emacs.d/main.el
parent54c18184114b266cec0966b663e12e60c52ed985 (diff)
downloadnixfiles-edc7739837f4ecbf568405835c5470ab4ac222dd.tar.lz
nixfiles-edc7739837f4ecbf568405835c5470ab4ac222dd.tar.zst
nixfiles-edc7739837f4ecbf568405835c5470ab4ac222dd.zip
Emacs: Remove nix info from frame title
Diffstat (limited to 'emacs/.emacs.d/main.el')
-rw-r--r--emacs/.emacs.d/main.el17
1 files changed, 0 insertions, 17 deletions
diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 1caab89f..4ccb261d 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -272,25 +272,8 @@
 (line-number-mode -1)
 (size-indication-mode t)
 
-
 (require 'f)
 (setq frame-title-format (list "Emacs"
-                               (if (and nix-emacs invocation-directory)
-                                   (list " (Nix Generation "
-                                         (cadr
-                                          (split-string (f-base
-                                                         (car
-                                                          (last (seq-take-while
-                                                                 (lambda (s) (s-contains? "profile" s))
-                                                                 (split-string
-                                                                  (s-chomp (shell-command-to-string (concat "nix-store -q --roots " invocation-directory)))
-                                                                  "\n")))))
-                                                        "-"))
-                                         " "
-                                         (s-left 6 (nth 3 (f-split invocation-directory)))
-                                         "..."
-                                         (s-right 6 (car (split-string (nth 3 (f-split invocation-directory)) "-")))
-                                         ")"))
                                '(buffer-file-name " — %f")
                                '(dired-directory (" — " dired-directory))))
 ;; #+END_SRC