Некромантия Ultr`ы
(defalias 'cal 'calendar) (defalias 'tag 'org-set-tags-command)Похоже на какую-то vim-ересь?)) Но набор короткого алиаса по количеству нажатий практически равноценен запуску команды с помощью дефолтной многокнопочной комбинации, а вот с точки зрения мнемоники явно удобнее.
;;; Org Mode
;; GNU Emacs 24.3.1
(add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
;; старт в org-mode дя файлов *.org *.txt
(require 'org)
(setq org-tag-alist '(
("cfg" . ?c)
("notes" . ?n)
("quick" . ?q)))
;; predefined tags
;;;
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
(global-set-key (kbd "") 'org-agenda)
(global-set-key (kbd "") 'org-cycle-agenda-files)
(global-set-key (kbd "") 'keyboard-quit)
(global-set-key (kbd "\C-z") 'undo)
;; а вот и Ctrl+Z
(load-theme 'zenburn t)
(windmove-default-keybindings 'meta)
;; теперь навигация будет проходить следущим образом: alt+arrow keys
(fset 'yes-or-no-p 'y-or-n-p)
;; замена "yes" на "y" и т. д.
(desktop-save-mode t)
;; сохранять сессию
(custom-set-variables
'(delete-selection-mode nil)
'(mark-even-if-inactive t)
'(org-agenda-files (quote ("~/path/to/file.org")))
'(scroll-bar-mode nil)
;; disable scrollbar
'(show-paren-mode t)
'(transient-mark-mode 1))
(custom-set-faces
'(default ((t (:family "Droid Sans" :height 150)))))
;; дефолтный шрифт Droid Sans 15
(kill-buffer "*scratch*")
Следующие Предыдущие Главная страница