<commit_before>(require 'bytecomp)

(defun my-load (name)
  (let (source compiled)
    (unless (file-name-absolute-p name)
      ;; expand-file-name binds with default-directory
      (setq name (expand-file-name name)))
    (cond ((string-match "\\.el$" name)
           (setq source name)
           (setq compiled (concat name "c")))
          (t
           (setq source (concat name ".el"))
           (setq compiled (concat name ".elc"))))
    (when (file-newer-than-file-p source compiled)
      (let (byte-compile-verbose)
        ;; Binding byte-compile-verbose to nil stops
        ;; the "Compiling ..." message, but doesn't
        ;; stop the "Wrote <filename>" one.
        (byte-compile-file source)))
    (load compiled nil t t)))

(defun my-load-customization (package-name)
  (when (file-name-absolute-p package-name)
    (setq package-name
          (file-name-sans-extension (file-name-nondirectory package-name))))
  (let ((my-customization (format "my-%s.el" package-name)))
    (when (file-exists-p my-customization)
      (my-load my-customization))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar my-files
  '("my-env" "my-fns" "my-keys" "my-dired" "my-help"
    "my-shell" "my-sublime" "my-modeline" "my-win"
    "my-desktop"
    "my-mouse-hacks" "my-packages"))

(defvar my-packages
  '(color-theme color-theme-solarized magit bm autopair go-mode org
                macrostep yasnippet ace-jump-mode expand-region
                dired-details))

(defvar my-private-dot-emacs
  (expand-file-name "~/.emacs.private.el"))

(defvar my-third-party-non-installable-files
  (directory-files "~/.emacs.d/third-party" 'full "\\.el$" t))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(let ((default-directory "~/.emacs.d"))

  (mapc 'my-load my-files)
  (mapc 'my-load-customization my-packages)

  (mapc 'my-load my-third-party-non-installable-files)
  (mapc 'my-load-customization my-third-party-non-installable-files))

(when (file-exists-p my-private-dot-emacs)
  (my-load my-private-dot-emacs))

(defun display-startup-echo-area-message ()
  (let ((elapsed (float-time (time-subtract (current-time)
                                            my-emacs-start-time))))
    (message "Finished loading in %.3fs " elapsed)))<commit_msg>New packages: rainbow-mode and browse-kill-ring.<commit_after>(require 'bytecomp)

(defun my-load (name)
  (let (source compiled)
    (unless (file-name-absolute-p name)
      ;; expand-file-name binds with default-directory
      (setq name (expand-file-name name)))
    (cond ((string-match "\\.el$" name)
           (setq source name)
           (setq compiled (concat name "c")))
          (t
           (setq source (concat name ".el"))
           (setq compiled (concat name ".elc"))))
    (when (file-newer-than-file-p source compiled)
      (let (byte-compile-verbose)
        ;; Binding byte-compile-verbose to nil stops
        ;; the "Compiling ..." message, but doesn't
        ;; stop the "Wrote <filename>" one.
        (byte-compile-file source)))
    (load compiled nil t t)))

(defun my-load-customization (package-name)
  (when (and (stringp package-name)
             (file-name-absolute-p package-name))
    (setq package-name
          (file-name-sans-extension (file-name-nondirectory package-name))))
  (let ((my-customization (format "my-%s.el" package-name)))
    (when (file-exists-p my-customization)
      (my-load my-customization))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar my-files
  '("my-env" "my-fns" "my-keys" "my-dired" "my-help"
    "my-shell" "my-sublime" "my-modeline" "my-win"
    "my-desktop"
    "my-mouse-hacks" "my-packages"))

(defvar my-packages
  '(color-theme color-theme-solarized magit bm autopair go-mode org
                macrostep yasnippet ace-jump-mode expand-region
                dired-details rainbow-mode browse-kill-ring))

(defvar my-private-dot-emacs
  (expand-file-name "~/.emacs.private.el"))

(defvar my-third-party-non-installable-files
  (directory-files "~/.emacs.d/third-party" 'full "\\.el$" t))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(let ((default-directory "~/.emacs.d"))

  (mapc 'my-load my-files)
  (mapc 'my-load-customization my-packages)

  (mapc 'my-load my-third-party-non-installable-files)
  (mapc 'my-load-customization my-third-party-non-installable-files))

(when (file-exists-p my-private-dot-emacs)
  (my-load my-private-dot-emacs))

(defun display-startup-echo-area-message ()
  (let ((elapsed (float-time (time-subtract (current-time)
                                            my-emacs-start-time))))
    (message "Finished loading in %.3fs " elapsed)))
{'fraction_non_alphanumeric': 0.2117126606277649, 'fraction_numerical': 0.0004213187276174426, 'mean_word_length': 2.940248962655602, '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': 4, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1733946', 'n_tokens_mistral': 1705, 'n_tokens_neox': 1582, 'n_words': 336}