<commit_before>(defun djcb-opacity-modify (&optional dec)
  "modify the transparency of the emacs frame; if DEC is t,
    decrease the transparency, otherwise increase it in 5%-steps"
  (let* ((alpha-or-nil (frame-parameter nil 'alpha)) ; nil before setting
          (oldalpha (if alpha-or-nil alpha-or-nil 100))
          (newalpha (if dec (- oldalpha 5) (+ oldalpha 5))))
    (when (and (>= newalpha frame-alpha-lower-limit) (<= newalpha 100))
      (modify-frame-parameters nil (list (cons 'alpha newalpha))))))

 ;; C-8 will increase opacity (== decrease transparency)
 ;; C-9 will decrease opacity (== increase transparency
 ;; C-0 will returns the state to normal
(global-set-key (kbd "C-8") '(lambda()(interactive)(djcb-opacity-modify)))
(global-set-key (kbd "C-9") '(lambda()(interactive)(djcb-opacity-modify t)))
(global-set-key (kbd "C-0") '(lambda()(interactive)
                               (modify-frame-parameters nil `((alpha . 100)))))

(autoload 'twittering-mode "twittering-mode" "Twitter stream in Emacs")
(setq twittering-username "tobytripp")
(setq twittering-icon-mode t)

(set-fringe-style -1)

(require 'highlight-indentation)

(setq whitespace-display-mappings
      '((space-mark 32   [183]  [46])   ; normal space, ·
        (space-mark 160  [164]  [95])
        (space-mark 2208 [2212] [95])
        (space-mark 2336 [2340] [95])
        (space-mark 3616 [3620] [95])
        (space-mark 3872 [3876] [95])
        (newline-mark 10 [182 10])      ; newlne, ¶
        (tab-mark 9 [9655 9] [92 9])    ; tab, ▷
        ))
(setq whitespace-line-column 78)
(setq whitespace-style  '(face lines-tail))

;; http://ergoemacs.org/emacs/emacs23_features.html
(global-visual-line-mode 1)

(load-theme 'toby)<commit_msg>Reset terminal colors after theme load<commit_after>(defun djcb-opacity-modify (&optional dec)
  "modify the transparency of the emacs frame; if DEC is t,
    decrease the transparency, otherwise increase it in 5%-steps"
  (let* ((alpha-or-nil (frame-parameter nil 'alpha)) ; nil before setting
          (oldalpha (if alpha-or-nil alpha-or-nil 100))
          (newalpha (if dec (- oldalpha 5) (+ oldalpha 5))))
    (when (and (>= newalpha frame-alpha-lower-limit) (<= newalpha 100))
      (modify-frame-parameters nil (list (cons 'alpha newalpha))))))

 ;; C-8 will increase opacity (== decrease transparency)
 ;; C-9 will decrease opacity (== increase transparency
 ;; C-0 will returns the state to normal
(global-set-key (kbd "C-8") '(lambda()(interactive)(djcb-opacity-modify)))
(global-set-key (kbd "C-9") '(lambda()(interactive)(djcb-opacity-modify t)))
(global-set-key (kbd "C-0") '(lambda()(interactive)
                               (modify-frame-parameters nil `((alpha . 100)))))

(autoload 'twittering-mode "twittering-mode" "Twitter stream in Emacs")
(setq twittering-username "tobytripp")
(setq twittering-icon-mode t)

(set-fringe-style -1)

(require 'highlight-indentation)

(setq whitespace-display-mappings
      '((space-mark 32   [183]  [46])   ; normal space, ·
        (space-mark 160  [164]  [95])
        (space-mark 2208 [2212] [95])
        (space-mark 2336 [2340] [95])
        (space-mark 3616 [3620] [95])
        (space-mark 3872 [3876] [95])
        (newline-mark 10 [182 10])      ; newlne, ¶
        (tab-mark 9 [9655 9] [92 9])    ; tab, ▷
        ))
(setq whitespace-line-column 78)
(setq whitespace-style  '(face lines-tail))

;; http://ergoemacs.org/emacs/emacs23_features.html
(global-visual-line-mode 1)

(load-theme 'toby)
;; Make sure terminals pick up the theme settings:
(setq term-default-fg-color (face-foreground 'default))
(setq term-default-bg-color (face-background 'default))
{'fraction_non_alphanumeric': 0.15911572052401746, 'fraction_numerical': 0.05185589519650655, 'mean_word_length': 3.2966002344665886, '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': '2820563', 'n_tokens_mistral': 1409, 'n_tokens_neox': 1240, 'n_words': 346}