<commit_before>(in-package :lem)

(export '(*kill-ring-max*
          *kill-before-p*
          *enable-clipboard-p*
          kill-append
          kill-push
          kill-ring-rotate
          kill-ring-rotate-undo
          kill-ring-first-string
          kill-ring-nth-string
          kill-ring-new))

(defun sbcl-2.0.0-or-later-p ()
  (and (string-equal "sbcl" (lisp-implementation-type))
       (let ((version (mapcar #'parse-integer
                              (uiop:split-string (lisp-implementation-version)
                                                 :separator "."))))
         (trivia:match version
           ((cons major _)
            (<= 2 major))))))

(defvar *enable-clipboard-p*
  (ignore-errors
    (or (progn #+darwin nil #-darwin t)
        (sbcl-2.0.0-or-later-p))))

(defvar *kill-ring* nil)
(defvar *kill-ring-yank-ptr* nil)
(defvar *kill-ring-yank-ptr-prev* nil)
(defvar *kill-ring-max* 10)

(defvar *kill-new-flag* t)
(defvar *kill-before-p* nil)

(defun %kill-append (string options before-p)
  (setf (car *kill-ring*)
        (cons (if before-p
                  (concatenate 'string
                               string
                               (first (car *kill-ring*)))<commit_msg>defvar -> defparameter<commit_after>(in-package :lem)

(export '(*kill-ring-max*
          *kill-before-p*
          *enable-clipboard-p*
          kill-append
          kill-push
          kill-ring-rotate
          kill-ring-rotate-undo
          kill-ring-first-string
          kill-ring-nth-string
          kill-ring-new))

(defun sbcl-2.0.0-or-later-p ()
  (and (string-equal "sbcl" (lisp-implementation-type))
       (let ((version (mapcar #'parse-integer
                              (uiop:split-string (lisp-implementation-version)
                                                 :separator "."))))
         (trivia:match version
           ((cons major _)
            (<= 2 major))))))

(defparameter *enable-clipboard-p*
  (ignore-errors
    (or (progn #+darwin nil #-darwin t)
        (sbcl-2.0.0-or-later-p))))

(defparameter *kill-ring-max* 10)

(defvar *kill-ring* nil)
(defvar *kill-ring-yank-ptr* nil)
(defvar *kill-ring-yank-ptr-prev* nil)

(defvar *kill-new-flag* t)
(defvar *kill-before-p* nil)

(defun %kill-append (string options before-p)
  (setf (car *kill-ring*)
        (cons (if before-p
                  (concatenate 'string
                               string
                               (first (car *kill-ring*)))
{'fraction_non_alphanumeric': 0.14746172441579372, 'fraction_numerical': 0.007252215954875101, 'mean_word_length': 1.655614973262032, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 4, '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': '1955522', 'n_tokens_mistral': 830, 'n_tokens_neox': 809, 'n_words': 154}