Added org-bullets and org-beautify

This commit is contained in:
Seth Morabito 2016-05-04 09:51:16 -07:00
parent 5ac9e0eba5
commit 80457f18b9
4 changed files with 86 additions and 7 deletions

12
init.el
View File

@ -243,6 +243,7 @@
markdown-mode
multi-term
multiple-cursors
org-bullets
pg
powerline
quack
@ -311,6 +312,9 @@
(require 'yasnippet)
(yas-global-mode 1)
;; Org mode should have nice bullets.
(add-hook 'org-mode-hook 'org-bullets-mode)
;; Rust-mode
(add-hook 'rust-mode-hook 'electric-pair-mode)
@ -454,6 +458,7 @@
(set-frame-font "Inconsolata-12"))
(load-theme 'loomcom)
(load-theme 'org-beautify)
(normal-erase-is-backspace-mode 1)))
;; Load C includes (defined on a per-environment basis, in my "local"
@ -569,9 +574,4 @@
;; 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 (:inherit nil :stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 140 :width normal :foundry "unknown" :family "Inconsolata"))))
'(org-block-begin-line ((t (:inherit org-meta-line :underline t :slant italic :height 0.75))) t)
'(org-block-end-line ((t (:inherit org-meta-line :overline t :slant italic :height 0.75))) t)
'(org-checkbox ((t (:inherit bold))))
'(org-level-1 ((t (:inherit outline-1 :underline t :height 1.2))))
'(org-level-2 ((t (:inherit (outline-2 default) :underline t)))))
'(default ((t (:inherit nil :stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 140 :width normal :foundry "unknown" :family "Inconsolata")))))

11
snippets/org-mode/notes Normal file
View File

@ -0,0 +1,11 @@
#contributor : Seth Morabito <web@loomcom.com>
#name : New Notes
# --
\#+TITLE: $1
\#+AUTHOR: Seth Morabito
\#+EMAIL: web@loomcom.com
\#+DATE: `(format-time-string "%Y-%m-%d" (current-time))`
* Summary
$0
* Test Cases

View File

@ -3,6 +3,6 @@
#group : fn
#expand-env: ((yas-indent-line 'fixed))
# --
fn ${1:foo}() -> ${2:Bar} {
fn ${1:foo}($2) -> ${3:Bar} {
$0
}

View File

@ -0,0 +1,68 @@
;;; org-beautify-theme.el --- A sub-theme to make org-mode more beautiful.
;; Copyright (C) 2014 Jonathan Arkell
;; Author: Jonathan Arkell <jonnay@jonnay.net>
;; Package-Version: 20150106.956
;; package-X-Original-Version: 0.1.2
;; Created: 5 Oct 2012
;; Keywords: org theme
;; This file is not part of GNU Emacs.
;; Released under the GPL v3.0
;;; Commentary:
;; An attempt to improve the typography of an org-mode file.
;; Load this theme over top your existing theme, and you should
;; be golden. If you find any incompatibilities, let me know
;; with what theme and I will try and fix it.
;; This is part of the Emagicians Starter kit--but available
;; separately.
;; When loading a whole new theme overtop, org-beautify-theme will
;; still be active with the old theme. Just unload org-beautify-theme
;; and then reload it, and everything will be fine again.
;; The Source for this file is here:
;; https://github.com/jonnay/emagicians-starter-kit/blob/master/themes/org-beautify-theme.org
;;; Code:
(deftheme org-beautify "Sub-theme to beautify org mode")
(let* ((sans-font (cond ((x-list-fonts "Lucida Grande") '(:font "Lucida Grande"))
((x-list-fonts "Verdana") '(:font "Verdana"))
((x-family-fonts "Sans Serif") '(:family "Sans Serif"))
(nil (warn "Cannot find a Sans Serif Font. Please report at: https://github.com/jonnay/emagicians-starter-kit/issues"))))
(base-font-color (face-foreground 'default nil 'default))
(background-color (face-background 'default nil 'default))
(headline `(:inherit default :foreground ,base-font-color))
(primary-color (face-foreground 'mode-line nil))
(secondary-color (face-background 'secondary-selection nil 'region))
(padding `(:line-width 5 :color ,background-color))
(org-highlights `(:foreground ,base-font-color :background ,secondary-color)))
(custom-theme-set-faces 'org-beautify
`(org-agenda-structure ((t (:inherit default ,@sans-font :height 2.0 :underline nil))))
`(org-level-8 ((t ,headline)))
`(org-level-7 ((t ,headline)))
`(org-level-6 ((t ,headline)))
`(org-level-5 ((t ,headline)))
`(org-level-4 ((t ,headline)))
`(org-level-3 ((t (,@headline :box ,padding))))
`(org-level-2 ((t (,@headline ,@sans-font :height 1.25 :box ,padding))))
`(org-level-1 ((t (,@headline ,@sans-font :height 1.5 :box ,padding ))))
`(org-document-title ((t (:inherit org-level-1 :height 2.0 :underline nil :box ,padding))))
`(org-block ((t (:foreground ,base-font-color :background ,background-color :box nil))))
`(org-block-begin-line ((t ,org-highlights)))
`(org-block-end-line ((t ,org-highlights)))
`(org-checkbox ((t (:foreground "#000000", :background "#93a1a1" :box (:line-width -3 :color "#93a1a1" :style "released-button")))))
`(org-headline-done ((t (:strike-through t))))
`(org-done ((t (:strike-through t))))))
(provide-theme 'org-beautify)
;;; org-beautify-theme.el ends here