<commit_before>(defun clgc-prog-mode-hook ()
  (add-to-list 'prettify-symbols-alist '("<=" . ?≤))
  (add-to-list 'prettify-symbols-alist '(">=" . ?≥))
  (add-to-list 'prettify-symbols-alist '("!=" . ?≠))
  (prettify-symbols-mode)

  (setq show-trailing-whitespace t
        indicate-empty-lines t))

(add-hook 'prog-mode-hook 'clgc-prog-mode-hook)

;;; make Groovy mode electric by default.
(add-to-list 'interpreter-mode-alist '("groovy" . groovy-mode))
(add-hook 'groovy-mode-hook
          '(lambda ()
             (setq c-basic-offset 4)
             (require 'groovy-electric)
             (groovy-electric-mode)))

;; Perl Stuff (for the horrible times when I can't use ruby)
(defalias 'perl-mode 'cperl-mode)
(defun my-cperl-mode-hook ()
  (setq cperl-hairy t)
  (setq cperl-electric-keywords nil)
  ;(define-key cperl-mode-map "\C-cp" 'cperl-perldoc)
  ;(make-variable-buffer-local 'compile-command)
  ;(setq compile-command (concat "perl -w " (buffer-file-name) " "))
  )

(add-hook 'cperl-mode-hook 'my-cperl-mode-hook)

;;
;; set c/c++ indent width and compile modes
;;<commit_msg>prettify-symbols-alist is new to 24.4, so guard it<commit_after>(defun clgc-prog-mode-hook ()
  (when (fboundp 'prettify-symbols-mode)
    (add-to-list 'prettify-symbols-alist '("<=" . ?≤))
    (add-to-list 'prettify-symbols-alist '(">=" . ?≥))
    (add-to-list 'prettify-symbols-alist '("!=" . ?≠))
    (prettify-symbols-mode))

  (setq show-trailing-whitespace t
        indicate-empty-lines t))

(add-hook 'prog-mode-hook 'clgc-prog-mode-hook)

;;; make Groovy mode electric by default.
(add-to-list 'interpreter-mode-alist '("groovy" . groovy-mode))
(add-hook 'groovy-mode-hook
          '(lambda ()
             (setq c-basic-offset 4)
             (require 'groovy-electric)
             (groovy-electric-mode)))

;; Perl Stuff (for the horrible times when I can't use ruby)
(defalias 'perl-mode 'cperl-mode)
(defun my-cperl-mode-hook ()
  (setq cperl-hairy t)
  (setq cperl-electric-keywords nil)
  ;(define-key cperl-mode-map "\C-cp" 'cperl-perldoc)
  ;(make-variable-buffer-local 'compile-command)
  ;(setq compile-command (concat "perl -w " (buffer-file-name) " "))
  )

(add-hook 'cperl-mode-hook 'my-cperl-mode-hook)

;;
;; set c/c++ indent width and compile modes
;;
{'fraction_non_alphanumeric': 0.18185821224130339, 'fraction_numerical': 0.002201673271686482, 'mean_word_length': 3.161172161172161, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, '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': '1183322', 'n_tokens_mistral': 939, 'n_tokens_neox': 884, 'n_words': 176}