174 lines
5.4 KiB
EmacsLisp
174 lines
5.4 KiB
EmacsLisp
|
;;; evil-collection-calc.el --- Evil bindings for calc -*- lexical-binding: t -*-
|
||
|
|
|
||
|
|
;; Copyright (C) 2018 Pierre Neidhardt
|
||
|
|
|
||
|
|
;; Author: Pierre Neidhardt <ambrevar@gmail.com>
|
||
|
|
;; Maintainer: James Nguyen <james@jojojames.com>, Pierre Neidhardt <ambrevar@gmail.com>
|
||
|
|
;; URL: https://github.com/emacs-evil/evil-collection
|
||
|
|
;; Version: 0.0.1
|
||
|
|
;; Package-Requires: ((emacs "25.1"))
|
||
|
|
;; Keywords: evil, calc, tools
|
||
|
|
|
||
|
|
;; This file 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, or (at your
|
||
|
|
;; option) any later version.
|
||
|
|
;;
|
||
|
|
;; This file 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.
|
||
|
|
;;
|
||
|
|
;; For a full copy of the GNU General Public License
|
||
|
|
;; see <http://www.gnu.org/licenses/>.
|
||
|
|
|
||
|
|
;;; Commentary:
|
||
|
|
;; Evil bindings for calc.
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
(require 'evil-collection)
|
||
|
|
(require 'calc)
|
||
|
|
|
||
|
|
(defconst evil-collection-calc-maps '(calc-mode-map))
|
||
|
|
|
||
|
|
(defun evil-collection-calc-setup ()
|
||
|
|
"Set up `evil' bindings for `calc'."
|
||
|
|
(evil-collection-inhibit-insert-state 'calc-mode-map)
|
||
|
|
(evil-set-initial-state 'calc-mode 'normal)
|
||
|
|
|
||
|
|
;; Calc sets up its bindings just-in-time for its "extensions". I don't think
|
||
|
|
;; it's worth copying this clumsy design (for what performance benefit?),
|
||
|
|
;; while making the bindings much harder to maintain.
|
||
|
|
(require 'calc-ext)
|
||
|
|
|
||
|
|
(evil-collection-define-key 'normal 'calc-mode-map
|
||
|
|
"0" 'calcDigit-start
|
||
|
|
"1" 'calcDigit-start
|
||
|
|
"2" 'calcDigit-start
|
||
|
|
"3" 'calcDigit-start
|
||
|
|
"4" 'calcDigit-start
|
||
|
|
"5" 'calcDigit-start
|
||
|
|
"6" 'calcDigit-start
|
||
|
|
"7" 'calcDigit-start
|
||
|
|
"8" 'calcDigit-start
|
||
|
|
"9" 'calcDigit-start
|
||
|
|
|
||
|
|
(kbd "<tab>") 'calc-roll-down
|
||
|
|
(kbd "S-<return>") 'calc-over
|
||
|
|
(kbd "<return>") 'calc-enter
|
||
|
|
(kbd "SPC") 'calc-enter
|
||
|
|
|
||
|
|
(kbd "C-x C-t") 'calc-transpose-lines
|
||
|
|
(kbd "C-M-d") 'calc-pop-above
|
||
|
|
(kbd "C-M-i") 'calc-roll-up
|
||
|
|
(kbd "M-RET") 'calc-last-args
|
||
|
|
(kbd "C-M-w") 'kill-ring-save
|
||
|
|
(kbd "M-%") 'calc-percent
|
||
|
|
(kbd "M-k") 'calc-copy-as-kill
|
||
|
|
(kbd "M-w") 'calc-copy-region-as-kill
|
||
|
|
(kbd "M-DEL") 'calc-pop-above
|
||
|
|
(kbd "M-m t") 'calc-total-algebraic-mode
|
||
|
|
(kbd "<delete>") 'calc-pop
|
||
|
|
(kbd "<mouse-2>") 'calc-yank
|
||
|
|
"x" 'calc-pop ; was "C-d". TODO: Conflicts with calc-execute-extended-command.
|
||
|
|
"d" 'calc-kill ; was "C-k"
|
||
|
|
"u" 'calc-undo ; was "U"
|
||
|
|
"X" 'calc-call-last-kbd-macro ; "@" is already used.
|
||
|
|
"pp" 'calc-yank ; was "C-y"
|
||
|
|
"pP" 'calc-copy-to-buffer ; was "y"
|
||
|
|
|
||
|
|
(kbd "C-p") 'calc-precision ; was "p"
|
||
|
|
|
||
|
|
"?" 'calc-help
|
||
|
|
;; "h" 'calc-help-prefix ; TODO: Rebind?
|
||
|
|
"i" 'calc-info
|
||
|
|
|
||
|
|
"\"" 'calc-auto-algebraic-entry
|
||
|
|
"$" 'calc-auto-algebraic-entry ; TODO: No need for this one?
|
||
|
|
"'" 'calc-algebraic-entry
|
||
|
|
|
||
|
|
"!" 'calc-factorial
|
||
|
|
"#" 'calcDigit-start
|
||
|
|
"%" 'calc-mod
|
||
|
|
"&" 'calc-inv
|
||
|
|
"(" 'calc-begin-complex
|
||
|
|
")" 'calc-end-complex
|
||
|
|
"*" 'calc-times
|
||
|
|
"+" 'calc-plus
|
||
|
|
"," 'calc-comma
|
||
|
|
"-" 'calc-minus
|
||
|
|
"." 'calcDigit-start
|
||
|
|
"/" 'calc-divide
|
||
|
|
":" 'calc-fdiv
|
||
|
|
";" 'calc-semi ; TODO: Shall we really override `evil-ex'?
|
||
|
|
"<" 'calc-scroll-left
|
||
|
|
"=" 'calc-evaluate
|
||
|
|
">" 'calc-scroll-right
|
||
|
|
"@" 'calcDigit-start
|
||
|
|
"A" 'calc-abs
|
||
|
|
"B" 'calc-log
|
||
|
|
"C" 'calc-cos
|
||
|
|
;; "D" 'calc-redo ; TODO: What's the purpose of this? Bind to C-r?
|
||
|
|
"E" 'calc-exp
|
||
|
|
"F" 'calc-floor
|
||
|
|
"G" 'calc-argument
|
||
|
|
"H" 'calc-hyperbolic
|
||
|
|
"I" 'calc-inverse
|
||
|
|
"J" 'calc-conj
|
||
|
|
"K" 'calc-keep-args
|
||
|
|
"L" 'calc-ln
|
||
|
|
"M" 'calc-more-recursion-depth
|
||
|
|
"N" 'calc-eval-num
|
||
|
|
"O" 'calc-option
|
||
|
|
"P" 'calc-pi
|
||
|
|
"Q" 'calc-sqrt
|
||
|
|
"R" 'calc-round
|
||
|
|
"S" 'calc-sin
|
||
|
|
"T" 'calc-tan
|
||
|
|
"[" 'calc-begin-vector
|
||
|
|
"]" 'calc-end-vector
|
||
|
|
"\\" 'calc-idiv
|
||
|
|
"^" 'calc-power
|
||
|
|
"_" 'calcDigit-start
|
||
|
|
"`" 'calc-edit
|
||
|
|
"e" 'calcDigit-start
|
||
|
|
"n" 'calc-change-sign
|
||
|
|
"o" 'calc-realign
|
||
|
|
"w" 'calc-why
|
||
|
|
"x" 'calc-execute-extended-command ; TODO: Conflicts with calc-pop.
|
||
|
|
"|" 'calc-concat
|
||
|
|
"{" 'calc-scroll-down ; TODO: Not necessary?
|
||
|
|
"}" 'calc-scroll-up ; TODO: Not necessary?
|
||
|
|
"~" 'calc-num-prefix
|
||
|
|
|
||
|
|
"V" (lookup-key calc-mode-map (kbd "V"))
|
||
|
|
"Y" (lookup-key calc-mode-map (kbd "Y"))
|
||
|
|
"Z" (lookup-key calc-mode-map (kbd "Z"))
|
||
|
|
"a" (lookup-key calc-mode-map (kbd "a"))
|
||
|
|
"b" (lookup-key calc-mode-map (kbd "b"))
|
||
|
|
"c" (lookup-key calc-mode-map (kbd "c"))
|
||
|
|
"D" (lookup-key calc-mode-map (kbd "d"))
|
||
|
|
"f" (lookup-key calc-mode-map (kbd "f"))
|
||
|
|
"g" (lookup-key calc-mode-map (kbd "g"))
|
||
|
|
"zj" (lookup-key calc-mode-map (kbd "j"))
|
||
|
|
"zk" (lookup-key calc-mode-map (kbd "k"))
|
||
|
|
"zl" (lookup-key calc-mode-map (kbd "l"))
|
||
|
|
"m" (lookup-key calc-mode-map (kbd "m"))
|
||
|
|
"r" (lookup-key calc-mode-map (kbd "r"))
|
||
|
|
"s" (lookup-key calc-mode-map (kbd "s"))
|
||
|
|
"t" (lookup-key calc-mode-map (kbd "t"))
|
||
|
|
"U" (lookup-key calc-mode-map (kbd "u"))
|
||
|
|
"v" (lookup-key calc-mode-map (kbd "v"))
|
||
|
|
"zz" (lookup-key calc-mode-map (kbd "z"))
|
||
|
|
|
||
|
|
;; quit
|
||
|
|
;; "ZQ" 'quit-window ; TODO: Rebind "Z"?
|
||
|
|
;; "ZZ" 'quit-window ; TODO: Rebind "Z"?
|
||
|
|
"q" 'calc-quit)
|
||
|
|
|
||
|
|
(evil-collection-define-key 'visual 'calc-mode-map
|
||
|
|
"d" 'calc-kill-region))
|
||
|
|
|
||
|
|
(provide 'evil-collection-calc)
|
||
|
|
;;; evil-collection-calc.el ends here
|