<commit_before>#+TITLE: Settings
#+AUTHOR: <NAME>
#+LANGUAGE: en
#+FILETAGS: :emacs:config:

* User interface
#+BEGIN_SRC emacs-lisp
  (add-to-list 'default-frame-alist '(fullscreen . maximized))
  (blink-cursor-mode 0)
  (tool-bar-mode -1)
  (scroll-bar-mode -1)
  (load-theme 'wheatgrass t)
  (set-language-environment "UTF-8")
#+END_SRC
* Fonts
#+BEGIN_SRC emacs-lisp
  (set-face-attribute 'default nil :font "DejaVu Sans Mono")
  (set-fontset-font t 'latin "Noto Sans")
  (set-fontset-font t 'chinese-gbk
                    (font-spec :family "Noto Sans CJK SC"))
  (set-fontset-font t 'japanese-jisx0213.2004-1
                    (font-spec :family "Noto Sans CJK JP"))
  (set-fontset-font t 'hangul
                    (font-spec :family "Noto Sans CJK KR"))
#+END_SRC
* Buffers and windows
#+BEGIN_SRC emacs-lisp
  (use-package ace-window
    :ensure t
    :init
    (progn
      (global-set-key [remap other-window] 'ace-window)
      (custom-set-faces
       '(aw-leading-char-face
         ((t (:inherit ace-jump-face-foreground :height 3.0)))))))
#+END_SRC
* Swiper
#+BEGIN_SRC emacs-lisp
  (use-package counsel
    :ensure t)

  (use-package swiper
    :ensure t
    :config
    (progn
      ;; Copied and yanked from the Swiper doc for now.
      (ivy-mode 1)
      (setq ivy-use-virtual-buffers t)
      (setq enable-recursive-minibuffers t)
      ;; enable this if you want `swiper' to use it
      ;; (setq search-default-mode #'char-fold-to-regexp)
      (global-set-key "\C-s" 'swiper)
      (global-set-key (kbd "C-c C-r") 'ivy-resume)
      (global-set-key (kbd "<f6>") 'ivy-resume)
      (global-set-key (kbd "M-x") 'counsel-M-x)
      (global-set-key (kbd "C-x C-f") 'counsel-find-file)
      (global-set-key (kbd "<f1> f") 'counsel-describe-function)
      (global-set-key (kbd "<f1> v") 'counsel-describe-variable)
      (global-set-key (kbd "<f1> l") 'counsel-find-library)
      (global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
      (global-set-key (kbd "<f2> u") 'counsel-unicode-char)
      (global-set-key (kbd "C-c g") 'counsel-git)
      (global-set-key (kbd "C-c j") 'counsel-git-grep)
      (global-set-key (kbd "C-c k") 'counsel-ag)
      (global-set-key (kbd "C-x l") 'counsel-locate)
      (global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
      (define-key minibuffer-local-map (kbd "C-r") 'counsel-minibuffer-history)))
#+END_SRC
* Key bindings
#+BEGIN_SRC emacs-lisp
(global-set-key [C-mouse-4] 'text-scale-increase)
(global-set-key [C-mouse-5] 'text-scale-decrease)
#+END_SRC
** TODO disable the menu bar
I will do this when I get comfortable enough with Emacs keybindings

* Powerline
#+BEGIN_SRC emacs-lisp
    (use-package powerline
      :ensure t)
    (powerline-default-theme)
#+END_SRC

** TODO show the (date and) time

* Org
#+BEGIN_SRC emacs-lisp
  (setq org-startup-indented t)
  (setq org-agenda-files '("~/org"
                           "~/.emacs.d/settings.org"))
  (setq org-log-done 'time)
  (setq org-todo-keywords
        '((sequence "TODO(t)"
                    "STARTED(s)"
                    "WAITING(w)"
                    "|"
                    "DONE(d)"
                    "CANCELLED(c)")))
#+END_SRC<commit_msg>Removed the toolbar.<commit_after>#+TITLE: Settings
#+AUTHOR: <NAME>
#+LANGUAGE: en
#+FILETAGS: :emacs:config:

* User interface
#+BEGIN_SRC emacs-lisp
  (add-to-list 'default-frame-alist '(fullscreen . maximized))
  (blink-cursor-mode 0)
  (menu-bar-mode -1)
  (tool-bar-mode -1)
  (scroll-bar-mode -1)
  (load-theme 'wheatgrass t)
  (set-language-environment "UTF-8")
#+END_SRC
** DONE disable the menu bar
CLOSED: [2020-04-07 mar 22:15]
I will do this when I get comfortable enough with Emacs keybindings

* Fonts
#+BEGIN_SRC emacs-lisp
  (set-face-attribute 'default nil :font "DejaVu Sans Mono")
  (set-fontset-font t 'latin "Noto Sans")
  (set-fontset-font t 'chinese-gbk
                    (font-spec :family "Noto Sans CJK SC"))
  (set-fontset-font t 'japanese-jisx0213.2004-1
                    (font-spec :family "Noto Sans CJK JP"))
  (set-fontset-font t 'hangul
                    (font-spec :family "Noto Sans CJK KR"))
#+END_SRC
* Buffers and windows
#+BEGIN_SRC emacs-lisp
  (use-package ace-window
    :ensure t
    :init
    (progn
      (global-set-key [remap other-window] 'ace-window)
      (custom-set-faces
       '(aw-leading-char-face
         ((t (:inherit ace-jump-face-foreground :height 3.0)))))))
#+END_SRC
* Swiper
#+BEGIN_SRC emacs-lisp
  (use-package counsel
    :ensure t)

  (use-package swiper
    :ensure t
    :config
    (progn
      ;; Copied and yanked from the Swiper doc for now.
      (ivy-mode 1)
      (setq ivy-use-virtual-buffers t)
      (setq enable-recursive-minibuffers t)
      ;; enable this if you want `swiper' to use it
      ;; (setq search-default-mode #'char-fold-to-regexp)
      (global-set-key "\C-s" 'swiper)
      (global-set-key (kbd "C-c C-r") 'ivy-resume)
      (global-set-key (kbd "<f6>") 'ivy-resume)
      (global-set-key (kbd "M-x") 'counsel-M-x)
      (global-set-key (kbd "C-x C-f") 'counsel-find-file)
      (global-set-key (kbd "<f1> f") 'counsel-describe-function)
      (global-set-key (kbd "<f1> v") 'counsel-describe-variable)
      (global-set-key (kbd "<f1> l") 'counsel-find-library)
      (global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
      (global-set-key (kbd "<f2> u") 'counsel-unicode-char)
      (global-set-key (kbd "C-c g") 'counsel-git)
      (global-set-key (kbd "C-c j") 'counsel-git-grep)
      (global-set-key (kbd "C-c k") 'counsel-ag)
      (global-set-key (kbd "C-x l") 'counsel-locate)
      (global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
      (define-key minibuffer-local-map (kbd "C-r") 'counsel-minibuffer-history)))
#+END_SRC
* Key bindings
#+BEGIN_SRC emacs-lisp
(global-set-key [C-mouse-4] 'text-scale-increase)
(global-set-key [C-mouse-5] 'text-scale-decrease)
#+END_SRC

* Powerline
#+BEGIN_SRC emacs-lisp
    (use-package powerline
      :ensure t)
    (powerline-default-theme)
#+END_SRC

** TODO show the (date and) time

* Org
#+BEGIN_SRC emacs-lisp
  (setq org-startup-indented t)
  (setq org-agenda-files '("~/org"
                           "~/.emacs.d/settings.org"))
  (setq org-log-done 'time)
  (setq org-todo-keywords
        '((sequence "TODO(t)"
                    "STARTED(s)"
                    "WAITING(w)"
                    "|"
                    "DONE(d)"
                    "CANCELLED(c)")))
#+END_SRC
{'fraction_non_alphanumeric': 0.16305021698698077, 'fraction_numerical': 0.009454432734035957, 'mean_word_length': 2.5534140969162995, 'pattern_counts': {'":': 0, '<': 17, '<?xml version=': 0, '>': 17, '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': '66556', 'n_tokens_mistral': 2661, 'n_tokens_neox': 2498, 'n_words': 561}