[elpa] master 12cef5c: * externals-list: Convert num3-mode to :external

[Stefan Monnier]

branch: master
commit 12cef5ca1c13d779488c6b3afd6abafd7f6769dd
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * externals-list: Convert num3-mode to :external
---
 externals-list                  |   3 +-
 packages/num3-mode/num3-mode.el | 162 ----------------------------------------
 2 files changed, 2 insertions(+), 163 deletions(-)

diff --git a/externals-list b/externals-list
index 6d8e42e..e4ff7b9 100644
--- a/externals-list
+++ b/externals-list
@@ -118,6 +118,7 @@
  ("names"              :external "http://github.com/Malabarba/names";)
  ("nhexl-mode"         :external nil)
  ("nlinum"             :external nil)
+ ("num3-mode" :external nil)
  ("objed"              :external "https://github.com/clemera/objed";)
  ("omn-mode"            :external nil)
  ("orgalist"            :external nil)
@@ -151,7 +152,7 @@
  ("realgud-node-inspect" :external 
"https://github.com/realgud/realgud-node-inspect";)
  ("realgud-trepan-ni"   :external "https://github.com/realgud/realgud-ni";)
  ("rec-mode"           :external 
"https://git.savannah.gnu.org/git/recutils/rec-mode.git";)
- ("register-list" :external nil)
+ ("register-list"      :external nil)
  ("relint"             :external "https://github.com/mattiase/relint";)
  ("rich-minority"      :external "https://github.com/Malabarba/rich-minority";)
  ("rnc-mode"           :external nil)
