[elpa] externals/bluetooth 5d72618 17/33: add page breaks and section headings

[Stefan Monnier]

branch: externals/bluetooth
commit 5d726184263679dfcbcb146b3d7c5b63e8e80f34
Author: Raffael Stocker <r.stocker@mnet-mail.de>
Commit: Raffael Stocker <r.stocker@mnet-mail.de>

    add page breaks and section headings
---
 bluetooth.el | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/bluetooth.el b/bluetooth.el
index 400ca4d..5297729 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -47,6 +47,9 @@
 (require 'rx)
 (eval-when-compile (require 'subr-x))
 
+
+;;;; customization
+
 (defgroup bluetooth nil
   "Bluetooth device management."
   :group 'comm)
@@ -69,6 +72,9 @@ This is usually `:system' if bluetoothd runs as a system 
service, or
   '((t . (:slant italic)))
   "Face for device attribute names.")
 
+
+;;;; internal constants and variables
+
 (defconst bluetooth-buffer-name "*Bluetooth*"
   "Name of the buffer in which to list bluetooth devices.")
 
@@ -130,6 +136,9 @@ property and state.")
 ;; This variable holds the device information as obtained from D-Bus.
 (defvar bluetooth--device-info nil "Device info obtained from Bluez.")
 
+
+;;;; command definitions
+
 (eval-and-compile
   (defun bluetooth--function-name (name &optional prefix)
     "Make a function name out of NAME and PREFIX.
@@ -182,6 +191,9 @@ The generated function name has the form 
`bluetoothPREFIX-NAME'."
   (interactive "MAlias (empty to reset): ")
   (bluetooth--dbus-set "Alias" name :device))
 
+
+;;;; keymap and menu
+
 (defvar bluetooth-mode-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map tabulated-list-mode-map)
@@ -235,6 +247,9 @@ The generated function name has the form 
`bluetoothPREFIX-NAME'."
     map)
   "The Bluetooth mode keymap.")
 
+
+;;;; internal functions
+
 ;; This function returns a list of bluetooth adapters and devices
 ;; in the form
 ;; (("hci0"
@@ -471,6 +486,8 @@ adapter reported by Bluez."
                                :arg-namespace
                                (alist-get :adapter
                                           bluetooth--interfaces)))))
+
+;;;; mode entry command
 
 ;;;###autoload
 (defun bluetooth-list-devices ()
@@ -493,6 +510,8 @@ scanning the bus, displaying device info etc."
       (bluetooth--register-signal-handler))))
 
 ;;; Bluetooth pairing agent code
+
+;;;; Bluetooth pairing agent code
 
 ;; The release function is not needed at the moment, but needs
 ;; to be implemented for the agent API.
@@ -609,6 +628,8 @@ scanning the bus, displaying device info etc."
                    (alist-get :agent-manager bluetooth--interfaces)
                    "RegisterAgent"
                    :object-path bluetooth--own-path "KeyboardDisplay"))
+
+;;;; service and class UUID definitions
 
 ;; The following constants define the meaning of the Bluetooth
 ;; CLASS property, which is made up of a number of fields.
@@ -1015,6 +1036,9 @@ scanning the bus, displaying device info etc."
       #xFFFE ("AirFuel Alliance" "Wireless Power Transfer Service")))
   "Bluetooth standards development organizations UUIDS.")
 
+
+;;;; Bluetooth member UUIDs
+
 (defconst bluetooth--member-uuid-alist
   #s(hash-table
      size 100 data
@@ -1398,6 +1422,9 @@ scanning the bus, displaying device info etc."
       #xFD87 ("Google LLC")))
   "Bluetooth manufacturer UUIDs.")
 
+
+;;;; service and class parsing code
+
 (defconst bluetooth--uuid-alists
   `((#xfff0 . ,bluetooth--sdo-uuid-alist)
     (#xfd00 . ,bluetooth--member-uuid-alist)
@@ -1465,6 +1492,9 @@ scanning the bus, displaying device info etc."
   "Get the minor field spec for FIELD using DATA as specification."
   (symbol-value (cdr (alist-get field data))))
 
+
+;;;; Bluetooth company IDs
+
 ;; Very long list of manufacturer IDs.
 ;; Last updated: 05. Nov 2019
 (defconst bluetooth--manufacturer-ids
@@ -3575,6 +3605,9 @@ scanning the bus, displaying device info etc."
       #x0836 "Bitwards Oy"))
   "Bluetooth manufacturer IDs.")
 
+
+;;;; device info display
+
 (defun bluetooth-show-device-info ()
   "Show detailed information on the device at point."
   (interactive)