;; 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