From 378b608c2bbe17cc2fd5621d4778771e9fbad8a7 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 2 Mar 2019 11:02:47 +0100 Subject: [PATCH] =?UTF-8?q?[Utils]=20Make=20=E2=80=98db-utils=E2=80=99=20l?= =?UTF-8?q?oadable=20without=20requiring=20=E2=80=98dash=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- site-lisp/db-utils.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 530af4c..12ebcd3 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -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)