From aba5d502b692cf37d5f79e7802f58dffbf59567d Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <ambrevar@gmail.com>
Date: Mon, 6 Nov 2017 15:10:45 +0100
Subject: [PATCH] Merge profiler bindings from evil-special-modes

---
 evil-profiler.el | 51 +++++++++++++++++++++++++++++++++++-------------
 1 file changed, 37 insertions(+), 14 deletions(-)

diff --git a/evil-profiler.el b/evil-profiler.el
index d68f496..e588237 100644
--- a/evil-profiler.el
+++ b/evil-profiler.el
@@ -2,8 +2,8 @@
 
 ;; Copyright (C) 2017 James Nguyen
 
-;; Author: James Nguyen <james@jojojames.com>
-;; Maintainer: James Nguyen <james@jojojames.com>
+;; Author: Pierre Neidhardt <ambrevar@gmail.com>
+;; Maintainer: James Nguyen <james@jojojames.com>, Pierre Neidhardt <ambrevar@gmail.com>
 ;; URL: https://github.com/jojojames/evil-collection
 ;; Version: 0.0.1
 ;; Package-Requires: ((emacs "25.1"))
@@ -25,21 +25,44 @@
 
 ;;; Commentary:
 ;; Evil integration for `profiler'.
-(require 'evil-collection-util)
+
+(require 'evil)
 (require 'profiler)
 
-;;; Code:
 (defun evil-profiler-set-keys ()
-  (+evilify-map
-   profiler-report-mode-map
-   :mode profiler-report-mode
-   :bindings
-   "H" 'describe-mode
-   "gr" 'revert-buffer
-   "gj" 'profiler-report-next-entry
-   "gk" 'profiler-report-previous-entry
-   "\C-j" 'profiler-report-next-entry
-   "\C-k" 'profiler-report-previous-entry))
+  (evil-set-initial-state 'profiler-report-mode 'motion)
+
+  (evil-define-key 'motion profiler-report-mode-map
+    ;; motion
+    (kbd "SPC") 'scroll-up-command
+    (kbd "S-SPC") 'scroll-down-command
+    (kbd "<delete>") 'scroll-down-command
+    "j" 'profiler-report-next-entry
+    "k" 'profiler-report-previous-entry
+
+    (kbd "<tab>") 'profiler-report-toggle-entry
+    (kbd "<return>") 'profiler-report-toggle-entry
+    "i" 'profiler-report-toggle-entry
+
+    ;; sort
+    "o" 'profiler-report-ascending-sort
+    "O" 'profiler-report-descending-sort
+
+    "c" 'profiler-report-render-calltree
+    "C" 'profiler-report-render-reversed-calltree
+    "i" 'profiler-report-describe-entry
+    "=" 'profiler-report-compare-profile
+
+    ;; goto
+    "gd" 'profiler-report-find-entry
+
+    ;; update
+    "gr" 'revert-buffer
+
+    ;; quit
+    "q" 'quit-window
+    "ZQ" 'evil-quit
+    "ZZ" 'quit-windw))
 
 (provide 'evil-profiler)
 ;;; evil-profiler.el ends here