Emacs: Evil: Add bindings for transmission

.emacs.d/init.el

@@ -251,7 +251,7 @@ e-mail."
 
 ;;; Torrent
 (nconc package-selected-packages '(transmission))
-(when (boundp 'transmission)
+(when (fboundp 'transmission)
   (setq transmission-refresh-modes '(transmission-mode transmission-files-mode transmission-info-mode transmission-peers-mode)
         transmission-refresh-interval 1))
 

.emacs.d/lisp/init-evil.el

@@ -404,7 +404,63 @@ The return value is the yanked text."
                      (t evil-default-modeline-color))))
     (set-face-background 'mode-line (car color))
     (set-face-foreground 'mode-line (cdr color))))
-
 (add-hook 'post-command-hook 'evil-color-modeline)
 (setq evil-mode-line-format nil)
+
+(with-eval-after-load 'transmission
+  (evil-set-initial-state 'transmission-mode 'normal)
+  (evil-define-key 'normal transmission-mode-map
+    (kbd "<return>") 'transmission-files
+    "D" 'transmission-delete
+    "S" 'tabulated-list-sort
+    "a" 'transmission-add
+    "d" 'transmission-set-download
+    "e" 'transmission-peers
+    "i" 'transmission-info
+    "U" 'transmission-set-ratio
+    "x" 'transmission-move
+    "q" 'transmission-quit
+    "r" 'transmission-remove
+    "s" 'transmission-toggle
+    "I" 'transmission-trackers-add
+    "u" 'transmission-set-upload
+    "c" 'transmission-verify
+    "C" 'transmission-set-bandwidth-priority)
+
+  (evil-define-key 'normal transmission-files-mode-map
+    (kbd "<return>") 'transmission-find-file
+    "\M-l" 'transmission-display-file
+    "!" 'transmission-files-command
+    "S" 'tabulated-list-sort
+    "A" 'transmission-browse-url-of-file
+    "X" 'transmission-files-command
+    "^" 'quit-window
+    "e" 'transmission-peers
+    "i" 'transmission-info
+    "x" 'transmission-move
+    "o" 'transmission-find-file-other-window
+    "q" 'quit-window
+    "u" 'transmission-files-unwant
+    "O" 'transmission-view-file
+    "U" 'transmission-files-want
+    "C" 'transmission-files-priority)
+
+  (evil-define-key 'normal transmission-info-mode-map
+    "r" 'transmission-trackers-remove
+    "c" 'transmission-copy-magnet
+    "d" 'transmission-set-torrent-download
+    "U" 'transmission-set-torrent-ratio
+    "q" 'quit-window
+    "a" 'transmission-trackers-add
+    "u" 'transmission-set-torrent-upload
+    "e" 'transmission-peers
+    "x" 'transmission-move
+    "I" 'transmission-trackers-add
+    "C" 'transmission-set-bandwidth-priority)
+
+  (evil-define-key 'normal transmission-peers-mode-map
+    "S" 'tabulated-list-sort
+    "i" 'transmission-info
+    "q" 'quit-window))
+
 (provide 'init-evil)