Commit 6b43723f authored by Arjen Wiersma's avatar Arjen Wiersma

Several look and feel changes, new programming modes

Added outshine mode for code folding in the buffer.
Linux is added to select the Hack font
Basic Rust configuration for nice experience
GTD setup for productivity
parent f38d1d31
......@@ -437,13 +437,13 @@ Install dictionaries from the [[
;; :config
;; (load-theme 'arjen-grey t))
(use-package base16-theme
:ensure t
(load-theme 'base16-materia))
;; (use-package base16-theme
;; :ensure t
;; :config
;; (load-theme 'base16-materia))
(if (eq system-type 'darwin)
(set-face-attribute 'default nil :font "Hack-14")
(if (or (eq system-type 'darwin)(eq system-type 'gnu/linux) )
(set-face-attribute 'default nil :font "Hack-16")
(set-face-attribute 'default nil :font "DejaVu Sans Mono" :height 110))
......@@ -897,7 +897,21 @@ Display the buffer state in the fringe.
(use-package restclient
:ensure t)
*** Folding
Inspired by [[][this]] blog post on Modern Emacs.
#+begin_src emacs-lisp
(use-package dash
:ensure t)
(use-package outshine
:ensure t
(add-hook 'outline-minor-mode-hook 'outshine-hook-function)
(add-hook 'prog-mode-hook 'outline-minor-mode)
** Clojure
......@@ -1033,13 +1047,41 @@ The web-mode is particularily good for editing HTML and JS files.
:ensure t
(add-hook 'rust-mode-hook #'racer-mode)
(add-hook 'racer-mode-hook #'eldoc-mode))
(add-hook 'racer-mode-hook #'eldoc-mode)
(setq rust-format-on-save t))
(use-package cargo
:ensure t
(setq compilation-scroll-output t)
(add-hook 'rust-mode-hook 'cargo-minor-mode))
(use-package flycheck-rust
:ensure t
(add-hook 'flycheck-mode-hook #'flycheck-rust-setup)
(add-hook 'rust-mode-hook 'flycheck-mode))
;; (use-package rust-mode
;; :ensure t
;; :mode "\\.rs\\'"
;; :init
;; (setq rust-format-on-save t))
;; (use-package lsp-mode
;; :ensure t
;; :init
;; (add-hook 'prog-mode-hook 'lsp-mode)
;; :config
;; (use-package lsp-flycheck
;; :ensure f ; comes with lsp-mode
;; :after flycheck
;; :config
;; (add-hook 'rust-mode-hook #'flycheck-rust-setup)))
;; (use-package lsp-rust
;; :ensure t
;; :after lsp-mode)
* Docker
......@@ -1600,6 +1642,7 @@ Formatting found on [[
(use-package org-bullets
:ensure t)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
(let* ((variable-tuple (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
......@@ -1629,7 +1672,50 @@ Formatting found on [[
(require 'ox-rss)
(use-package htmlize
:ensure t)
:ensure t)
(setq org-todo-keywords '((sequence "TODO(t)" "WAITING(w)" "|" "DONE(d)" "CANCELLED(c)")))
(setq org-agenda-files '("~/gtd/"
(setq org-capture-templates '(("t" "Todo [inbox]" entry
(file+headline "~/gtd/" "Tasks")
"* TODO %i%?")
("T" "Tickler" entry
(file+headline "~/gtd/" "Tickler")
"* %i%? \n %U")))
(setq org-refile-targets '(("~/gtd/" :maxlevel . 3)
("~/gtd/" :level . 1)
("~/gtd/" :maxlevel . 2)))
(setq org-agenda-custom-commands
'(("b" "Build fun things" tags-todo "@bft"
((org-agenda-overriding-header "BuildFunThings")
(org-agenda-skip-function #'my-org-agenda-skip-all-siblings-but-first)))))
(defun my-org-agenda-skip-all-siblings-but-first ()
"Skip all but the first non-done entry."
(let (should-skip-entry)
(unless (org-current-is-todo)
(setq should-skip-entry t))
(while (and (not should-skip-entry) (org-goto-sibling t))
(when (org-current-is-todo)
(setq should-skip-entry t))))
(when should-skip-entry
(or (outline-next-heading)
(goto-char (point-max))))))
(defun org-current-is-todo ()
(string= "TODO" (org-get-todo-state)))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cc" 'org-capture)
(global-set-key "\C-cb" 'org-iswitchb)
A first attempt at a website structure with org-mode. The idea is to build my tutorial website,, from these static files.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment