First commit.

lisp/apps/calc.el

@@ -0,0 +1,51 @@
+;;; calc.el --- Emacs calculator -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(use-package calc
+  :commands calc
+  :init
+  (user/bind-key-global :apps :calculator 'calc)
+  :config
+  (validate-setq
+   ;; Location of user calculator configuration.
+   calc-settings-file (path-join *user-data-directory* "calc.el")
+   ;; Increase calc's undo history.
+   calc-undo-length 1000
+   ;; Use a different face to display sub-formulas.
+   calc-highlight-selections-with-faces t)
+
+  (use-package calc-units
+    :ensure calc
+    :config
+    ;; Add additional units for bits and bytes.
+    ;; Stolen from: `https://github.com/dalehagglund/emacs.d/blob/master/calc.el'
+    (add-many-to-list
+     'math-additional-units
+     '(bit nil "basic unit of information")
+     '(byte "8 * bit" "eight bits")
+     '(B "byte" "one byte")
+     '(KiB "1024 * B" "kibibyte")
+     '(MiB "1024 * KiB" "mebibyte")
+     '(GiB "1024 * MiB" "gibibyte")
+     '(TiB "1024 * GiB" "tebibyte")
+     '(PiB "1024 * TiB" "pebibyte")
+     '(EiB "1024 * PiB" "exbibyte")
+     '(ZiB "1024 * EiB" "zebibyte")
+     '(YiB "1024 * ZiB" "yobibyte")))
+
+  ;; Allow yanking using the mouse.
+  (define-key calc-mode-map [mouse-2] 'calc-yank)
+
+  (use-package easy-convert
+    :quelpa (easy-convert
+             :fetcher github
+             :repo "Frozenlock/easy-convert")
+    :commands easy-convert-interactive
+    :init
+    (autoload 'easy-convert-interactive "easy-convert" nil t)
+    (user/bind-key-global :apps :convert-unit 'easy-convert-interactive)))
+
+
+(provide 'apps/calc)
+;;; calc.el ends here