[Utils] Make ‘db-utils’ loadable without requiring ‘dash’

This commit is contained in:
Daniel - 2019-03-02 11:02:47 +01:00
parent b17958c104
commit 378b608c2b
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 2 additions and 2 deletions

View File

@ -8,8 +8,6 @@
;;; Code:
(require 'dash)
;;; application shortcuts
@ -169,6 +167,7 @@ the result in the minibuffer."
(read-from-minibuffer "String (hex): "))))
(cl-assert (not (string-match-p "[^A-Fa-e0-9 \t\n]" hex-string))
"String contains invalid characters.")
(require 'dash)
(let ((result (->> hex-string
(replace-regexp-in-string "[ \t\n]" "")
(string-to-list)
@ -189,6 +188,7 @@ might depend on the coding system of the current buffer."
(interactive (list (if (use-region-p)
(buffer-substring-no-properties (region-beginning) (region-end))
(read-from-minibuffer "String (ascii): "))))
(require 'dash)
(let ((result (->> text-string
(--map (format "%2X " it))
(apply #'concat)