emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Merge profiler bindings from evil-special-modes

This commit is contained in:
Pierre Neidhardt 2017-11-06 15:10:45 +01:00
parent d936b5191c
commit aba5d502b6
1 changed files with 37 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
evil-profiler.el
View File

@ -2,8 +2,8 @@
;; Copyright (C) 2017 James Nguyen ;; Copyright (C) 2017 James Nguyen
;; Author: James Nguyen <james@jojojames.com> ;; Author: Pierre Neidhardt <ambrevar@gmail.com>
;; Maintainer: James Nguyen <james@jojojames.com> ;; Maintainer: James Nguyen <james@jojojames.com>, Pierre Neidhardt <ambrevar@gmail.com>
;; URL: https://github.com/jojojames/evil-collection ;; URL: https://github.com/jojojames/evil-collection
;; Version: 0.0.1 ;; Version: 0.0.1
;; Package-Requires: ((emacs "25.1")) ;; Package-Requires: ((emacs "25.1"))
@ -25,21 +25,44 @@
;;; Commentary: ;;; Commentary:
;; Evil integration for `profiler'. ;; Evil integration for `profiler'.
(require 'evil-collection-util)
(require 'evil)
(require 'profiler) (require 'profiler)
;;; Code:
(defun evil-profiler-set-keys () (defun evil-profiler-set-keys ()
(+evilify-map (evil-set-initial-state 'profiler-report-mode 'motion)
profiler-report-mode-map
:mode profiler-report-mode (evil-define-key 'motion profiler-report-mode-map
:bindings ;; motion
"H" 'describe-mode (kbd "SPC") 'scroll-up-command
"gr" 'revert-buffer (kbd "S-SPC") 'scroll-down-command
"gj" 'profiler-report-next-entry (kbd "<delete>") 'scroll-down-command
"gk" 'profiler-report-previous-entry "j" 'profiler-report-next-entry
"\C-j" 'profiler-report-next-entry "k" 'profiler-report-previous-entry
"\C-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) (provide 'evil-profiler)
;;; evil-profiler.el ends here ;;; evil-profiler.el ends here