<commit_before>;;
;; cust-sgml-mode.el
;;

;; Modes loaded from this path:
(autoload 'hm--html-mode "hm--html-mode" "HTML major mode." t)
(autoload 'hm--html-minor-mode "hm--html-mode" "HTML minor mode." t)
(setq auto-mode-alist (cons '("\\.html$" . hm--html-mode) auto-mode-alist))
(autoload 'tmpl-expand-templates-in-buffer "tmpl-minor-mode"
  "Expand all templates in the current buffer." t)

(autoload 'html-view-start-mosaic "html-view" "Start Xmosaic." t)
(autoload 'html-view-view-buffer 
  "html-view"
  "View the current buffer in Xmosaic."
  t)

(autoload 'html-view-view-file 
  "html-view"
  "View a file in Xmosaic."
  t)

(autoload 'html-view-goto-url
  "html-view"
  "Goto url in Xmosaic."
  t)

(autoload 'html-view-get-display
  "html-view"
  "Get the display for Xmosaic (i.e. hostxy:0.0)."
  t)

(autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
(autoload 'w3 "w3" "WWW Browser" t)
(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
;; 
(autoload 'html-mode "psgml" "Major mode to edit HTML files." t)

;; Add some stuff for PSGML/XML modes:
(setq auto-mode-alist (cons '("\\.xml\\'" . xml-mode) auto-mode-alist))

;; Autoload for SGML/XML modes:
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)

(defvar sgml-markup-faces
  `((start-tag . 'LightBlue-face)		   
    (end-tag . 'LightBlue-face)
    (comment . 'font-lock-comment-face)
    (pi . 'font-lock-type-face)
    (sgml . 'font-lock-type-face)
    (doctype . 'font-lock-keyword-face)
    (entity . 'Yellow-face)
    (shortref . 'font-lock-string-face)
    (ignored . 'Wheat3-face)
    (ms-start . 'font-lock-constant-face)
    (ms-end .  'font-lock-constant-face))
  "*Alist of markup to face mappings.
Element are of the form (MARKUP-TYPE . FACE).
Possible values for MARKUP-TYPE are:
comment	- comment declaration
doctype	- doctype declaration
end-tag
ignored	- ignored marked section
ms-end	- marked section start, if not ignored
ms-start- marked section end, if not ignored
pi	- processing instruction
sgml	- SGML declaration
start-tag
entity  - general entity reference
shortref- short reference")

;; Keywords for font-lock:
(setq cust-sgml-mode-keywords
      (list
       '("\\<\\(configuration\\)" 1 'Plum-face t)
       '("\\<\\(tool\\)" 1 'Green-face t)
       ))

(font-lock-add-keywords 'sgml-mode cust-sgml-mode-keywords)
<commit_msg>Remove custom keywords from SGML mode.<commit_after>;;
;; cust-sgml-mode.el
;;

;; Modes loaded from this path:
(autoload 'hm--html-mode "hm--html-mode" "HTML major mode." t)
(autoload 'hm--html-minor-mode "hm--html-mode" "HTML minor mode." t)
(setq auto-mode-alist (cons '("\\.html$" . hm--html-mode) auto-mode-alist))
(autoload 'tmpl-expand-templates-in-buffer "tmpl-minor-mode"
  "Expand all templates in the current buffer." t)

(autoload 'html-view-start-mosaic "html-view" "Start Xmosaic." t)
(autoload 'html-view-view-buffer 
  "html-view"
  "View the current buffer in Xmosaic."
  t)

(autoload 'html-view-view-file 
  "html-view"
  "View a file in Xmosaic."
  t)

(autoload 'html-view-goto-url
  "html-view"
  "Goto url in Xmosaic."
  t)

(autoload 'html-view-get-display
  "html-view"
  "Get the display for Xmosaic (i.e. hostxy:0.0)."
  t)

(autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
(autoload 'w3 "w3" "WWW Browser" t)
(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
;; 
(autoload 'html-mode "psgml" "Major mode to edit HTML files." t)

;; Add some stuff for PSGML/XML modes:
(setq auto-mode-alist (cons '("\\.xml\\'" . xml-mode) auto-mode-alist))

;; Autoload for SGML/XML modes:
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)

(defvar sgml-markup-faces
  `((start-tag . 'LightBlue-face)		   
    (end-tag . 'LightBlue-face)
    (comment . 'font-lock-comment-face)
    (pi . 'font-lock-type-face)
    (sgml . 'font-lock-type-face)
    (doctype . 'font-lock-keyword-face)
    (entity . 'Yellow-face)
    (shortref . 'font-lock-string-face)
    (ignored . 'Wheat3-face)
    (ms-start . 'font-lock-constant-face)
    (ms-end .  'font-lock-constant-face))
  "*Alist of markup to face mappings.
Element are of the form (MARKUP-TYPE . FACE).
Possible values for MARKUP-TYPE are:
comment	- comment declaration
doctype	- doctype declaration
end-tag
ignored	- ignored marked section
ms-end	- marked section start, if not ignored
ms-start- marked section end, if not ignored
pi	- processing instruction
sgml	- SGML declaration
start-tag
entity  - general entity reference
shortref- short reference")

{'fraction_non_alphanumeric': 0.15444172779136103, 'fraction_numerical': 0.0057049714751426246, 'mean_word_length': 3.3987455197132617, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 6}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '81590', 'n_tokens_mistral': 1951, 'n_tokens_neox': 1882, 'n_words': 524}