From 78b50933f4503ec2d6933bdd8fce72fdac81d57a Mon Sep 17 00:00:00 2001
From: Christopher James Hayward <chris@chrishayward.xyz>
Date: Tue, 15 Jun 2021 19:29:33 -0400
Subject: [PATCH] Disable broken teamviewer / add hydra for text scaling

---
 README.org             | 26 +++++++++++++++++++++++---
 modules/emacs.nix      |  1 +
 modules/teamviewer.nix |  9 ++++++---
 3 files changed, 30 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index cdfc181..6582d38 100644
--- a/README.org
+++ b/README.org
@@ -661,9 +661,12 @@ The Teamviewer[fn:25] remote connectivity cloud platform enables secure remote a
 { pkgs, ... }:
 
 {
-  environment.systemPackages = [
-    pkgs.teamviewer
-  ];
+  # NOTE: Neither of these are working!
+  # services.teamviewer.enable = true;
+
+  # environment.systemPackages = [
+  #   pkgs.teamviewer
+  # ];
 }
 #+END_SRC
 
@@ -866,6 +869,7 @@ let
       <<emacs-eshell-package>>
       <<emacs-vterm-package>>
       <<emacs-magit-package>>
+      <<emacs-fonts-package>>
       <<emacs-elfeed-package>>
       <<emacs-nix-mode-package>>
       <<emacs-projectile-package>>
@@ -1376,6 +1380,11 @@ epkgs.magit
 
 ** Fonts
 
+#+NAME: emacs-fonts-package
+#+BEGIN_SRC nix
+epkgs.hydra
+#+END_SRC
+
 #+NAME: emacs-fonts-elisp
 #+BEGIN_SRC emacs-lisp
 ;; Configure the font when running as `emacs-server'.
@@ -1387,6 +1396,17 @@ epkgs.magit
 ;; (set-face-attribute 'default nil :font "Iosevka" :height 96)
 ;; (set-face-attribute 'fixed-pitch nil :font "Iosevka" :height 96)
 ;; (set-face-attribute 'variable-pitch nil :font "Iosevka" :height 96)
+
+;; Define a `hydra' function for scaling the text interactively.
+(defhydra hydra-text-scale (:timeout 4)
+  "Scale text"
+  ("j" text-scale-decrease "Decrease")
+  ("k" text-scale-increase "Increase")
+  ("f" nil "Finished" :exit t))
+
+;; Create keybinding for calling the function.
+(dotfiles/leader
+  "tf" '(hydra-text-scale/body :which-key "Font"))
 #+END_SRC
 
 ** Elfeed
diff --git a/modules/emacs.nix b/modules/emacs.nix
index f8c340b..9c523d5 100644
--- a/modules/emacs.nix
+++ b/modules/emacs.nix
@@ -35,6 +35,7 @@ let
       epkgs.eshell-prompt-extras
       epkgs.vterm
       epkgs.magit
+      epkgs.hydra
       epkgs.elfeed
       epkgs.nix-mode
       epkgs.projectile
diff --git a/modules/teamviewer.nix b/modules/teamviewer.nix
index 6870bfb..ab1321c 100644
--- a/modules/teamviewer.nix
+++ b/modules/teamviewer.nix
@@ -2,7 +2,10 @@
 { pkgs, ... }:
 
 {
-  environment.systemPackages = [
-    pkgs.teamviewer
-  ];
+  # NOTE: Neither of these are working!
+  # services.teamviewer.enable = true;
+
+  # environment.systemPackages = [
+  #   pkgs.teamviewer
+  # ];
 }