From 0c8ff8494e28e6bf29e8eb584da57c6c13d62537 Mon Sep 17 00:00:00 2001 From: Xe Date: Mon, 23 Jan 2023 11:30:18 -0500 Subject: [PATCH] add xe-tools emacs module Signed-off-by: Xe --- common/home-manager/emacs/default.nix | 9 +++++++++ common/home-manager/emacs/xe-tools.el | 8 ++++++++ 2 files changed, 17 insertions(+) create mode 100644 common/home-manager/emacs/xe-tools.el diff --git a/common/home-manager/emacs/default.nix b/common/home-manager/emacs/default.nix index 2cf5a2c..8d17825 100644 --- a/common/home-manager/emacs/default.nix +++ b/common/home-manager/emacs/default.nix @@ -468,6 +468,15 @@ in { enable = true; mode = [ ''"\\.zig\\'"'' ]; }; + + ## custom shit + xe-tools = { + enable = true; + package = (epkgs: epkgs.trivialBuild { + pname = "xe-tools"; + src = ./xe-tools.el; + }); + }; }; }; }; diff --git a/common/home-manager/emacs/xe-tools.el b/common/home-manager/emacs/xe-tools.el new file mode 100644 index 0000000..5c5d343 --- /dev/null +++ b/common/home-manager/emacs/xe-tools.el @@ -0,0 +1,8 @@ +(defun xe/count-buffers (&optional display-anyway) + "Display or return the number of buffers." + (interactive) + (let ((buf-count (length (buffer-list)))) + (if (or (interactive-p) display-anyway) + (message "%d buffers in this Emacs" buf-count)) buf-count)) + +(provide 'xe-tools)