<commit_before>(require 'thingatpt)
(require 'bundler)

(defun bundle-outdated-update ()
  (interactive)
  (let* ((line (thing-at-point 'line t))
         (package (nth 2 (s-split-up-to "\s+" line 3))))
    (compilation-start (concat "bundle update " package " | grep -i install"))
    (bundle-outdated-toggle-strike)))

(defun bundle-outdated-toggle-strike ()
  (interactive)
  (let* ((s (+ 2 (point-at-bol)))
         (e (point-at-eol))
         (properties (get-text-property (1+ s) 'face)))
    (if properties
        (progn
          (message "remove")
          (remove-text-properties s e '(face nil)))
        (add-face-text-property s e '(:strike-through t)))))

(define-key text-mode-map (kbd "C-c u") 'bundle-outdated-update)
(define-key text-mode-map (kbd "C-c i") 'bundle-outdated-toggle-strike)

(provide 'bundle-outdated)<commit_msg>remove debug messaging around toggle<commit_after>(require 'thingatpt)
(require 'bundler)

(defun bundle-outdated-update ()
  (interactive)
  (let* ((line (thing-at-point 'line t))
         (package (nth 2 (s-split-up-to "\s+" line 3))))
    (compilation-start (concat "bundle update " package " | grep -i install"))
    (bundle-outdated-toggle-strike)))

(defun bundle-outdated-toggle-strike ()
  (interactive)
  (let* ((s (+ 2 (point-at-bol)))
         (e (point-at-eol))
         (properties (get-text-property (1+ s) 'face)))
    (if properties
        (remove-text-properties s e '(face nil))
      (add-face-text-property s e '(:strike-through t)))))

(define-key text-mode-map (kbd "C-c u") 'bundle-outdated-update)
(define-key text-mode-map (kbd "C-c i") 'bundle-outdated-toggle-strike)

(provide 'bundle-outdated)
{'fraction_non_alphanumeric': 0.17964071856287425, 'fraction_numerical': 0.004790419161676647, 'mean_word_length': 3.2846153846153845, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, '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': '6618536', 'n_tokens_mistral': 604, 'n_tokens_neox': 591, 'n_words': 142}