dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Utils] Extend `db/ascii-to-hex' to `db/text-to-hex'

This commit is contained in:
Daniel - 2019-02-13 11:08:14 +01:00
parent 844b7358f8
commit 26dad5a0d5
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
site-lisp/db-utils.el
View File

@ -181,12 +181,23 @@ the result in the minibuffer."
(insert result)) (insert result))
(message result)))) (message result))))
(defun db/ascii-to-hex (ascii-string) (defun db/text-to-hex (text-string)
"Convert ASCII-STRING to its hexadecimal representation." "Convert TEXT-STRING to its hexadecimal representation.
(interactive "sString (ascii): ") This function will return hexadecimal numbers with more than two
(->> (--map (format "%2X" it) ascii-string) digits if the input string contains wide characters. The result
(apply #'concat) might depend on the coding system of the current buffer."
message)) (interactive (list (if (use-region-p)
(buffer-substring-no-properties (region-beginning) (region-end))
(read-from-minibuffer "String (ascii): "))))
(let ((result (->> text-string
(--map (format "%2X " it))
(apply #'concat)
(string-trim-right))))
(if (use-region-p)
(progn
(delete-region (region-beginning) (region-end))
(insert result))
(message result))))
(defun db/ntp-to-time (high low &optional format-string) (defun db/ntp-to-time (high low &optional format-string)
"Format NTP time given by HIGH and LOW (both integer) to time as given by FORMAT-STRING. "Format NTP time given by HIGH and LOW (both integer) to time as given by FORMAT-STRING.