Emacs Org Mode – Digitize your life in plain text – Emacs, Arduino, Raspberry Pi, Linux and Programming etc

Emacs Org Mode – Digitize your life in plain text

Posted by: mistan

Whole New World of Wonders

It all stemmed from RLM.

All I wanted is just a brief taste of Linux after his irresistable offer – A dual boot system with Windows 7 and Arch Linux (code-named Taurus). Out of my surprise, I rapidly slipped into a rabbit hole of wonderland.

The Org-Mode World of Emacs

Org mode is for keeping notes, maintaining TODO lists, planning projects, and authoring documents including science papers with a fast and effective plain-text system. It can then be converted into any formats you want.

Task management [7/7] [100%]

[X] call XXX customer
[X] call XXX
[X] call XXX [2/2] XXX will have Surgery tomorron, spin problem effecting walking
- [X] email to remind him of his PDF book
- [X] remind XXX to send him more informaiton
[X] call audio customer called twice, no pickup, will call Monday
[X] call XXX ¹
[X] lunch with YYY
[X] call 刘 -no body pick up,

Time tracking function without interruption.

use to C-c C-x C-r to generate a time tracking table

Table 1: Clock summary at [2015-01-11 Sun 14:39]
Headline	Time
Total time	0:14
TODO lunch with XXX	0:14

Capture funtion without breaking your work flow -even from Firefox.

