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

helper: convert hex to octal or dezimal

Browse Source 
Signed-off-by: Ralf Zerres <ralf.zerres@networkx.de>
This commit is contained in:
Ralf Zerres
2020-06-26 15:51:29 +02:00
parent 1aa87e4547
commit d573ec035b
1 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
site-lisp/octal-to-hex.el
View File

@@ -11,3 +11,29 @@
(cl-map 'vector
(lambda (c) (make-glyph-code c 'escape-glyph))
(format "\\%02x" x)))))
(defun use-octal-not-hex ()
"Use cctadecimal escape sequences instead of hex."
(interactive)
(require 'cl-lib)
(unless buffer-display-table
(setq buffer-display-table (make-display-table)))
(setq unprintable (append (number-sequence 127 255) (number-sequence 0 8) (number-sequence 11 31)))
(cl-loop
for x in unprintable
do (aset buffer-display-table (unibyte-char-to-multibyte x)
(cl-map 'vector
(lambda (c) (make-glyph-code c 'escape-glyph))
(format "\\%0do" x)))))
;; Hex string to dezimal
(string-to-number "FF" 16) ;; => 255
;; Hex string to dezimal
(string-to-number "377" 8) ;; => 255
;; Dezimal string to hex
(format "%X" 255) ;; => "FF"
(string-to-number "e001" 16)