My .emacs file (Org-Mode)
Here’s my .emacs file, from time to time this entry will be updated.
2016-08-17 added „distraction free“ part
2016-01-03 added key assignment for „duplicate line“ command
2015-12-30 added line for UTF-8 default encoding
2015-04-24 added German local for days and months
2014-12-22: latest update: F8 copies current entry to next week/day
2014-07-06: Added code to a) postpone one task and set it to todo for the next week using the
2014-05-10: Added autoload buffer code
2014-03-30: Added colors for orgmode status
2013-11-17: moved loading the org-file behind setting the orgmode variables.
;; UTF-8 as default encoding (set-language-environment "UTF-8") ;; Autoload buffers if they were changed outside Emacs (global-auto-revert-mode t) ;; ReStructured Text for Emacs ; http://docutils.sourceforge.net/docs/user/emacs.html#introduction (require 'rst) ;; CCrypt Support (setq load-path (cons "G:/Programme/emacs-24.3/myLisp/ccrypt" load-path)) (require 'ps-ccrypt "ps-ccrypt.el") ;; distraction-free ;; https://nickhigham.wordpress.com/2016/01/14/distraction-free-editing-with-emacs/ (scroll-bar-mode 0) ; Turn off scrollbars. (tool-bar-mode 0) ; Turn off toolbars. (fringe-mode 0) ; Turn off left and right fringe cols. (menu-bar-mode 0) ; Turn off menus. ;; bind fullscreen toggle to f9 key (global-set-key (kbd "") 'toggle-frame-fullscreen) ;; http://emacs.stackexchange.com/questions/2999/how-to-maximize-my-emacs-frame-on-start-up ;; Start fullscreen (cross-platf) (add-hook 'window-setup-hook 'toggle-frame-fullscreen t) ; emacs-doctor.com/emacs-strip-tease.html ;; Prevent the cursor from blinking (blink-cursor-mode 0) ;; Don't use messages that you don't read (setq initial-scratch-message "") (setq inhibit-startup-message t) ;; Don't let Emacs hurt your ears (setq visible-bell t) (custom-set-faces '(default ((t (:background "black" :foreground "darkgrey")))) '(fringe ((t (:background "black"))))) ;; Do not show welcome screen at startup (setq inhibit-startup-message t) ;; just answer Emacs' question with 'y' or 'n' instead of 'yes'or 'no' (defalias 'yes-or-no-p 'y-or-n-p) ;; Load org mode ;; update this line for your setup (add-to-list 'load-path "G:/Programme/emacs-24.3/myLisp/org-8.2.10/lisp") ;; establish a globally accessible GTD TODO file (setq org-default-notes-file (expand-file-name "~/Dropbox/central-notes.org")) ;; global key bindings for org mode ;; http://orgmode.org/manual/Activation.html#Activation (global-set-key "\C-cl" 'org-store-link) (global-set-key "\C-cc" 'org-capture) (global-set-key "\C-ca" 'org-agenda) (global-set-key "\C-cb" 'org-iswitchb) ;; Start Calendar View (setq calendar-week-start-day 1) ;; http://blog.gmane.org/gmane.emacs.orgmode/day=20140530 (defun tj/copy-entry-to-next-day (); (state) (interactive) ; add interactive to let emacs know to call it interactively "Copy entry at point to next parent and change its STATE." ; (interactive "sState: ") (setq state "POSTPONED") (save-excursion (save-restriction (widen) (unless (org-on-heading-p) (outline-previous-heading)) (org-copy-subtree) (org-todo state) (org-up-heading-safe) (org-forward-heading-same-level 1) (forward-line) (org-yank)))) (global-set-key (kbd " ") 'tj/copy-entry-to-next-day) ;; some org mode settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq org-todo-keyword-faces '( ("TODO" . (:foreground "red" :weight bold)) ("PROGRESSING" . (:foreground "blue" :weight bold)) ("FEEDBACK" . (:foreground "brown" :weight bold)) ("VERIFY" . (:foreground "orange" :weight bold)) ("POSTPONED" . (:foreground "LightSalmon4" :weight bold)) ("DONE" . (:foreground "MediumSeaGreen" :weight bold)) ("DELEGATED" . (:foreground "ForestGreen" :weight bold)) ("CANCELLED" . (:foreground "goldenrod" :weight bold)) )) ;; no idea what the following does (font-lock-add-keywords 'org-mode '(("^.*:write:.*$" . font-lock-keyword-face))) (setq org-agenda-face-for-tagged-lines '(("write" . bold))) ;; Locales for Germany ;; see http://www.emacswiki.org/emacs/CalendarLocalization#toc8 (setq calendar-week-start-day 1 calendar-day-name-array ["Sonntag" "Montag" "Dienstag" "Mittwoch" "Donnerstag" "Freitag" "Samstag"] calendar-month-name-array ["Januar" "Februar" "Maerz" "April" "Mai" "Juni" "Juli" "August" "September" "Oktober" "November" "Dezember"]) ;; deprecated, use agenda mode instead (setq org-tag-alist '(("Montag" . ?1) ("Dienstag" . ?2) ("Mittwoch" . ?3) ("Donnerstag" . ?4) ("Freitag" . ?5) ("Sonnabend" . ?6) ("Sonntag" . ?7))) ;; define some additional status ;; http://orgmode.org/org.html#TODO-extensions (setq org-todo-keywords '((sequence "TODO" "PROGRESSING" "FEEDBACK" "VERIFY" "POSTPONED" "|" "DELEGATED" "CANCELLED" "DONE"))) ;; whenever some entry is set to done, log the timestamp ;; (setq org-log-done 'time) ;; some LaTeX-specific export settings ;; load the latex extensions ; (Require 'org-latex) # deprecated! (require 'ox-html) (require 'ox-latex) (require 'ox-ascii) ; kick out all packages from org-mode's default list ; gives maximum of flexibility ;;(setq org-latex-packages-alist nil) ;;(setq org-latex-default-packages-alist nil) ;; now let's add a few custom class export templates (add-to-list 'org-latex-classes '("koma-article" "\\documentclass{scrartcl} \\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n \\usepackage{hyperref}\n" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))) (add-to-list 'org-latex-classes ;; org-export-latex-classes is deprecated '("scrlttr" "\\documentclass[11pt]{scrlttr2}\n \\usepackage[utf8]{inputenc}\n \\usepackage[T1]{fontenc}\n \\usepackage{xcolor}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))) ;; load a specific file at startup (find-file "~/Dropbox/orgmode.org") ;; allow quick search links, here Google (setq org-link-abbrev-alist '(("google" . "https://www.google.com/search?q=%s") ("spiegel" . "http://www.spiegel.de/%s") ("uwe" . "http://uweziegenhagen.de/?s=%s"))) ;; local in a org mode document they can be set using ;; #+LINK: uwe http://uweziegenhagen.de/?s=%s ;; usage after definition: [[uwe:Arduino]] ;; enable python for in-buffer evaluation ;; http://orgmode.org/manual/Languages.html (org-babel-do-load-languages 'org-babel-load-languages '((python . t))) ;; let's define all python code as safe (defun my-org-confirm-babel-evaluate (lang body) (not (string= lang "python"))) (setq org-confirm-babel-evaluate nil) ;; duplicate current line, bind command to Ctrl-d ;; from http://stackoverflow.com/questions/88399/how-do-i-duplicate-a-whole-line-in-emacs (defun duplicate-line (arg) "Duplicate current line, leaving point in lower line." (interactive "*p") ;; save the point for undo (setq buffer-undo-list (cons (point) buffer-undo-list)) ;; local variables for start and end of line (let ((bol (save-excursion (beginning-of-line) (point))) eol) (save-excursion ;; don't use forward-line for this, because you would have ;; to check whether you are at the end of the buffer (end-of-line) (setq eol (point)) ;; store the line and disable the recording of undo information (let ((line (buffer-substring bol eol)) (buffer-undo-list t) (count arg)) ;; insert the line arg times (while (> count 0) (newline) ;; because there is no newline in 'line' (insert line) (setq count (1- count))) ) ;; create the undo information (setq buffer-undo-list (cons (cons eol (point)) buffer-undo-list))) ) ; end-of-let ;; put the point in the lowest line and return (next-line arg)) (global-set-key "\C-d" 'duplicate-line) ;; load recentfile extension, 2nd menu item in 'file' (require 'recentf) (recentf-mode 1) ;; limit to 10 entries (setq recentf-max-menu-items 10) ;; create global key to access the list (global-set-key "\C-x\ \C-r" 'recentf-open-files) (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. ) (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 "Courier New" :foundry "outline" :slant normal :weight normal :height 158 :width normal)))))
