From 704b3d8b00fca1ac4fd12420cbf159290088cce1 Mon Sep 17 00:00:00 2001
From: Christopher James Hayward <chris@chrishayward.xyz>
Date: Sat, 2 Dec 2023 11:52:02 -0500
Subject: [PATCH] Add custom command 'g' to run 'startx' from anywhere

---
 README.org        | 39 ++++++++++++++++++++++-----------------
 modules/emacs.nix |  5 +++++
 2 files changed, 27 insertions(+), 17 deletions(-)

diff --git a/README.org b/README.org
index 9f2c6f6..9a12a64 100644
--- a/README.org
+++ b/README.org
@@ -1647,6 +1647,11 @@ epkgs.exwm
 pkgs.arandr
 pkgs.nitrogen
 pkgs.autorandr
+(pkgs.writeShellScriptBin "g" ''
+  pushd $HOME
+  startx
+  popd /dev/null
+'')
 #+END_SRC
   
 I wanted to leave ~(exwm-enable)~ out of my Emacs configuration (which does no harm anyways). This can be called when using the daemon to start [[https://github.com/ch11ng/exwm][EXWM]].
@@ -1717,6 +1722,23 @@ home.file.".xinitrc" = {
     (dotfiles/run-in-background "autorandr --change --force"))) ;; Swap to the next screen config.
 #+END_SRC
 
+*** Which Key
+
+[[https://github.com/justbur/emacs-which-key][Which Key]] is an [[https://gnu.org/software/emacs/][Emacs]] minor mode that displays the key bindings following your currently entered incomplete command (prefix) in a popup or mini-buffer.
+
+#+NAME: emacs-which-key-package
+#+BEGIN_SRC nix
+epkgs.which-key
+#+END_SRC
+
+#+NAME: emacs-which-key-elisp
+#+BEGIN_SRC emacs-lisp
+;; Configure `which-key' to see keyboard bindings in the
+;; mini-buffer and when using M-x.
+(setq which-key-idle-delay 0.0)
+(which-key-mode +1)
+#+END_SRC
+
 *** General
 
 #+NAME: emacs-general-package
@@ -1767,23 +1789,6 @@ epkgs.general
   "s" '((lambda () (interactive) (switch-to-buffer "*scratch*")) :which-key "Scratch"))
 #+END_SRC
 
-*** Which Key
-
-[[https://github.com/justbur/emacs-which-key][Which Key]] is an [[https://gnu.org/software/emacs/][Emacs]] minor mode that displays the key bindings following your currently entered incomplete command (prefix) in a popup or mini-buffer.
-
-#+NAME: emacs-which-key-package
-#+BEGIN_SRC nix
-epkgs.which-key
-#+END_SRC
-
-#+NAME: emacs-which-key-elisp
-#+BEGIN_SRC emacs-lisp
-;; Configure `which-key' to see keyboard bindings in the
-;; mini-buffer and when using M-x.
-(setq which-key-idle-delay 0.0)
-(which-key-mode +1)
-#+END_SRC
-
 *** EWW
 
 [[https://emacswiki.org/emacs/eww][Emacs Web Wowser (EWW)]] is a Web browser written in [[https://www.gnu.org/software/emacs/manual/html_node/elisp/index.html][Emacs Lisp]] based on the ~shr.el~ library. It's my primary browser when it comes to text-based browsing.
diff --git a/modules/emacs.nix b/modules/emacs.nix
index 63c7ee1..42cd315 100644
--- a/modules/emacs.nix
+++ b/modules/emacs.nix
@@ -94,6 +94,11 @@ in {
       pkgs.arandr
       pkgs.nitrogen
       pkgs.autorandr
+      (pkgs.writeShellScriptBin "g" ''
+        pushd $HOME
+        startx
+        popd /dev/null
+      '')
       pkgs.pass
       (pkgs.writeShellScriptBin "pass-init" ''
         ${pkgs.git}/bin/git clone git@git.chrishayward.xyz:chris/passwords /home/chris/.password-store