From f957a57ad8cd6a1dc3243a4373f15888b680d87f Mon Sep 17 00:00:00 2001 From: William Carroll Date: Sat, 30 Jul 2022 11:29:31 -0700 Subject: feat(wpcarro/emacs): Package math.el Another Elisp library that I wrote during my manic experience of switching to EXWM. Change-Id: I652f5c7228332a7f5822bd408a0c0be8f7bc4b4f Reviewed-on: https://cl.tvl.fyi/c/depot/+/6018 Tested-by: BuildkiteCI Reviewed-by: wpcarro Autosubmit: wpcarro --- users/wpcarro/emacs/.emacs.d/wpc/math.el | 63 -------------------------------- 1 file changed, 63 deletions(-) delete mode 100644 users/wpcarro/emacs/.emacs.d/wpc/math.el (limited to 'users/wpcarro/emacs/.emacs.d') diff --git a/users/wpcarro/emacs/.emacs.d/wpc/math.el b/users/wpcarro/emacs/.emacs.d/wpc/math.el deleted file mode 100644 index dbc527928a..0000000000 --- a/users/wpcarro/emacs/.emacs.d/wpc/math.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; math.el --- Math stuffs -*- lexical-binding: t -*- - -;; Author: William Carroll -;; Version: 0.0.1 -;; Package-Requires: ((emacs "24.3")) - -;;; Commentary: -;; Containing some useful mathematical functions. - -;;; Code: - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Dependencies -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(require 'dash) -(require 'maybe) -(require 'cl-lib) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Constants -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defconst math-pi pi - "The number pi.") - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Functions -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;; TODO: Support all three arguments. -;; Int -> Int -> Int -> Boolean -(cl-defun math-triangle-of-power (&key base power result) - (cond - ((-all? #'maybe-some? (list base power result)) - (error "All three arguments should not be set")) - ((-all? #'maybe-some? (list power result)) - (message "power and result")) - ((-all? #'maybe-some? (list base result)) - (log result base)) - ((-all? #'maybe-some? (list base power)) - (expt base power)) - (t - (error "Two of the three arguments must be set")))) - -(defun math-mod (x y) - "Return X mod Y." - (mod x y)) - -(defun math-exp (x y) - "Return X raised to the Y." - (expt x y)) - -(defun math-round (x) - "Round X to nearest ones digit." - (round x)) - -(defun math-floor (x) - "Floor value X." - (floor x)) - -(provide 'math) -;;; math.el ends here -- cgit 1.4.1