From 920bf4167c3e16e69ffbe1a3e475ada365576377 Mon Sep 17 00:00:00 2001 From: James Nguyen Date: Sun, 5 Nov 2017 10:21:06 -0800 Subject: [PATCH] Add evil-profiler --- evil-collection.el | 3 +++ evil-profiler.el | 45 +++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 48 insertions(+) create mode 100644 evil-profiler.el diff --git a/evil-collection.el b/evil-collection.el index 493c617..e22760a 100644 --- a/evil-collection.el +++ b/evil-collection.el @@ -55,6 +55,9 @@ (require 'evil-package-menu) (evil-package-menu-set-keys)) + (with-eval-after-load 'profiler + (require 'evil-profiler)) + (if (<= emacs-major-version 25) (progn (require 'evil-occur) diff --git a/evil-profiler.el b/evil-profiler.el new file mode 100644 index 0000000..d68f496 --- /dev/null +++ b/evil-profiler.el @@ -0,0 +1,45 @@ +;;; evil-profiler.el --- Evil integration for profiler. -*- lexical-binding: t -*- + +;; Copyright (C) 2017 James Nguyen + +;; Author: James Nguyen +;; Maintainer: James Nguyen +;; URL: https://github.com/jojojames/evil-collection +;; Version: 0.0.1 +;; Package-Requires: ((emacs "25.1")) +;; Keywords: evil, emacs, profiler +;; HomePage: https://github.com/jojojames/evil-collection + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: +;; Evil integration for `profiler'. +(require 'evil-collection-util) +(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)) + +(provide 'evil-profiler) +;;; evil-profiler.el ends here