(let ((current-prefix-arg '(1)))

(call-interactively 'shell-command))))

(global-set-key "\C-e" 'end-of-line)

(global-set-key [f12] 'next-error)

(global-set-key [f1] 'compile)

(global-set-key [f13] 'other-window) ;; needs xmodmap support

(global-set-key [f12] 'switch-to-buffer) ;; needs xmodmap support

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Miscelaneous Config

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; (setq-default ispell-program-name "aspell"

;; ispell-extra-args '("--sug-mode=ultra"))

;; (setq ispell-list-command "--list")

;;(setq slime-net-coding-system 'utf-8-unix)

(setq require-final-newline nil)

(setq mode-require-final-newline nil)

(setq make-backup-files nil)

;I must fight the backup files!

;maybe we can just disable them?

(setq backup-inhibited t)

(setq auto-save-default nil)

(setq make-backup-files nil)

(setq auto-mode-alist

(cons '("\\.m" . octave-mode) auto-mode-alist))

(setq x-select-enable-clipboard 't)

;; from http://stackoverflow.com/questions/2706527/

Source code execution and insertion with every computer languages I know.

< s TAB to insert source code -lisp here

1
2
3

(+ 1 2 3 4)

C-c C-c to generate eveluation results

10
PERL

1
2
3

perl /home/tan/proj/explore-linux/perl/hello.pl

HELLO WORLD!

Ditaa to draw flow chart

+---------+

| cBLU |

| |

| +----+

| |cPNK|

| | |

+----+----+

+--------+ +-------+ +-------+

| cGRE | --+ ditaa +--> | cRED |

| Text | +-------+ |diagram|

| {d}| |!magic!| | |

+---+----+ +-------+ +-------+

: ^

| with Java Magic |

+-------------------------+

Tables and Statistics with R

col1	col2
A	A
A	B
B	B

Plot and statistics with R

plot(matrix(rnorm(100), ncol=2), type="l")

Plot in PDF More Examples with R here

airmass	zenith_seeing	delivered_seeing
1.3	0.95	1.1119612
1.3	1.0	1.1704854
1.3	1.1	1.2875340
1.3	1.2	1.4045825

summary(delsee)

: airmass zenith_seeing delivered_seeing

: Min. :1.3 Min. :0.9500 Min. :1.112

: 1st Qu.:1.3 1st Qu.:0.9875 1st Qu.:1.156

: Median :1.3 Median :1.0500 Median :1.229

: Mean :1.3 Mean :1.0625 Mean :1.244

: 3rd Qu.:1.3 3rd Qu.:1.1250 3rd Qu.:1.317

: Max. :1.3 Max. :1.2000 Max. :1.405

To publish .org in WordPress blogs with images uploading.

Org2blog is a tool to publish directly from Emacs’ org-mode to WordPress blogs, and, you guessed right, this site is a product of org2blog.

THE legendary dot-emacs

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Main extension directory and load files.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq load-path

(append (list "/home/tan/config/emacs/extend") load-path))

(add-to-list 'load-path "/usr/share/emacs/site-lisp/cedet") ;;cedet loading

(load-file "/usr/share/emacs/site-lisp/cedet/cedet-devel-load.el")

(package-initialize)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; emacs appearance

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;(global-hl-line-mode)

(display-battery-mode 1)

(column-number-mode 1)

(global-linum-mode 1)

(linum-mode 1)

;;(prefer-coding-system 'utf-8)

(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))

(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))

;; (if (fboundp 'menu-bar-mode) (menu-bar-mode -1))

;; set font to terminus if possible and in graphics mode

(if (display-graphic-p)

(set-face-attribute 'default nil :font "Terminus"))

(setq frame-title-format "EMACS") ;only in x terminal.

(setq inhibit-startup-message 't)

(setq load-path

(append

(list "/home/tan/config/emacs/extend/color-themes")

load-path))

(require 'color-theme)

(color-theme-initialize)

;; CHOOSE only ONE of these color themes!

;;; Leuven -- primary colors on white. Great for Org mode especially!

;; (setq max-lisp-eval-depth 1000)

;; (load "color-theme-leuven")

;; (color-theme-leuven)

;;; Zenburn -- magical, unobstrusive dark theme

(load "zenburn")

(zenburn)

(setenv "DARKTERM" "yes")

(setq set-input-method nil)

;;Rainbow Mode

(load-file "/home/tan/config/emacs/extend/rainbow-mode.el")

(require 'rainbow-mode)

;; Rainbow modes globally http://stackoverflow.com/questions/16048231/how-to-enable-a-non-global-minor-mode-by-default-on-emacs-startup

(define-globalized-minor-mode my-global-rainbow-mode rainbow-mode

(lambda () (rainbow-mode 1)))

(my-global-rainbow-mode 1)

;;(defun all-css-modes() (css-mode) (rainbow-mode)(org-mode))

;; Load both major and minor modes in one call based on file type

;;(add-to-list 'auto-mode-alist '("\\.css$" . all-css-modes))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; firefox-like font size adjustment

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar rlm-default-font-size 139)

(defvar rlm-font-size

rlm-default-font-size)

(defun change-font-size (num)

(setq rlm-font-size (+ rlm-font-size num))

(message (number-to-string rlm-font-size))

(set-face-attribute 'default nil

:height rlm-font-size))

(defun font-increase ()

(interactive)

(change-font-size 3))

(defun font-decrease ()

(interactive)

(change-font-size -3))

(defun font-restore ()

(interactive)

(setq rlm-font-size rlm-default-font-size)

(change-font-size 0))

(global-set-key (kbd "C-+") 'font-increase)

(global-set-key (kbd "C--") 'font-decrease)

(global-set-key (kbd "C-=") 'font-restore)

(change-font-size 0)

;;input Chinese

(set-keyboard-coding-system 'chinese-iso-8bit)

(global-set-key [(f2)]

'(lambda () (interactive)

(if (equal current-input-method "Sogou Pinyin")

(set-input-method 'chinese-qj)

(set-input-method 'chinese-tonepy-punct)

)

;; ;;save session, layout and files

(require 'workgroups2)

;; Change some settings

;; Change prefix key (before activating WG)

(setq wg-prefix-key (kbd "C-c C-z"))

;; What to do on Emacs exit / workgroups-mode exit?

(setq wg-emacs-exit-save-behavior 'save) ; Options: 'save 'ask nil

(setq wg-workgroups-mode-exit-save-behavior 'save) ; Options: 'save 'ask nil;

;; Change workgroups session file

(setq wg-session-file "~/config/emacs/.emacs_workgroups")

;; ;; Mode Line changes

;; ;; Display workgroups in Mode Line?

;; (setq wg-mode-line-display-on nil) ; Default: (not (featurep 'powerline))

;; (setq wg-flag-modified nil) ; Display modified flags as well

;; (setq wg-mode-line-decor-left-brace "["

;; wg-mode-line-decor-right-brace "]" ; how to surround it

;; wg-mode-line-decor-divider ":")

;;(require 'sr-speedbar)

(require 'rich-minority)

(rich-minority-mode 1)

;;IRC config

(require 'tls)

(require 'erc)

(defun start-irc ()

(interactive)

(erc :server "irc.freenode.net"

:full-name "Tan" ;; change to your name

:nick "cryoguy" ;; change to your nick

:port 6667

:password (read-passwd "Enter IRC password: ")))

;; ;; joining && autojoing

;; ;; make sure to use wildcards for e.g. freenode as the actual server

;; ;; name can be be a bit different, which would screw up autoconnect

;; (erc-autojoin-mode t)

;; (setq erc-autojoin-channels-alist

;; '((".*\\.freenode.net" "#emacs" "#gnu" "#gcc" "#modest" "#maemo")

;; (".*\\.gimp.org" "#unix" "#gtk+")))

;; ;; check channels

;; (erc-track-mode t)

;; (setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE"

;; "324" "329" "332" "333" "353" "477"))

;; ;; don't show any of this

;; (setq erc-hide-list '("JOIN" "PART" "QUIT" "NICK"))

Footnotes:

long phone call to catch up, may interested in XXX Business, use C-c C-x f to add footnote, C-c C-c to jump between definition and reference.

22
JAN

Blog