From f8043e178beaefe251bd0bc410fb8ea1823ffda3 Mon Sep 17 00:00:00 2001
From: Maciej Szlosarczyk <maciej@sosek.net>
Date: Mon, 8 Mar 2021 09:07:12 +0200
Subject: [PATCH] Speed type

---
 .gitignore          |  1 +
 init.el             |  3 +--
 pkg/hydra.el        |  3 ++-
 pkg/speed-type.el   | 19 +++++++++++++++++++
 pkg/sys-specific.el |  2 +-
 5 files changed, 24 insertions(+), 4 deletions(-)
 create mode 100644 pkg/speed-type.el

diff --git a/.gitignore b/.gitignore
index 1ecace3..8cddc2a 100644
--- a/.gitignore
+++ b/.gitignore
@@ -21,3 +21,4 @@ ac-comphist.dat
 .dap-breakpoints
 !straight/versions/default.el
 /straight
+/speed-type
diff --git a/init.el b/init.el
index 718c669..b7e6c5d 100644
--- a/init.el
+++ b/init.el
@@ -45,6 +45,7 @@
 (require '+custom-pkg-undo-tree "$HOME/.emacs.d/pkg/undo-tree.el")
 (require '+custom-pkg-avy "$HOME/.emacs.d/pkg/avy.el")
 (require '+custom-pkg-term "$HOME/.emacs.d/pkg/term.el")
+(require '+custom-pkg-speed-type "$HOME/.emacs.d/pkg/speed-type.el")
 
 ;; Themes
 (require '+custom-themes "$HOME/.emacs.d/themes/themes.el")
@@ -77,8 +78,6 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
- '(package-selected-packages
-   '(perspective apropospriate-theme jenkinsfile-mode vue-mode dap-mode undo-tree helpful lsp-haskell dashboard fsharp-mode dash-at-point racer racer-mode flycheck-rust rust-mode haskell-mode dune which-key erlang gitignore-mode yaml-mode nginx-mode ansible terraform-mode dockerfile-mode reason-mode merlin tuareg clj-refactor cider clojure-mode elixir-mode js2-mode web-mode enh-ruby-mode ruby-end rspec-mode planet-theme flatui-theme base16-theme smart-mode-line lsp-ui lsp-mode deft counsel-projectile flycheck company yasnippet-snippets yasnippet visual-regexp column-enforce-mode rainbow-mode rainbow-delimiters magit hydra counsel keyfreq exec-path-from-shell buffer-move use-package))
  '(safe-local-variable-values
    '((column-enforce-column . 10000)
      (haskell-process-use-ghci . t)
diff --git a/pkg/hydra.el b/pkg/hydra.el
index 15dd033..b214219 100644
--- a/pkg/hydra.el
+++ b/pkg/hydra.el
@@ -27,7 +27,7 @@
 ^Magit:             _m_: Git status         _C_: Git checkout           _M_: Git blame
 ^
 ^LISP:              _i_: Console            _e_: Eval region
-^                   _d_: Deft
+^Other:             _d_: Deft               _T_: Speed type
 ^
 "
 
@@ -51,6 +51,7 @@
     ("c" projectile-invalidate-cache)
     ("n" projectile-add-known-project)
     ("i" ielm)
+    ("T" speed-type-text)
     ("e" eval-region)
 
     ("m" magit-status)
diff --git a/pkg/speed-type.el b/pkg/speed-type.el
new file mode 100644
index 0000000..42c502b
--- /dev/null
+++ b/pkg/speed-type.el
@@ -0,0 +1,19 @@
+;;; speed-type.el --- summary
+
+;; Author: Maciej Szlosarczyk
+;; Maintainer: Maciej Szlosarczyk
+;; Version: 0.1-snapshot
+
+;;; Commentary:
+
+;; speed-type teaches you how to type.
+
+;;; Code:
+
+(use-package speed-type
+  :straight t
+  :ensure t
+  :defer t)
+
+(provide '+custom-pkg-speed-type)
+;;; speed-type.el ends here
diff --git a/pkg/sys-specific.el b/pkg/sys-specific.el
index 0c9e1d1..358006b 100644
--- a/pkg/sys-specific.el
+++ b/pkg/sys-specific.el
@@ -42,7 +42,7 @@
       (define-key +custom-keys-mode-map [(hyper c)] 'kill-ring-save)
       (define-key +custom-keys-mode-map [(hyper s)] 'save-buffer)
       (define-key +custom-keys-mode-map [(hyper l)] 'goto-line)
-      (define-key +custom-keys-mode-map [(hyper w)] '+delete-window)
+      (define-key +custom-keys-mode-map [(hyper w)] '+custom-function-delete-window)
       (define-key +custom-keys-mode-map [(hyper z)] 'undo)
       (define-key +custom-keys-mode-map [(hyper q)] 'kill-emacs)