;; Libraries
(require 'cl)
;;; Variables
(defvar aka-init-dir "/home/aka/.emacs.d/")
;;; Utility Functions
(defun aka-qualify (relative-path)
(concat aka-init-dir relative-path))
;;; Main Procedure
(cond ((and (equal system-configuration "mipsel-unknown-linux-gnu")
(equal emacs-version "23.1.1"))
(load (aka-qualify "init-adhoc")))
(t (load (aka-qualify "init-general"))))
~/jail/usr/local/share/emacs/site-lisp ~/jail/usr/local/share/emacs/<version-number>/site-lisp
/usr/local/share/emacs/site-lisp /usr/local/share/emacs/<version-number>/site-lisp
(add-to-list 'load-path "/home/aka/jail/usr/local/share/emacs/site-lisp/org-6.36c/lisp") (add-to-list 'Info-additional-directory-list "/home/aka/jail/usr/local/share/emacs/site-lisp/org-6.36c/doc")
(require 'auto-complete)
(require 'yasnippet)
(defun ac-yasnippet-candidate ()
(let ((table (yas/get-snippet-tables major-mode)))
(if table
(let (candidates (list))
(mapcar (lambda (mode)
(maphash (lambda (key value)
(push key candidates))
(yas/snippet-table-hash mode)))
table)
(all-completions ac-prefix candidates)))))
(defface ac-yasnippet-candidate-face
'((t (:background "sandybrown" :foreground "black")))
"Face for yasnippet candidate.")
(defface ac-yasnippet-selection-face
'((t (:background "coral3" :foreground "white")))
"Face for the yasnippet selected candidate.")
(defvar ac-source-yasnippet
'((candidates . ac-yasnippet-candidate)
(action . yas/expand)
(limit . 3)
(candidate-face . ac-yasnippet-candidate-face)
(selection-face . ac-yasnippet-selection-face))
"Source for Yasnippet.")
(provide 'auto-complete-yasnippet)
auto-complete-yasnippet.elとして、jail/usr/local/share/emacs/site-lisp/に配置。
(global-set-key (kbd "<S-tab>") 'bbdb-complete-name)
;; simple C-x ( ... C-x ) ;; recursive C-x ( ... C-u C-x q ... C-M-c ... C-x )
;; simple C-x e C-u 10 C-x e ;; recursive C-x ( ... ; recursive edit C-M-c C-x )
C-x C-k e [select a macro] ... C-c C-c
C-x C-k C-p ; kmacro-cycle-ring-previous C-x C-k C-n ; kmacro-cycle-ring-next C-x C-k C-t ; kmacro-swap-ring C-x C-k C-d ; kmacro-delete-ring-head
;; Naming C-x C-k n [name] ;; Executing it M-x name
;; open an elisp file M-x insert-kbd-macro Enter macroname Enterrio orange