Move functions from round-number-to-decimals.el to the Org config

configuration.org

@@ -68,6 +68,32 @@ I set it up early so I can use it in ~use-package~ calls immediately.
             (mapcar (lambda (x) (and (stringp x) x)) var))))))
 #+END_SRC
 
+*** Get the number at point
+
+#+BEGIN_SRC emacs-lisp
+(defun get-number-at-point ()
+  (interactive)
+  (skip-chars-backward "0123456789.-")
+  (or (looking-at "[0123456789.-]+")
+      (error "No number at point"))
+  (string-to-number (match-string 0)))
+#+END_SRC
+
+*** Round number at point to the given decimals
+
+#+BEGIN_SRC emacs-lisp
+(defun round-number-at-point-to-decimals (decimal-count)
+  (interactive "NDecimal count: ")
+  (let ((mult (expt 10 decimal-count)))
+    (replace-match (number-to-string
+              (/
+               (fround
+                (*
+                 mult
+                 (get-number-at-point)))
+                mult)))))
+#+END_SRC
+
 ** Check if we are running under Termux
 
 We need to do things differently, if so.

init.el

@@ -27,7 +27,6 @@
 
 ;; Load my own functions
 (load "gnu-c-header")
-(load "round-number-to-decimals")
 
 ;; From gmane.emacs.orgmode
 ;; (http://article.gmane.org/gmane.emacs.orgmode/75222)

lisp/round-number-to-decimals.el

@@ -1,17 +0,0 @@
-(defun get-number-at-point ()
-  (interactive)
-  (skip-chars-backward "0123456789.-")
-  (or (looking-at "[0123456789.-]+")
-      (error "No number at point"))
-  (string-to-number (match-string 0)))
-
-(defun round-number-at-point-to-decimals (decimal-count)
-  (interactive "NDecimal count: ")
-  (let ((mult (expt 10 decimal-count)))
-    (replace-match (number-to-string
-              (/
-               (fround
-                (*
-                 mult
-                 (get-number-at-point)))
-                mult)))))