summaryrefslogtreecommitdiff
path: root/blendoit
diff options
context:
space:
mode:
authorBlendoit <blendoit@gmail.com>2020-07-20 17:12:55 -0700
committerBlendoit <blendoit@gmail.com>2020-07-20 17:12:55 -0700
commitdefdb394d8bdc32a28a092126001b94eabb7fb93 (patch)
tree8bc106c91defb31925d13fbe6213eea81ff80f5f /blendoit
parent8ef78ca56b1665f5531080ce63da907a2176a7da (diff)
Custom configuration reborn.
Diffstat (limited to 'blendoit')
-rw-r--r--blendoit/.gitignore2
-rw-r--r--blendoit/custom/custom-file.org67
-rw-r--r--blendoit/init-blendoit.org388
-rw-r--r--blendoit/init-blendoit.pdfbin0 -> 103107 bytes
-rw-r--r--blendoit/secrets.org4
5 files changed, 461 insertions, 0 deletions
diff --git a/blendoit/.gitignore b/blendoit/.gitignore
new file mode 100644
index 0000000..0e42b29
--- /dev/null
+++ b/blendoit/.gitignore
@@ -0,0 +1,2 @@
+# blendoit/.gitignore
+*.el \ No newline at end of file
diff --git a/blendoit/custom/custom-file.org b/blendoit/custom/custom-file.org
new file mode 100644
index 0000000..3200ffd
--- /dev/null
+++ b/blendoit/custom/custom-file.org
@@ -0,0 +1,67 @@
+#+BEGIN_SRC emacs-lisp
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(ansi-color-names-vector
+ ["#3F3F3F" "#CC9393" "#7F9F7F" "#F0DFAF" "#8CD0D3" "#DC8CC3" "#93E0E3" "#DCDCCC"])
+ '(company-quickhelp-color-background "#4F4F4F")
+ '(company-quickhelp-color-foreground "#DCDCCC")
+ '(cua-mode t nil (cua-base))
+ '(custom-enabled-themes nil)
+ '(custom-safe-themes
+ (quote
+ ("f56eb33cd9f1e49c5df0080a3e8a292e83890a61a89bceeaa481a5f183e8e3ef" default)))
+ '(fci-rule-color "#383838")
+ '(line-number-mode nil)
+ '(nrepl-message-colors
+ (quote
+ ("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3")))
+ '(org-agenda-diary-file "~/org/PERSONAL/diary/diary.org")
+ '(org-agenda-files (quote ("~/org/PERSONAL/diary/diary.org")))
+ '(org-time-stamp-custom-formats (quote ("%d %b, %Y (%a)" . "%d %b, %Y (%a), at %H:%M")))
+ '(package-selected-packages
+ (quote
+ (which-key srefactor-lisp srefactor all-the-icons flycheck ibuffer-sidebar pdf-tools magit rainbow-delimiters smartparens mixed-pitch org-bullets use-package tabbar powerline ivy-hydra flatui-theme evil counsel company benchmark-init)))
+ '(pdf-view-midnight-colors (quote ("#DCDCCC" . "#383838")))
+ '(vc-annotate-background "#2B2B2B")
+ '(vc-annotate-color-map
+ (quote
+ ((20 . "#BC8383")
+ (40 . "#CC9393")
+ (60 . "#DFAF8F")
+ (80 . "#D0BF8F")
+ (100 . "#E0CF9F")
+ (120 . "#F0DFAF")
+ (140 . "#5F7F5F")
+ (160 . "#7F9F7F")
+ (180 . "#8FB28F")
+ (200 . "#9FC59F")
+ (220 . "#AFD8AF")
+ (240 . "#BFEBBF")
+ (260 . "#93E0E3")
+ (280 . "#6CA0A3")
+ (300 . "#7CB8BB")
+ (320 . "#8CD0D3")
+ (340 . "#94BFF3")
+ (360 . "#DC8CC3"))))
+ '(vc-annotate-very-old-color "#DC8CC3"))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(default ((t (:family "Hack" :foundry "SRC" :slant normal :weight normal :height 142 :width normal))))
+ '(fixed-pitch ((t (:family "Hack"))))
+ '(org-document-title ((t (:inherit default :weight bold :font "Liberation Sans" :height 2.0 :underline nil))))
+ '(org-level-1 ((t (:inherit default :weight bold :font "Liberation Sans" :height 1.75))))
+ '(org-level-2 ((t (:inherit default :weight bold :font "Liberation Sans" :height 1.5))))
+ '(org-level-3 ((t (:inherit default :weight bold :font "Liberation Sans" :height 1.25))))
+ '(org-level-4 ((t (:inherit default :weight bold :font "Liberation Sans" :height 1.1))))
+ '(org-level-5 ((t (:inherit default :weight bold :font "Liberation Sans"))))
+ '(org-level-6 ((t (:inherit default :weight bold :font "Liberation Sans"))))
+ '(org-level-7 ((t (:inherit default :weight bold :font "Liberation Sans"))))
+ '(org-level-8 ((t (:inherit default :weight bold :font "Liberation Sans"))))
+ '(variable-pitch ((t (:family "Liberation Sans")))))
+ #+END_SRC
diff --git a/blendoit/init-blendoit.org b/blendoit/init-blendoit.org
new file mode 100644
index 0000000..e9caf19
--- /dev/null
+++ b/blendoit/init-blendoit.org
@@ -0,0 +1,388 @@
+#+TITLE: Blendoit's Emacs configuration
+#+AUTHOR: Marius Peter
+#+DATE: <2020-07-19 Sun>
+#+STARTUP: customtime showall
+#+SETUPFILE: ~/org/templates/documents/personal.org
+#+INCLUDE: ~/org/templates/documents/personal-title.org
+
+#+BEGIN_abstract
+Emacs enables an unparalleled level of customisation by allowing the
+introspection of every variable and function that can be understood by the
+software. The possibilities are endless.
+#+END_abstract
+
+* Preliminary setup
+
+** Garbage collection
+
+Increase the garbage collection limit.
+
+#+NAME: garbage-collection
+#+BEGIN_SRC emacs-lisp
+(setq gc-cons-threshold 100000000)
+#+END_SRC
+
+** Custom file
+
+Load settings created automatically by GNU Emacs Custom. (For example, any
+clickable option/toggle is saved here.) Useful for fooling around with M-x
+customize-group <package>.
+
+#+NAME: custom-file
+#+BEGIN_SRC emacs-lisp
+
+(setq custom-file "~/.emacs.d/blendoit/custom/custom-file.org")
+(org-babel-load-file custom-file)
+#+END_SRC
+
+** Shortcut
+
+We begin by defining a user shortcut to this very file:
+
+#+NAME: shortcut-config
+#+BEGIN_SRC emacs-lisp
+ (defun find-init-blendoit ()
+ "Jump to this very file."
+ (interactive)
+ (find-file "~/.emacs.d/blendoit/init-blendoit.org"))
+ (global-set-key (kbd "C-c c") 'find-init-blendoit)
+#+END_SRC
+
+** Backups
+
+Backups are so important that they should be described right after the shortcut
+to this file.
+
+#+BEGIN_SRC emacs-lisp
+(setq backup-directory-alist `((".*" . ,temporary-file-directory))
+auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
+ backup-by-copying t ; Don't delink hardlinks
+ version-control t ; Use version numbers on backups
+ delete-old-versions t ; Automatically delete excess backups
+ kept-new-versions 20 ; how many of the newest versions to keep
+ kept-old-versions 5 ; and how many of the old
+ )
+#+END_SRC
+
+** Secrets
+
+#+INCLUDE: ./secrets.org
+
+* Bindings
+
+#+BEGIN_SRC emacs-lisp
+(global-set-key (kbd "C-c e") 'eval-buffer)
+(global-set-key (kbd "C-s") 'save-buffer)
+(global-set-key (kbd "C-b") 'ibuffer-sidebar-toggle-sidebar)
+(global-set-key (kbd "C-w") 'kill-buffer-and-window)
+(global-set-key (kbd "C-c a") 'org-agenda)
+#+END_SRC
+
+** Zoom
+
+ Zoom in/out of selected buffer.
+
+#+BEGIN_SRC emacs-lisp
+ (global-set-key [M-mouse-4] 'text-scale-increase)
+ (global-set-key [M-mouse-5] 'text-scale-decrease)
+#+END_SRC
+
+* Packages
+
+List of package archives.
+
+#+NAME: packages
+#+BEGIN_SRC emacs-lisp
+(require 'package)
+(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
+(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
+(package-initialize)
+#+END_SRC
+
+#+RESULTS: packages
+
+Ensure =use-package= is installed.
+
+#+BEGIN_SRC emacs-lisp
+(unless (package-installed-p 'use-package)
+(package-refresh-contents)
+(package-install 'use-package)
+(eval-when-compile (require 'use-package)))
+(setq use-package-always-ensure t)
+#+END_SRC
+
+** Org
+
+Phew, I can finally introduce Org mode! I am so *excited*.
+
+#+NAME: org
+#+BEGIN_SRC emacs-lisp
+(setq org-hide-emphasis-markers t)
+(setq org-startup-indented t)
+(setq org-directory "~/org")
+
+(font-lock-add-keywords 'org-mode
+ '(("^ *\\([-]\\) "
+ (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
+
+(use-package org-bullets
+ :config
+ (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
+
+(let* ((variable-tuple
+ (cond ((x-list-fonts "Liberation Sans") '(:font "Liberation Sans"))
+ ((x-family-fonts "Sans Serif") '(:family "Sans Serif"))
+ (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))))
+ (base-font-color (face-foreground 'default nil 'default))
+ (headline `(:inherit default :weight bold)))
+
+ (custom-theme-set-faces
+ 'user
+ `(org-level-8 ((t (,@headline ,@variable-tuple))))
+ `(org-level-7 ((t (,@headline ,@variable-tuple))))
+ `(org-level-6 ((t (,@headline ,@variable-tuple))))
+ `(org-level-5 ((t (,@headline ,@variable-tuple))))
+ `(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
+ `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.25))))
+ `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.5))))
+ `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
+ `(org-document-title ((t (,@headline ,@variable-tuple :height 2.0 :underline nil))))))
+
+(custom-theme-set-faces
+ 'user
+ '(variable-pitch ((t (:family "Liberation Sans"))))
+ '(fixed-pitch ((t ( :family "Hack")))))
+
+
+
+
+(x-list-fonts "Hermit")
+#+END_SRC
+
+- Beautiful bullet lists in Org mode!
+
+*** Org Agenda
+
+#+BEGIN_SRC emacs-lisp
+
+#+END_SRC
+
+*** Org publish
+#+BEGIN_SRC emacs-lisp
+(require 'ox-publish)
+(setq org-publish-project-alist
+ '(
+ ("Safran-VIP-html"
+ :base-directory "~/org/WORK/Safran/programs/VIP/doc/org/"
+ :base-extension "org"
+ :publishing-directory "~/org/WORK/Safran/programs/VIP/doc/wiki/"
+ :recursive t
+ :publishing-function org-html-publish-to-html
+ :auto-preamble t
+ :auto-sitemap t
+ :sitemap-title "" )
+
+ ("Safran-VIP-static"
+ :base-directory "~/org/WORK/Safran/programs/VIP/doc/org/"
+ :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|mp4\\|ogg\\|swf"
+ :publishing-directory "~/org/WORK/Safran/programs/VIP/doc/wiki/"
+ :recursive t
+ :publishing-function org-publish-attachment )
+
+ ("Safran-VIP-all"
+ :components ("Safran-VIP-html" "Safran-VIP-static"))
+
+ ("Safran-MA700-html"
+ :base-directory "~/org/WORK/Safran/programs/MA700/doc/org/"
+ :base-extension "org"
+ :publishing-directory "~/org/WORK/Safran/programs/MA700/doc/wiki/"
+ :recursive t
+ :publishing-function org-html-publish-to-html
+ :auto-preamble t
+ :auto-sitemap t
+ :sitemap-title "" )
+
+ ("Safran-MA700-static"
+ :base-directory "~/org/WORK/Safran/programs/MA700/doc/org/"
+ :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|mp4\\|ogg\\|swf"
+ :publishing-directory "~/org/WORK/Safran/programs/MA700/doc/wiki/"
+ :recursive t
+ :publishing-function org-publish-attachment )
+
+ ("Safran-MA700-all"
+ :components ("Safran-MA700-html" "Safran-MA700-static"))))
+
+ (add-to-list 'org-latex-packages-alist '("table" "xcolor"
+ t ("pdflatex")))
+ (add-to-list 'org-latex-packages-alist '("AUTO" "babel"
+ t ("pdflatex")))
+ (add-to-list 'org-latex-packages-alist '("AUTO" "polyglossia"
+ t ("xelatex" "lualatex")))
+#+END_SRC
+
+
+** ibuffer-sidebar
+
+#+BEGIN_SRC emacs-lisp
+(use-package ibuffer-sidebar
+ :commands (ibuffer-sidebar-toggle-sidebar))
+#+END_SRC
+
+** Which-key
+
+#+BEGIN_SRC emacs-lisp
+(use-package which-key
+:init
+(which-key-mode)
+:config
+;; (setq which-key-idle-delay 1000)
+;; (setq which-key-idle-secondary-delay 0.05)
+;; (setq which-key-show-early-on-C-h t)
+)
+#+END_SRC
+
+** Ivy
+
+Auto completion.
+
+#+BEGIN_SRC emacs-lisp
+ (use-package ivy
+ :config
+ (ivy-mode t)
+ (setq ivy-use-virtual-buffers t
+ ivy-count-format "%d/%d "
+ enable-recursive-minibuffers t))
+
+ (use-package ivy-hydra)
+ (setq ivy-initial-inputs-alist nil)
+ (use-package ivy-hydra)
+#+END_SRC
+
+*** Counsel
+
+ Wonderful counsellor!
+
+ #+BEGIN_SRC emacs-lisp
+ (use-package counsel
+ :bind ("M-x" . counsel-M-x)
+ :config (counsel-mode))
+
+(global-set-key (kbd "C-f") 'counsel-grep-or-swiper)
+(global-set-key (kbd "C-F") 'counsel-find-file)
+ #+END_SRC
+
+*** Swiper
+
+#+BEGIN_SRC emacs-lisp
+ (use-package swiper
+ :bind (("C-f" . counsel-grep-or-swiper)))
+#+END_SRC
+
+** Ido
+
+# #+BEGIN_SRC emacs-lisp
+# (setq ido-enable-flex-matching t)
+# (setq ido-everywhere t)
+# (ido-mode 1)
+# #+END_SRC
+
+** Company
+
+ #+NAME: company
+ #+BEGIN_SRC emacs-lisp
+ (use-package company
+ :config
+ (add-hook 'after-init-hook 'global-company-mode))
+ #+END_SRC
+
+** Flycheck
+
+ #+NAME: flycheck
+ #+BEGIN_SRC emacs-lisp
+(use-package flycheck
+ :init (global-flycheck-mode))
+ #+END_SRC
+
+** Magit
+
+#+BEGIN_SRC emacs-lisp
+ (use-package magit
+ :bind ("C-c g" . magit-status))
+#+END_SRC
+
+** PDF-tools
+
+#+BEGIN_SRC emacs-lisp
+(use-package pdf-tools
+ :config
+ (pdf-loader-install))
+#+END_SRC
+
+* Cosmetics
+
+** Faces & cursors
+
+In order to imitate other modern text editors, we'll resort to a blinking bar
+cursor.
+
+*** Default cursor
+
+#+BEGIN_SRC emacs-lisp
+(setq-default cursor-type (quote bar))
+#+END_SRC
+
+*** Default faces
+
+Fixed-pitch and variable-pitch fonts will be used intelligently in all text
+modes.
+
+#+BEGIN_SRC emacs-lisp
+ (use-package mixed-pitch
+ :hook
+ ;; If you want it in all text modes:
+ (text-mode . mixed-pitch-mode))
+#+END_SRC
+
+** All the icons
+
+#+BEGIN_SRC emacs-lisp
+(use-package all-the-icons)
+#+END_SRC
+
+** Theme
+
+#+BEGIN_SRC emacs-lisp
+;; (use-package zenburn-theme
+;; :config
+;; (load-theme 'zenburn)
+;; )
+#+END_SRC
+
+** Transparency
+
+#+BEGIN_SRC emacs-lisp
+(add-to-list 'default-frame-alist '(alpha . (90 . 50)))
+#+END_SRC
+
+** Scrollbars
+
+#+BEGIN_SRC emacs-lisp
+(set-window-scroll-bars (minibuffer-window) nil nil)
+#+END_SRC
+
+* Editing preferences
+
+#+BEGIN_SRC emacs-lisp
+(setq-default fill-column 79)
+(defalias 'yes-or-no-p 'y-or-n-p)
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp
+ (use-package smartparens
+ :config
+ (add-hook 'prog-mode-hook 'smartparens-mode))
+
+ (use-package rainbow-delimiters
+ :config
+ (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))
+#+END_SRC
diff --git a/blendoit/init-blendoit.pdf b/blendoit/init-blendoit.pdf
new file mode 100644
index 0000000..96a5f9d
--- /dev/null
+++ b/blendoit/init-blendoit.pdf
Binary files differ
diff --git a/blendoit/secrets.org b/blendoit/secrets.org
new file mode 100644
index 0000000..a6ca895
--- /dev/null
+++ b/blendoit/secrets.org
@@ -0,0 +1,4 @@
+#+BEGIN_SRC emacs-lisp
+ (setq user-full-name "Marius Peter"
+ user-mail-address "blendoit@gmail.com")
+#+END_SRC
Copyright 2019--2024 Marius PETER