diff --git a/packages/num3-mode/num3-mode.el b/packages/num3-mode/num3-mode.el
deleted file mode 100644
index 47c6da5..0000000
--- a/packages/num3-mode/num3-mode.el
+++ /dev/null
@@ -1,162 +0,0 @@
-;;; num3-mode.el --- highlight groups of digits in long numbers  -*- 
lexical-binding: t -*-
-
-;; Copyright (C) 2012-2017 Free Software Foundation, Inc.
-
-;; Author: Felix Lee <felix8a@gmail.com>, Michal Nazarewicz <mina86@mina86.com>
-;; Maintainer: Michal Nazarewicz <mina86@mina86.com>
-;; Keywords: faces, minor-mode
-;; Version: 1.3
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Num3 is a minor mode that makes long numbers more readable by
-;; highlighting groups of 3 (customisable) decimal digits or 4 hex
-;; digits when font-lock is on.  Highlighting alternates between two
-;; faces that can be customised.
-
-;;; Usage:
-
-;;     M-x num3-mode           toggle for current buffer.
-;;     M-x global-num3-mode    toggle for all buffers.
-;;
-;; Or add the following to your ~/.emacs file:
-;;     (load "path/to/num3")
-;;     (global-num3-mode)
-
-;;; Code:
-
-(defgroup num3 nil
-  "Num3 is a minor mode that makes long numbers more readable by
-highlighting groups of digits in a number."
-  :group 'text)
-
-(defcustom num3-group-size 3
-  "Number of digits to group in decimal numbers."
-  :type 'integer)
-
-(defcustom num3-threshold 5
-  "Number must be at least that long to start highlighting."
-  :type 'integer)
-
-(defface num3-face-odd
-  '((t))
-  "Face to add for odd groups of digits."
-  :group 'num3)
-
-(defface num3-face-even
-  '((t :underline t :weight bold :background "#eeeeee"))
-  "Face to add for even groups of digits.
-The default face uses redundant signaling, because this is in
-addition to any other font-lock highlighting."
-  :group 'num3)
-
-;;; Implementation:
-
-;;;###autoload
-(define-minor-mode num3-mode
-  "Toggle num3 minor mode in the current buffer.
-Num3 minor mode makes long numbers more readable by highlighting
-groups of digits when font-lock mode is enabled.
-
-If a number is longer than `num3-threshold', the mode will split
-it into a group of `num3-group-size' (if number is decimal) or
-four (if number is hexadecimal or binary) digits.
-
-Hexadecimal numbers are recognised by \"0x\" or \"#x\"
-prefix (case insensitive) and binary numbers by \"0b\" or \"#b\"
-prefix.  (There is no special handling for octal numbers –
-starting with \"0o\" or \"#o\" – and instead they are handled
-like decimal numbers).
-
-Decimal fractions are recognised as well and grouped from the
-beginning rathar then the end.  For instance, with group size of
-three, a number \"12345.12345\" will be split into groups as
-follows: \"12|345.123|45\".  Fractions without integer part are
-also recognised, eg. \".12345\".
-
-Groups are highlighted alternately using `num3-face-odd' and
-`num3-face-even' faces.  `num3-face-odd' face (which is empty by
-default) is the one used for the group closest to the decimal
-point, i.e. groups are counted starting with one outwards from
-the (place where) decimal point (would be) is."
-  nil " num3" nil
-  (if num3-mode
-      (unless (assoc 'num3--matcher font-lock-keywords)
-        (font-lock-add-keywords nil '(num3--matcher) 'append))
-    (font-lock-remove-keywords nil '(num3--matcher)))
-  (if (fboundp 'font-lock-flush) (font-lock-flush)
-    (when font-lock-mode (with-no-warnings (font-lock-fontify-buffer)))))
-
-;;;###autoload
-(define-globalized-minor-mode global-num3-mode num3-mode num3-mode)
-
-(defconst num3--number-re
-  ;; Hexadecimal and binary are both using the first capture group because we
-  ;; group them both in four-digit groups.  There’s no explicit support for
-  ;; octal numbers because we just use logic for a decimal number, i.e. the 
same
-  ;; grouping.
-  (concat "[0#][xX]\\([[:xdigit:]]+\\)"       ; 1 = hexadecimal
-       "\\|[0#][bB]\\(?1:[01]+\\)"            ; 1 = binary
-       "\\|\\(?1:\\b\\(?:[0-9]+[a-fA-F]\\|"   ; 1 = hexadecimal w/o prefix
-                 "[a-fA-F]+[0-9]\\)[[:xdigit:]]*\\b\\)"
-       "\\|\\([0-9]+\\)"                      ; 2 = decimal
-       "\\|\\.\\([0-9]+\\)"))                 ; 3 = fraction
-
-(defun num3--matcher (lim)
-  "Function used as a font-lock-keywoard handler used in `num3-mode'.
-Performs fontification of numbers from point to LIM."
-  (save-excursion
-    (while (re-search-forward num3--number-re lim t)
-      (num3--int  (match-beginning 1) (match-end 1) 4)
-      (num3--int  (match-beginning 2) (match-end 2) num3-group-size)
-      (num3--frac (match-beginning 3) (match-end 3) num3-group-size)))
-  nil)
-
-(defun num3--int (lo hi n)
-  "Highlight groups of digits in a long number.
-LO and HI arguments specify the range where the number is
-located.  If the length of that region exceeds `num3-threshold',
-the function will split it into groups of N digits and fontify
-tham alternately using `num3-face-odd' and `num3-face-even'
-faces.  Grouping is done from the end, eg. (12)(345)."
-  (when (and lo (>= (- hi lo) num3-threshold))
-    (let (even)
-      (while (< lo hi)
-        (num3--put even (max lo (- hi n)) hi)
-        (setq hi (- hi n) even (not even))))))
-
-(defun num3--frac (lo hi n)
-  "Highlight groups of digits in a long number.
-LO and HI arguments specify the range where the number is
-located.  If the length of that region exceeds `num3-threshold',
-the function will split it into groups of N digits and fontify
-tham alternately using `num3-face-odd' and `num3-face-even'
-faces.  Grouping is done from the beginning, eg. (123)(45)."
-  (when (and lo (>= (- hi lo) num3-threshold))
-    (let (even)
-      (while (< lo hi)
-        (num3--put even lo (min hi (+ lo n)))
-        (setq lo (+ lo n) even (not even))))))
-
-(defun num3--put (even lo hi)
-  "Add font lock text property to highlight a single group of digit.
-Use `num3-face-odd' if EVEN is nil and `num3-face-even' if EVEN is
-non-nil.  The region the face is set to is from LO to HI."
-  (font-lock-append-text-property lo hi 'face
-                                  (if even 'num3-face-even 'num3-face-odd)))
-
-(provide 'num3-mode)
-;;; num3-mode.el ends here