changing the path appropriately, but you'll probably want to tweak it
extensively first.
+Some general links regarding these configuration:
+
+- http://www.emacswiki.org/emacs/EmacsCrashCode
+- http://www.emacswiki.org/emacs/EmacsCrashTips
+- http://www.emacswiki.org/emacs/EmacsNiftyTricks
+
To be precise, this is what's in the first part of my =~/.emacs.d/init.el= (what used to be the =~/.emacs= file):
#+BEGIN_SRC emacs-lisp :tangle no
** new config
+*** debugging
+
+If you are in need enable debugging:
+
+#+BEGIN_SRC emacs-lisp :tangle no
+;; (setq debug-on-error t)
+#+END_SRC
*** run in servermode
(add-to-list 'load-path "~/.emacs.d/elpa/popwin-20140902.1727")
(add-to-list 'load-path "~/.emacs.d/elpa/guide-key-20140828.807")
(require 'guide-key)
- (setq guide-key/guide-key-sequence '("C-x r" "C-x 4" "C-c" "C-x l"))
+ (setq guide-key/guide-key-sequence '("C-x r" "C-x 4" "C-c" "C-x l" "<f9>"))
(setq guide-key/recursive-key-sequence-flag t)
(setq guide-key/idle-delay 3)
(guide-key-mode 1)
*** vc-git
#+BEGIN_SRC emacs-lisp
- ;;; * vc-git
(require 'vc-git)
(when (featurep 'vc-git) (add-to-list 'vc-handled-backends 'git))
*** ace-jump-mode
#+BEGIN_SRC emacs-lisp
- ;;; * ace-jump-mode
(require 'ace-jump-mode)
(define-key global-map (kbd "C-c C-@") 'ace-jump-mode)
*** org-mode
-run these commands to make org-protocol work in gnome:
+See [[http://orgmode.org/worg/org-tutorials/orgtutorial_dto.html][orgtutorial_dto]] for details.
+
+Run these commands to make org-protocol work in gnome:
#+BEGIN_SRC sh :eval no :tangle no
gconftool-2 -s /desktop/gnome/url-handlers/org-protocol/command '/usr/bin/emacsclient %s' --type String
;; (setq html (org-export-as-html 3 nil nil 1))
+
+
(global-set-key (kbd "C-c <f5>") '(lambda () (interactive) (find-file "~/org/notes.org")))
(global-set-key (kbd "C-c <f7>") '(lambda () (interactive) (find-file "~/org/private.org")))
("ads" . "http://adsabs.harvard.edu/cgi-bin/nph-abs_connect?author=%s&db_key=AST")
))
;; example: [[bmap:space needle]]
- ;; load git support
- ; (require 'egg)
- ;; (add-to-list 'load-path "~/.emacs.d/xemacs-packages/lisp/egg")
- ;; (load-library "egg")
-
-
;; taken from http://doc.norang.ca/org-mode.org :
#+BEGIN_SRC emacs-lisp
(load-library "tramp")
(setq default-tramp-method "sftp")
+#+END_SRC
- ;; with this you can do /sudo:ssh-host:file-on-ssh-host
- (add-to-list 'tramp-default-proxies-alist '(".*" "\`root\'" "/ssh:%h:"))
+With this you can do /sudo:ssh-host:file-on-ssh-host
+#+BEGIN_SRC emacs-lisp
+ (add-to-list 'tramp-default-proxies-alist '(".*" "\`root\'" "/ssh:%h:"))
#+END_SRC
*** [[http://www.twmode.sourceforge.net/][twitter]]
(global-set-key (kbd "<f3>") 'move-cursor-previous-pane)
(global-set-key (kbd "<f4>") 'move-cursor-next-pane)
#+END_SRC
-*** other stuff
+*** [[https://github.com/dotemacs/ipcalc.el][ipcalc]]
#+BEGIN_SRC emacs-lisp
- ;;; * Specify printing format
- (setq ps-paper-type 'a4)
-
- ;;; * Set ispell dictionary
- (setq ispell-dictionary "english")
-
- ;;; * Set Shell for M-| command
- (setq shell-file-name "/bin/bash")
-
- ;;; * Set Shell used by TeX
- (setq tex-shell-file-name "/bin/bash")
-
- ;;; * Set grep command options
- (setq grep-command "grep -i -nH -e ")
-
- ;;; * Confirm quit
- (setq confirm-kill-emacs 'yes-or-no-p)
-
- ;;; * Ignore case when completing file names
- (setq read-file-name-completion-ignore-case t)
-
- ;;; * Highlight parenthesis pairs
- (show-paren-mode 1)
-
- ;;; * Blinking parenthesis
- (setq blink-matching-paren-distance nil)
-
- ;;; * Highlight text between parens
- (setq show-paren-style 'expression)
-
- ;;; * Use buffer nane as frame title
- (setq frame-title-format "%b - emacs")
-
- ;;; * Completion in mini-buffer
- (icomplete-mode t)
+ (require 'ipcalc)
- ;;; * Stack minibuffers
- (setq enable-recursive-minibuffers t)
+#+END_SRC
- ;;; * RecentFiles http://www.emacswiki.org/emacs/RecentFiles
- (require 'recentf)
- (recentf-mode 1)
- (setq recentf-max-menu-items 42)
- (global-set-key "\C-cr" 'recentf-open-files)
+*** [[http://www.emacswiki.org/emacs/RecentFiles][RecentFiles]]
- ;;; * ipcalc https://github.com/dotemacs/ipcalc.el
- (require 'ipcalc)
+#+BEGIN_SRC emacs-lisp
+ (require 'recentf)
+ (recentf-mode 1)
+ (setq recentf-max-menu-items 42)
+ (global-set-key "\C-cr" 'recentf-open-files)
+#+END_SRC
- ;;; * Some nice functions
- ;;(blink-matching-paren 1)
- ;;(paren-activate)
+*** insert-date function
+#+BEGIN_SRC emacs-lisp
(defun insert-date ()
"Insert the current date"
(interactive)
(interactive)
(insert-string (format-time-string "%a %b %e %Y") " " (or (and (boundp 'user-full-name) user-full-name) (user-full-name))" <" (getenv "EMAIL") ">" ))
- ;; eshell-here: Thanks to Howard Abrahams:
- ;; http://www.howardism.org/Technical/Emacs/eshell-fun.html
- ;;
- ;; modified because current version lacks function have window-total-height.
+#+END_SRC
+
+*** [[http://www.howardism.org/Technical/Emacs/eshell-fun.html][eshell-here]]
+Thanks to Howard Abrahams.
+modified because current version lacks function have
+window-total-height.
+#+BEGIN_SRC emacs-lisp
(defun eshell-here ()
"Opens up a new shell in the directory associated with the
current buffer's file. The eshell is renamed to match that
(t
(apply 'eshell-exec-visual (cons "ssh" args))))))
+#+END_SRC
+
+*** goto-match-paren
+#+BEGIN_SRC emacs-lisp
(defun goto-match-paren (arg)
"Go to the matching parenthesis if on parenthesis, otherwise insert %.
vi style of % jumping to matching brace."
(t (self-insert-command (or arg 1)))))
(global-set-key "%" 'goto-match-paren)
- ;;(move-overlay hl-line-overlay
- ;; (line-beginning-position) (1+ (line-end-position))
- ;; (current-buffer)))))
-
- ;; (set-face-background-pixmap 'default "~/.emacs.d/xemacs-bg.xpm")
- (set-foreground-color "green")
- (set-background-color "black")
-
- ;; pos1: goto start of line, start of screen, start of buffer
- ;; end: goto end of line, end of screen, end of buffer
-
- (global-set-key '[(home)] 'chb-home)
- (global-set-key '[(end)] 'chb-end)
- ;;
- (defun chb-home ()
- (interactive)
- (setq zmacs-region-stays t)
- (if (not (bolp))
- (beginning-of-line)
- (if (eq this-command last-command)
- (cond
- ((not (= (point) (window-start)))
- (move-to-window-line 0)
- (beginning-of-line))
- (t
- (goto-char (point-min)))))))
-
- (defun chb-end ()
- (interactive)
- (setq zmacs-region-stays t)
- (if (not (eolp))
- (end-of-line)
- (if (eq this-command last-command)
- (cond
- ((not (= (point) (save-excursion
- (move-to-window-line -1)
- (end-of-line)
- (point))))
- (move-to-window-line -1)
- (end-of-line))
- (t
- (goto-char (point-max)))))))
-
-
-
-
- ;; safe files with #! in first line as user executable
-
- (add-hook `after-safe-hook
- #'(lambda ()
- (and (save-excursion
- (save-restriction
- (widen)
- (goto-char (point-min))
- (save-match-data
- (looking-at "^#!"))))
- (not (file-executable-p buffer-file-name))
- (shell-command (concat "chmod u+x " buffer-file-name))
- (message
- (concat "Saved as script: " buffer-file-name)))))
-
- ;;
- ;; list of recently opened files
- ;;
-
- ;; (load "recent-files")
- ;; (setq recent-files-dont-include
- ;; '("~$" "tmp/." "INBOX" ".bbdb" ".newsrc." ))
-
- ;; (setq recent-files-non-permanent-submenu t)
- ;; (setq recent-files-commands-submenu t)
- ;; (setq recent-files-number-of-entries 30)
- ;; (recent-files-initialize)
-
+#+END_SRC
- ;; (add-hook 'find-file-hooks 'fume-setup-buffer)
- ;; (add-hook 'Manual-mode-hook 'turn-on-fume-mode)
+*** safe hash bang files executable
+safe files with #! in first line as user executable.
- ;; (function-menu USE-MENUBAR RETURN-ONLY MENU-ITEM-FUNCTION)
+#+BEGIN_SRC emacs-lisp
+ (add-hook `after-safe-hook
+ #'(lambda ()
+ (and (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (save-match-data
+ (looking-at "^#!"))))
+ (not (file-executable-p buffer-file-name))
+ (shell-command (concat "chmod u+x " buffer-file-name))
+ (message
+ (concat "Saved as script: " buffer-file-name)))))
- ;;====================================================================
- ;;The Following Code Will Enable Me To Use The "Fume" Package Which
- ;;Creates, On The Menubar, A "Functions" Menu Containing The List Of
- ;;All The Functions In The Buffer Being Currently Displayed.
- ;;====================================================================
- ;;
- ;;Setq-Default Set The Default Value Of A Var. This Def. Val. Is Seen
- ;;In Buffers That *Don'T* Have Their Own Values For The Variable.
-
- ;(require function-menu)
- ;(Define-Key Global-Map 'F8 'Function-Menu)
- ;(Add-Hook 'Find-File-Hooks 'Fume-Add-Menubar-Entry)
- ;(Define-Key Global-Map "\C-Cl" 'Fume-List-Functions)
- ;(Define-Key Global-Map "\C-Cg" 'Fume-Prompt-Function-Goto)
- ;(Define-Key Global-Map '(Shift Button3) 'Mouse-Function-Menu)
- ;(Define-Key Global-Map '(Meta Button1) 'Fume-Mouse-Function-Goto)
-
- ;(Add-Hook
- ; 'Find-File-Hooks
- ; (Function
- ; (Lambda()
- ; (If (And (String-Match "Xemacs" Emacs-Version)
- ; (Boundp 'Emacs-Major-Version)
- ; (Or (= Emacs-Major-Version 20)
- ; (And
- ; (= Emacs-Major-Version 19)
- ; (>= Emacs-Minor-Version 13)))
- ; (Not (Eq Major-Mode 'Latex-Mode)))
- ; (Fume-Add-Menubar-Entry))
- ; )))
+#+END_SRC
+*** key bindings
+#+BEGIN_SRC emacs-lisp
(define-key global-map "\C-x\S-f" 'find-file-at-point)
(define-key global-map "\C-c\S-t" 'visit-tags-table)
(define-key bba/toggle "f" 'auto-fill-mode)
(define-key bba/toggle "p" 'smartparens-mode)
(define-key bba/toggle "s" 'flyspell-mode)
- ;; Toggle Whitespace mode on and off. Whitespace mode causes
- ;; all hard tabs to be highlighted. You can also configure it to highlight space characters
- ;; in a different color. There is also an untabify function to convert hard tabs to the
- ;; appropriate number of spaces, and a tabify function to convert groups of spaces to
- ;; hard tabs.
- (define-key bba/toggle "w" 'whitespace-mode)
+#+END_SRC
+Toggle Whitespace mode on and off. Whitespace mode causes all hard
+tabs to be highlighted. You can also configure it to highlight space
+characters in a different color. There is also an untabify function
+to convert hard tabs to the appropriate number of spaces, and a tabify
+function to convert groups of spaces to hard tabs.
+
+#+BEGIN_SRC emacs-lisp
+ (define-key bba/toggle "w" 'whitespace-mode)
(define-prefix-command 'bba/launcher)
(define-key global-map "\C-xl" 'bba/launcher)
(define-key global-map "\C-c\C-w" 'fixup-whitespace)
- (define-key global-map "\M-g\M-d" 'magit-diff-unstaged)
- (define-key global-map "\M-g\M-b" 'magit-branch-manager)
- (define-key global-map "\M-gb" 'magit-blame-mode)
- (define-key global-map "\C-cm" 'magit-status)
+ (define-key global-map "\M-g\M-d" 'magit-diff-unstaged)
+ (define-key global-map "\M-g\M-b" 'magit-branch-manager)
+ (define-key global-map "\M-gb" 'magit-blame-mode)
+ (define-key global-map "\C-cm" 'magit-status)
- (define-key global-map "\C-cw" (lambda ()
- (interactive)
- (let ((woman-use-topic-at-point t))
- (woman))))
- (define-key global-map "\C-c\M-d" 'diff-buffer-with-file)
+ (define-key global-map "\C-cw" (lambda ()
+ (interactive)
+ (let ((woman-use-topic-at-point t))
+ (woman))))
+ (define-key global-map "\C-c\M-d" 'diff-buffer-with-file)
- ;;; ** Use C-+ and C-- to adjust font size
+ ;;; ** Use C-+ and C-- to adjust font size
- (define-key global-map (kbd "C-+") 'text-scale-increase)
- (define-key global-map (kbd "C--") 'text-scale-decrease)
+ (define-key global-map (kbd "C-+") 'text-scale-increase)
+ (define-key global-map (kbd "C--") 'text-scale-decrease)
;; NUMBERIC KEYPAD. nice number pad conveniences as extra function keys
;; (global-set-key (kbd "<kp-9>") 'isearch-forward)
- (setq custom-file
- (expand-file-name "custom.el"
- (expand-file-name ".emacs.d" "~")))
- ;; (load-file user-init-file)
- (load-file custom-file)
-
#+END_SRC
-*** dns-mode
-
-#+BEGIN_SRC emacs-lisp
- (defun dns-rndc ()
- "Do rndc reload of current buffers filename."
- (interactive)
- (string-match "/\\([^/]*\\)$" buffer-file-name)
- (let* ((zonefile (match-string 1 buffer-file-name))
- )
- (if (y-or-n-p (format "rndc reload %s?" zonefile))
- (shell-command (concat "rndc reload " zonefile ) ) )
- )
-
- )
+*** configure some default values
+ [2014-10-02 Thu 00:27]
- (add-hook 'dns-mode-hook
- (lambda ()
- (define-key dns-mode-map "\C-c\C-r" 'dns-rndc)
- ))
+Specify printing format
+#+BEGIN_SRC emacs-lisp
+ (setq ps-paper-type 'a4)
#+END_SRC
-*** done
-
-Display greetings:
+Set ispell dictionary
#+BEGIN_SRC emacs-lisp
- (message "All done, %s!" (user-login-name) )
- (totd)
+ (setq ispell-dictionary "english")
#+END_SRC
- [2014-08-27 Wed 11:02]
-** old config
-
-#+BEGIN_SRC emacs-lisp :eval no :tangle no
-
- ;; seting the load-path for load-library:
- (setq load-path
- (append
- ;; (list (expand-file-name "/usr/local/lib/xemacs/xemacs-packages/lisp/"))
- (list (expand-file-name "~/.emacs.d/"))
- ;; (expand-file-name "/usr/share/emacs/lisp/")
- load-path))
-
- ;; Some general links regarding these configs:
- ;;
- ;; http://www.emacswiki.org/emacs/EmacsCrashCode
- ;; http://www.emacswiki.org/emacs/EmacsCrashTips
- ;; http://www.emacswiki.org/emacs/EmacsNiftyTricks
-
- ;; enable debugging if you run into problems regarding your config:
- ;;(setq debug-on-error t)
-
- ;;; * Emacs server
- (require 'server)
- (unless (server-running-p)
- (server-start))
-
- ;; define function to shutdown emacs server instance
- (defun server-shutdown ()
- "Save buffers, Quit, and Shutdown (kill) server"
- (interactive)
- (save-some-buffers)
- (shell-command "git --work-tree ~/org/ --git-dir ~/org/.git commit -a -m 'autocommit'")
- (shell-command "git --work-tree ~/org/ --git-dir ~/org/.git push origin")
- (setq twittering-cert-file nil )
-
- (kill-emacs)
- )
+Set shell for M-| command
- ;;; * http://www.emacswiki.org/emacs/ELPA
- (require 'package)
-
- (package-initialize)
-
- (setq tex-dvi-view-command "(f=*; pdflatex \"${f%.dvi}.tex\" && open \"${f%.dvi}.pdf\")")
- ;;(require 'rainbow-delimiters)
- ;;(global-rainbow-delimiters-mode)
-
- (require 'centered-cursor-mode)
-
- ;;; * load template support
- (require 'template)
- (template-initialize)
-
- ;; The file names are absolute, not relative, locations
- ;; - e.g. /foobar/mthesaur.txt.cache, not mthesaur.txt.cache
- (setq synonyms-file "~/.emacs.d/mthesaur.txt")
- (setq synonyms-cache-file "~/.emacs.d/mthesaur.txt.cache")
- (require 'synonyms)
- (define-key global-map (kbd "C-c ?") 'synonyms)
-
- ;; load yaml-mode
- ;; (require 'yaml-mode)
- ;; (add-to-list 'auto-mode-alist '("\\.yml$" . yaml-mode))
-
- (require 'htmlize )
-
- ;;; * vc-git
- (require 'vc-git)
- (when (featurep 'vc-git) (add-to-list 'vc-handled-backends 'git))
-
- ;;; * ace-jump-mode
- (require 'ace-jump-mode)
- (define-key global-map (kbd "C-c C-@") 'ace-jump-mode)
-
- ;;; * ido-mode
-
- (ido-mode t)
- (setq ido-enable-prefix nil
- ido-enable-flex-matching t
- ido-case-fold nil
- ido-auto-merge-work-directories-length -1
- ido-create-new-buffer 'always
- ido-use-filename-at-point nil
- ido-max- 10)
- ;; (require 'ido-vertical-mode)
- ;; (ido-vertical-mode)
-
- ;; (defun sd/ido-define-keys() ;; C-n/p is more intuitive in vertical layout
- ;; (define-key ido-completion-map (kbd "C-n") 'ido-next-match)
- ;; (define-key ido-completion-map (kbd "<down>") 'ido-next-match)
- ;; (define-key ido-completion-map (kbd "C-p") 'ido-prev-match)
- ;; (define-key ido-completion-map (kbd "<up>") 'ido-prev-match)
- ;; )
-
- ;;; * visual-regexp
+#+BEGIN_SRC emacs-lisp
+ (setq shell-file-name "/bin/bash")
+#+END_SRC
- (require 'visual-regexp)
- (define-key global-map (kbd "M-&") 'vr/query-replace)
- (define-key global-map (kbd "M-/") 'vr/replace)
+Set Shell used by TeX
- ;;; * load org mode
- ;; See http://orgmode.org/worg/org-tutorials/orgtutorial_dto.html for details
+#+BEGIN_SRC emacs-lisp
+ (setq tex-shell-file-name "/bin/bash")
+#+END_SRC
- (add-to-list 'load-path "~/.emacs.d/xemacs-packages/lisp/org-8.2.3c")
- (require 'org)
+Set grep command options
- ;; run these commands to make org-protocol work in gnome:
- ;; gconftool-2 -s /desktop/gnome/url-handlers/org-protocol/command '/usr/bin/emacsclient %s' --type String
- ;; gconftool-2 -s /desktop/gnome/url-handlers/org-protocol/enabled --type Boolean true
- ;;
- ;; this is how your firefox bookmark must look like:
- ;; javascript:location.href='org-protocol://capture:/l/'%20+%20encodeURIComponent(location.href)+'/'%20+%20encodeURIComponent(document.title)+%20'/'%20+%20encodeURIComponent(window.getSelection()%20)
+#+BEGIN_SRC emacs-lisp
+ (setq grep-command "grep -i -nH -e ")
+#+END_SRC
- (require 'org-protocol)
+Confirm quit to avoid hitting C-x C-c by accident.
- (if (eq system-type 'darwin)
- (require 'org-mac-protocol)
- )
+#+BEGIN_SRC emacs-lisp
+ (setq confirm-kill-emacs 'yes-or-no-p)
+#+END_SRC
- ;; (require 'org-install)
- (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
- (define-key global-map "\C-cl" 'org-store-link)
- (define-key global-map "\C-ca" 'org-agenda)
- (setq org-log-done t)
- (setq org-id-method (quote uuidgen))
- (setq org-agenda-files (list "~/org/work.org"
- "~/org/notes.org"
- "~/org/emacs.org"
- "~/org/private.org"
- "~/org/it.org"
- "~/org/refile.org"
- "~/org/workhours.org"
- ))
-
- ; Some initial languages we want org-babel to support
- (org-babel-do-load-languages
- 'org-babel-load-languages
- '(
- (sh . t)
- (python . t)
- (R . t)
- (ruby . t)
- (ditaa . t)
- (dot . t)
- (octave . t)
- (sqlite . t)
- (perl . t)
- ))
+Ignore case when completing file names
- (setq org-html-head "<style type=\"text/css\">
-body {
- background-color: #bbbbbb;
-} </style>")
+#+BEGIN_SRC emacs-lisp
+ (setq read-file-name-completion-ignore-case t)
+#+END_SRC
+Highlight parenthesis pairs
- body {
- background-color: #bbbbbb;
- color: #000000;
- margin: 0px;
- padding: 0px;
- height: 100%;
- }')
- ;;(setq org-html-preamble nil
- ;; org-html-postamble nil
- ;; org-html-head "")
+#+BEGIN_SRC emacs-lisp
+ (show-paren-mode 1)
+#+END_SRC
- ;; (setq org-html-preamble nil
- ;; org-html-postamble nil
- ;; org-html-include-default-style nil
- ;; org-html-head ""
- ;; org-export-html-with-timestamp nil
- ;; org-export-html-style "body-only"
- ;; )
- ;; body-only option ?
+Blinking parenthesis
- ;; (setq html (org-export-as-html 3 nil nil 1))
+#+BEGIN_SRC emacs-lisp
+ (setq blink-matching-paren-distance nil)
+#+END_SRC
- (global-set-key (kbd "C-c <f5>") '(lambda () (interactive) (find-file "~/org/notes.org")))
+Highlight text between parens
- (global-set-key (kbd "C-c <f6>") '(lambda () (interactive) (find-file "~/org/work.org")))
- (global-set-key (kbd "C-c <f7>") '(lambda () (interactive) (find-file "~/org/private.org")))
- (global-set-key (kbd "C-c <f8>") '(lambda () (interactive) (find-file "~/org/workhours.org")))
- (global-set-key (kbd "C-c <f9>") '(lambda () (interactive) (find-file "~/org/emacs.org")))
+#+BEGIN_SRC emacs-lisp
+ (setq show-paren-style 'expression)
+#+END_SRC
- ;; (setq org-clock-persist 'history)
- (org-clock-persistence-insinuate)
- (setq org-clock-persist t)
- (setq org-default-notes-file (concat org-directory "/refile.org"))
- (define-key global-map "\C-cc" 'org-capture)
+Use buffer nane as frame title
- (setq org-capture-templates
+#+BEGIN_SRC emacs-lisp
+ (setq frame-title-format "%b - emacs")
+#+END_SRC
- '(("t" "todo" entry (file+headline "~/org/refile.org" "Tasks")
- "* TODO %?\n%U\n
+Completion in mini-buffer
- %i\n
- %a")
+#+BEGIN_SRC emacs-lisp
+ (icomplete-mode t)
+#+END_SRC
- ("m" "Meeting" entry (file "~/git/org/refile.org")
- "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
- ("n" "note" entry (file+headline "~/org/refile.org" "Note")
- "* NOTE %?\n%U\n
+Stack minibuffers
- %i\n
- %a")
+#+BEGIN_SRC emacs-lisp
+ (setq enable-recursive-minibuffers t)
+#+END_SRC
- ("j" "Journal" entry (file+datetree "~/git/org/diary.org")
- "* %?\n%U\n" :clock-in t :clock-resume t)
+Some nice functions
- ("l" "Links (it)" entry (file+headline "~/org/refile.org" "Links")
- "** %c\n\n %u\n %i"
- :empty-lines 1)
+#+BEGIN_SRC emacs-lisp
+ ;;(blink-matching-paren 1)
+ ;;(paren-activate)
+#+END_SRC
- ))
- (setq org-link-abbrev-alist '(
- ("bing" . "http://www.bing.com/search?q=%sform=OSDSRC")
- ("cpan" . "http://search.cpan.org/search?query=%s&mode=all")
- ("google" . "http://www.google.com/search?q=")
- ("gmap" . "http://maps.google.com/maps?q=%s")
- ("omap" . "http://nominatim.openstreetmap.org/search?q=%s&polygon=1")
- ("bmap" . "http://www.bing.com/maps/default.aspx?q=%s&mkt=en&FORM=HDRSC4")
- ("wiki" . "http://en.wikipedia.org/wiki/")
- ("rfc" . "http://tools.ietf.org/rfc/rfc%s.txt")
- ("ads" . "http://adsabs.harvard.edu/cgi-bin/nph-abs_connect?author=%s&db_key=AST")
- ))
- ;; example: [[bmap:space needle]]
- ;; load git support
- ; (require 'egg)
- ;; (add-to-list 'load-path "~/.emacs.d/xemacs-packages/lisp/egg")
- ;; (load-library "egg")
+*** other stuff
+#+BEGIN_SRC emacs-lisp
+ ;;(move-overlay hl-line-overlay
+ ;; (line-beginning-position) (1+ (line-end-position))
+ ;; (current-buffer)))))
+ ;; (set-face-background-pixmap 'default "~/.emacs.d/xemacs-bg.xpm")
+ (set-foreground-color "green")
+ (set-background-color "black")
- ;; taken from http://doc.norang.ca/org-mode.org :
+ ;; pos1: goto start of line, start of screen, start of buffer
+ ;; end: goto end of line, end of screen, end of buffer
+ (global-set-key '[(home)] 'chb-home)
+ (global-set-key '[(end)] 'chb-end)
;;
- ;; Resume clocking task when emacs is restarted
- (org-clock-persistence-insinuate)
- ;;
- ;; Show lot of clocking history so it's easy to pick items off the C-F11 list
- (setq org-clock-history-length 23)
- ;; Resume clocking task on clock-in if the clock is open
- (setq org-clock-in-resume t)
- ;; Change tasks to NEXT when clocking in
- (setq org-clock-in-switch-to-state 'bh/clock-in-to-next)
- ;; Separate drawers for clocking and logs
- (setq org-drawers (quote ("PROPERTIES" "LOGBOOK")))
- ;; Save clock data and state changes and notes in the LOGBOOK drawer
- (setq org-clock-into-drawer t)
- ;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration
- (setq org-clock-out-remove-zero-time-clocks t)
- ;; Clock out when moving task to a done state
- (setq org-clock-out-when-done t)
- ;; Save the running clock and all clock history when exiting Emacs, load it on startup
- (setq org-clock-persist t)
- ;; Do not prompt to resume an active clock
- (setq org-clock-persist-query-resume nil)
- ;; Enable auto clock resolution for finding open clocks
- (setq org-clock-auto-clock-resolution (quote when-no-clock-is-running))
- ;; Include current clocking task in clock reports
- (setq org-clock-report-include-clocking-task t)
- (setq org-time-clocksum-format
- '(:hours "%d" :require-hours t :minutes ":%02d" :require-minutes t))
- (setq bh/keep-clock-running nil)
-
- (defun bh/clock-in-to-next (kw)
- "Switch a task from TODO to NEXT when clocking in.
- Skips capture tasks, projects, and subprojects.
- Switch projects and subprojects from NEXT back to TODO"
- (when (not (and (boundp 'org-capture-mode) org-capture-mode))
- (cond
- ((and (member (org-get-todo-state) (list "TODO"))
- (bh/is-task-p))
- "NEXT")
- ((and (member (org-get-todo-state) (list "NEXT"))
- (bh/is-project-p))
- "TODO"))))
-
- (defun bh/find-project-task ()
- "Move point to the parent (project) task if any"
- (save-restriction
- (widen)
- (let ((parent-task (save-excursion (org-back-to-heading 'invisible-ok) (point))))
- (while (org-up-heading-safe)
- (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
- (setq parent-task (point))))
- (goto-char parent-task)
- parent-task)))
-
- (defun bh/punch-in (arg)
- "Start continuous clocking and set the default task to the
- selected task. If no task is selected set the Organization task
- as the default task."
- (interactive "p")
- (setq bh/keep-clock-running t)
- (if (equal major-mode 'org-agenda-mode)
- ;;
- ;; We're in the agenda
- ;;
- (let* ((marker (org-get-at-bol 'org-hd-marker))
- (tags (org-with-point-at marker (org-get-tags-at))))
- (if (and (eq arg 4) tags)
- (org-agenda-clock-in '(16))
- (bh/clock-in-organization-task-as-default)))
- ;;
- ;; We are not in the agenda
- ;;
- (save-restriction
- (widen)
- ; Find the tags on the current task
- (if (and (equal major-mode 'org-mode) (not (org-before-first-heading-p)) (eq arg 4))
- (org-clock-in '(16))
- (bh/clock-in-organization-task-as-default)))))
-
- (defun bh/punch-out ()
- (interactive)
- (setq bh/keep-clock-running nil)
- (when (org-clock-is-active)
- (org-clock-out))
- (org-agenda-remove-restriction-lock))
-
- (defun bh/clock-in-default-task ()
- (save-excursion
- (org-with-point-at org-clock-default-task
- (org-clock-in))))
-
- (defun bh/clock-in-parent-task ()
- "Move point to the parent (project) task if any and clock in"
- (let ((parent-task))
- (save-excursion
- (save-restriction
- (widen)
- (while (and (not parent-task) (org-up-heading-safe))
- (when (member (nth 2 (org-heading-components)) org-todo-keywords-1)
- (setq parent-task (point))))
- (if parent-task
- (org-with-point-at parent-task
- (org-clock-in))
- (when bh/keep-clock-running
- (bh/clock-in-default-task)))))))
-
- ;; (defvar bh/organization-task-id "eb155a82-92b2-4f25-a3c6-0304591af2f9")
- (defvar bh/organization-task-id "20140625-424242-424242")
-
- (defun bh/clock-in-organization-task-as-default ()
- (interactive)
- (org-with-point-at (org-id-find bh/organization-task-id 'marker)
- (org-clock-in '(16))))
+ (defun chb-home ()
+ (interactive)
+ (setq zmacs-region-stays t)
+ (if (not (bolp))
+ (beginning-of-line)
+ (if (eq this-command last-command)
+ (cond
+ ((not (= (point) (window-start)))
+ (move-to-window-line 0)
+ (beginning-of-line))
+ (t
+ (goto-char (point-min)))))))
- (defun bh/clock-out-maybe ()
- (when (and bh/keep-clock-running
- (not org-clock-clocking-in)
- (marker-buffer org-clock-default-task)
- (not org-clock-resolving-clocks-due-to-idleness))
- (bh/clock-in-parent-task)))
+ (defun chb-end ()
+ (interactive)
+ (setq zmacs-region-stays t)
+ (if (not (eolp))
+ (end-of-line)
+ (if (eq this-command last-command)
+ (cond
+ ((not (= (point) (save-excursion
+ (move-to-window-line -1)
+ (end-of-line)
+ (point))))
+ (move-to-window-line -1)
+ (end-of-line))
+ (t
+ (goto-char (point-max)))))))
- (add-hook 'org-clock-out-hook 'bh/clock-out-maybe 'append)
- (defvar bh/insert-inactive-timestamp t)
- (defun bh/toggle-insert-inactive-timestamp ()
- (interactive)
- (setq bh/insert-inactive-timestamp (not bh/insert-inactive-timestamp))
- (message "Heading timestamps are %s" (if bh/insert-inactive-timestamp "ON" "OFF")))
-
- (defun bh/insert-inactive-timestamp ()
- (interactive)
- (org-insert-time-stamp nil t t nil nil nil))
+#+END_SRC
- (defun bh/insert-heading-inactive-timestamp ()
- (save-excursion
- (when bh/insert-inactive-timestamp
- (org-return)
- (org-cycle)
- (bh/insert-inactive-timestamp))))
+*** load custom file
+ [2014-10-02 Thu 00:37]
- (add-hook 'org-insert-heading-hook 'bh/insert-heading-inactive-timestamp 'append)
+#+BEGIN_SRC emacs-lisp
+ (setq custom-file
+ (expand-file-name "custom.el"
+ (expand-file-name ".emacs.d" "~")))
+ ;; (load-file user-init-file)
+ (load-file custom-file)
- ; Targets include this file and any file contributing to the agenda - up to 9 levels deep
- (setq org-refile-targets (quote ((nil :maxlevel . 9)
- (org-agenda-files :maxlevel . 9))))
+#+END_SRC
+*** dns-mode
- ; Use full outline paths for refile targets - we file directly with IDO
- (setq org-refile-use-outline-path t)
+#+BEGIN_SRC emacs-lisp
+ (defun dns-rndc ()
+ "Do rndc reload of current buffers filename."
+ (interactive)
+ (string-match "/\\([^/]*\\)$" buffer-file-name)
+ (let* ((zonefile (match-string 1 buffer-file-name))
+ )
+ (if (y-or-n-p (format "rndc reload %s?" zonefile))
+ (shell-command (concat "rndc reload " zonefile ) ) )
+ )
- ; Targets complete directly with IDO
- (setq org-outline-path-complete-in-steps nil)
+ )
- ; Allow refile to create parent tasks with confirmation
- (setq org-refile-allow-creating-parent-nodes (quote confirm))
+ (add-hook 'dns-mode-hook
+ (lambda ()
+ (define-key dns-mode-map "\C-c\C-r" 'dns-rndc)
+ ))
- ; Use IDO for both buffer and file completion and ido-everywhere to t
- (setq org-completion-use-ido t)
- (setq ido-everywhere t)
- (setq ido-max-directory-size 100000)
- (ido-mode (quote both))
- ; Use the current window when visiting files and buffers with ido
- (setq ido-default-file-method 'selected-window)
- (setq ido-default-buffer-method 'selected-window)
- ; Use the current window for indirect buffer display
- (setq org-indirect-buffer-display 'current-window)
+#+END_SRC
- ;;;; Refile settings
- ; Exclude DONE state tasks from refile targets
- (defun bh/verify-refile-target ()
- "Exclude todo keywords with a done state from refile targets"
- (not (member (nth 2 (org-heading-components)) org-done-keywords)))
+*** done
- (setq org-refile-target-verify-function 'bh/verify-refile-target)
+Display greetings:
+#+BEGIN_SRC emacs-lisp
+ (message "All done, %s!" (user-login-name) )
+ (totd)
+#+END_SRC
- (global-set-key (kbd "<f12>") 'org-agenda)
- (global-set-key (kbd "<f9> c") 'calendar)
- (global-set-key (kbd "<f9> I") 'bh/punch-in)
- (global-set-key (kbd "<f9> O") 'bh/punch-out)
- (global-set-key (kbd "<f9> t") 'bh/insert-inactive-timestamp)
- (global-set-key (kbd "<f9> T") 'bh/toggle-insert-inactive-timestamp)
- (global-set-key (kbd "C-<f9>") 'previous-buffer)
- (global-set-key (kbd "C-<f10>") 'next-buffer)
- (global-set-key (kbd "<f11>") 'org-clock-goto)
- (global-set-key (kbd "C-<f11>") 'org-clock-in)
+ [2014-08-27 Wed 11:02]
+** old config
+#+BEGIN_SRC emacs-lisp :eval no :tangle no
- ;;
- ;;; * cfengine
- (load-library "cfengine")
- ;;; * enable mouse-wheel
- (load-library "mwheel")
- (mwheel-install)
- ;; (load-library "todo-mode")
+ (setq org-html-head "<style type=\"text/css\">
+body {
+ background-color: #bbbbbb;
+} </style>")
- ;;; * tramp
- (load-library "tramp")
- (setq default-tramp-method "sftp")
- ;; with this you can do /sudo:ssh-host:file-on-ssh-host
- (add-to-list 'tramp-default-proxies-alist '(".*" "\`root\'" "/ssh:%h:"))
+ body {
+ background-color: #bbbbbb;
+ color: #000000;
+ margin: 0px;
+ padding: 0px;
+ height: 100%;
+ }')
- ;;; * twitter http://www.twmode.sourceforge.net/
- (add-to-list 'load-path "~/.emacs.d/xemacs-packages/lisp/twittering-mode-3.0.0")
- (require 'twittering-mode)
- (cond
- ((string-equal system-type "gnu/linux")
- (progn
- (setq twittering-cert-file "/etc/ssl/certs/ca-bundle.crt") )
- )
- )
- (setq twittering-use-master-password t)
;;; * Big Brother Database
;; (require 'bbdb)
;; (bbdb-initialize)
- ;;; * Malyon
- ;; http://www.emacswiki.org/emacs/MalyonMode
-
- (require 'malyon)
-
- ;;; * TemplateToolkit
-
- (add-to-list 'auto-mode-alist '("\\.tt2$" . html-mode))
-
- ;;; * AucTex:
-
- (setq TeX-auto-save t)
- (setq TeX-parse-self t)
- (setq-default TeX-master nil)
-
- ;;; * EPG/GPG:
-
- ;; Do not use gpg agent when runing in terminal
- (defadvice epg--start (around advice-epg-disable-agent activate)
- (let ((agent (getenv "GPG_AGENT_INFO")))
- (when (not (display-graphic-p))
- (setenv "GPG_AGENT_INFO" nil))
- ad-do-it
- (when (not (display-graphic-p))
- (setenv "GPG_AGENT_INFO" agent))))
-
- ;; (defadvice epg--start (around advice-epg-disable-agent disable)
- ;; "Don't allow epg--start to use gpg-agent in plain text terminals."
- ;; (if (display-graphic-p)
- ;; ad-do-it
- ;; (let ((agent (getenv "GPG_AGENT_INFO")))
- ;; (setenv "GPG_AGENT_INFO" nil) ; give us a usable text password prompt
- ;; ad-do-it
- ;; (setenv "GPG_AGENT_INFO" agent))))
- ;; (ad-enable-advice 'epg--start 'around 'advice-epg-disable-agent)
- ;; (ad-activate 'epg--start)
-
- ;;; * Perl
-
- ;; load cperl-mode for perl files
- (require 'cperl-mode)
- (fset 'perl-mode 'cperl-mode)
-
- (eval-after-load "cperl-mode"
- '(add-hook 'cperl-mode-hook (lambda() (cperl-set-style "GNU"))))
-
;;; * auto-completion
- (require 'auto-complete-config)
- (add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
- (add-to-list 'ac-dictionary "~/.dict")
- (ac-config-default)
- (add-to-list 'ac-modes 'cfengine3-mode)
- (add-to-list 'ac-modes 'dns-mode)
-
-
- ;;; * syntax-highlighting
- (font-lock-mode)
- (global-font-lock-mode 1)
-
- ;;; * Display Line Number and Col Number in mode-line
- (column-number-mode t)
- (line-number-mode t)
-
- ;;; * Display time / email in mode-line
- (setq display-time-24hr-format t)
- (display-time)
-
- ;;; * No menubar
- (menu-bar-mode -1)
-
- ;;; * No toolbar
- (if window-system
- (tool-bar-mode -1)
- )
-
- ;;; * Specify printing format
- (setq ps-paper-type 'a4)
-
- ;;; * Set ispell dictionary
- (setq ispell-dictionary "english")
-
- ;;; * Set Shell for M-| command
- (setq shell-file-name "/bin/bash")
-
- ;;; * Set Shell used by TeX
- (setq tex-shell-file-name "/bin/bash")
-
- ;;; * Set grep command options
- (setq grep-command "grep -i -nH -e ")
-
- ;;; * Confirm quit
- (setq confirm-kill-emacs 'yes-or-no-p)
-
- ;;; * Quick file access with bar
- ;; (speedbar t)
-
- ;;; * Ignore case when completing file names
- (setq read-file-name-completion-ignore-case t)
-
- ;;; * Highlight parenthesis pairs
- (show-paren-mode 1)
-
- ;;; * Blinking parenthesis
- (setq blink-matching-paren-distance nil)
-
- ;;; * Highlight text between parens
- (setq show-paren-style 'expression)
-
- ;;; * Use buffer nane as frame title
- (setq frame-title-format "%b - emacs")
-
- ;;; * Completion in mini-buffer
- (icomplete-mode t)
-
- ;;; * Stack minibuffers
- (setq enable-recursive-minibuffers t)
-
- ;;; * RecentFiles http://www.emacswiki.org/emacs/RecentFiles
- (require 'recentf)
- (recentf-mode 1)
- (setq recentf-max-menu-items 42)
- (global-set-key "\C-cr" 'recentf-open-files)
-
- ;;; * ipcalc https://github.com/dotemacs/ipcalc.el
- (require 'ipcalc)
-
- ;;; * Some nice functions
- ;;(blink-matching-paren 1)
- ;;(paren-activate)
- (defun insert-date ()
- "Insert the current date"
- (interactive)
- (insert-string (format-time-string "%B %e, %Y")))
- (defun insert-timestamp ()
- "Insert the current timestamp"
- (interactive)
- (insert-string (format-time-string "%a %b %e %Y") " " (or (and (boundp 'user-full-name) user-full-name) (user-full-name))" <" (getenv "EMAIL") ">" ))
-
- ;; eshell-here: Thanks to Howard Abrahams:
- ;; http://www.howardism.org/Technical/Emacs/eshell-fun.html
- ;;
- ;; modified because current version lacks function have window-total-height.
-
- (defun eshell-here ()
- "Opens up a new shell in the directory associated with the
- current buffer's file. The eshell is renamed to match that
- directory to make multiple eshell windows easier."
- (interactive)
- (let* ((parent (if (buffer-file-name)
- (file-name-directory (buffer-file-name))
- default-directory))
- ;; (height (/ (window-total-height) 3))
- (name (car (last (split-string parent "/" t)))))
- ;; (split-window-vertically (- height))
- (split-window-vertically '-10)
- (other-window 1)
- (eshell "new")
- (rename-buffer (concat "*eshell: " name "*"))
-
- (insert (concat "ls"))
- (eshell-send-input)))
-
- (define-key global-map "\C-c!" 'eshell-here)
-
- (defun eshell/x ()
- (insert "exit")
- (eshell-send-input)
- (delete-window))
-
- ;; post-commit and post-merge hook for git:
- ;; #!/bin/bash
- ;; rm .git/etags
- ;; find ${PWD} -type f -regex ".*\(\.cf\|_pl\.dat\|_conf.dat\)" | xargs etags --append --output=.git/etags
- ;; set link for emacs:
- ;; ln -s ~/.cfagent/inputs/../.git/etags ~/.cfengine_tags
-
- (defun load-git-cfengine ()
- "Load config and tags file of git cfengine repo"
- (interactive) (visit-tags-table "~/.cfengine_tags")
- (interactive) (find-file "~/.cfagent/inputs/config.cf")
- )
-
- ;; cfe-config-adduser-ldap runs ldapsearch with cn=user to fill some values.
-
- (defun cfe-config-adduser-ldap ( user )
- "Insert usertemplate based on ldap information for config.cf"
- (interactive "sUser: ")
- (insert " \"users[" user "][login]\" string => \"" user "\";
- \"users[" user "][fullname]\" string => \"" (substring ( shell-command-to-string (concat "ldapse " user " givenName ")) 0 -1) " " (substring ( shell-command-to-string (concat "ldapse " user " sn ")) 0 -1) "\";
- \"users[" user "][uid]\" string => \"" (substring ( shell-command-to-string (concat "ldapse " user " uidNumber")) 0 -1) "\";
- \"users[" user "][gid]\" string => \"" (substring ( shell-command-to-string (concat "ldapse " user " uidNumber")) 0 -1)"\";
- \"users[" user "][group]\" string => \"" user "\";
- \"users[" user "][groups]\" string => \"adm,apache,games\";
- \"users[" user "][home]\" string => \"/home/" user "\";
- \"users[" user "][shell]\" string => \"/bin/bash\";
- \"users[" user "][flags]\" string => \"-m\";
- \"users[" user "][authorized_keys][0]\" string => \"\";" )
-
- )
-
- (defun cfe-config-adduser ( user )
- "Insert usertemplate for config.cf"
- (interactive "sUser: ")
- (insert " \"users[" user "][login]\" string => \"" user "\";
- \"users[" user "][fullname]\" string => \"\";
- \"users[" user "][uid]\" string => \"\";
- \"users[" user "][gid]\" string => \"\";
- \"users[" user "][group]\" string => \"" user "\";
- \"users[" user "][groups]\" string => \"" user "\";
- \"users[" user "][home]\" string => \"/home/" user "\";
- \"users[" user "][shell]\" string => \"/bin/bash\";
- \"users[" user "][flags]\" string => \"-m\";
- \"users[" user "][authorized_keys][0]\" string => \"\";" )
-
- )
-
- (defun cfe-insert-bundle ( name )
- "Insert bundletemplate"
- (interactive "sBundle: ")
- (insert "#=head2 bundle " name "
- #
- #
- #
- #=cut
- #
-
- bundle " name "
- {
- vars:
-
- files:
-
- methods:
-
- classes:
-
- }")
- )
-
- (add-hook 'cfengine3-mode-hook
- (lambda ()
- (define-key cfengine3-mode-map "\C-cb" 'cfe-insert-bundle)
- (define-key cfengine3-mode-map "\C-cu" 'cfe-config-adduser-ldap)
- (define-key cfengine3-mode-map "\C-c\C-c" 'compile)
- ))
-
- (add-hook 'org-mode-hook
- (lambda ()
- (auto-fill-mode)
- ))
-
- (add-hook 'latex-mode-hook
- (lambda ()
- (auto-fill-mode)
- ))
-
-
- (defun dns-rndc ()
- "Do rndc reload of current buffers filename."
- (interactive)
- (string-match "/\\([^/]*\\)$" buffer-file-name)
- (let* ((zonefile (match-string 1 buffer-file-name))
- )
- (if (y-or-n-p (format "rndc reload %s?" zonefile))
- (shell-command (concat "rndc reload " zonefile ) ) )
- )
-
- )
-
- (add-hook 'dns-mode-hook
- (lambda ()
- (define-key dns-mode-map "\C-c\C-r" 'dns-rndc)
- ))
-
- ;; (defun cfe-lookup-docs ()
- ;; "Search current word from buffer in online docs."
- ;; (interactive)
- ;; (save-excursion
- ;; (skip-syntax-backward "w_")
- ;; (w3m-browse-url (lambda ()
- ;; (skip-syntax-forward "w_")
- ;; (point)
- ;; )
- ;; )))
-
-
-
- (defun eshell/ssh (&rest args)
- "Secure shell"
- (let ((cmd (eshell-flatten-and-stringify
- (cons "ssh" args)))
- (display-type (framep (selected-frame))))
- (cond
- ((and
- (eq display-type 't)
- (getenv "STY"))
- (send-string-to-terminal (format "\033]83;screen %s\007" cmd)))
- ((eq display-type 'x)
- (eshell-do-eval
- (eshell-parse-command
- (format "rxvt -e %s &" cmd)))
- nil)
- (t
- (apply 'eshell-exec-visual (cons "ssh" args))))))
-
- (defun goto-match-paren (arg)
- "Go to the matching parenthesis if on parenthesis, otherwise insert %.
- vi style of % jumping to matching brace."
- (interactive "p")
- (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
- ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
- (t (self-insert-command (or arg 1)))))
- (global-set-key "%" 'goto-match-paren)
-
;;(move-overlay hl-line-overlay
;; (line-beginning-position) (1+ (line-end-position))
;; (current-buffer)))))
projects / emacsconfig.git / commitdiff