mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Emacs: check for existence for loading, to avoid error.

master
Pierre Neidhardt 2013-01-10 18:05:10 +01:00
parent d401566687
commit 611260642a
1 changed files with 66 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
.emacs.d/plugins.el
View File

@ -3,7 +3,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User plugin path. ;; User plugin path.
(add-to-list 'load-path "~/.emacs.d/plugins") ;; (add-to-list 'load-path "~/.emacs.d/plugins")
;;============================================================================== ;;==============================================================================
;; Yasnippet ;; Yasnippet
@ -17,22 +17,24 @@
;; Next follows a traditional, yet not-optimized configuration for Yasnippet. ;; Next follows a traditional, yet not-optimized configuration for Yasnippet.
;; (add-to-list 'load-path "/usr/share/emacs/site-lisp/yas") ;; (add-to-list 'load-path "/usr/share/emacs/site-lisp/yas")
(require 'yasnippet) ;; not yasnippet-bundle (if (require 'yasnippet nil t)
(setq yas-snippet-dirs "~/.emacs.d/snippets" )
(if (fboundp 'yas/initialize)
;; Old yasnippet versions.
(progn (progn
(yas/initialize) (setq yas-snippet-dirs "~/.emacs.d/snippets" )
(yas/load-directory yas-snippet-dirs))
;; New yasnippet versions.
(progn
(yas-global-mode 1)
(yas-load-directory yas-snippet-dirs))
)
(if (fboundp 'yas/initialize)
;; Old yasnippet versions.
(progn
(yas/initialize)
(yas/load-directory yas-snippet-dirs))
;; New yasnippet versions.
(progn
(yas-global-mode 1)
(yas-load-directory yas-snippet-dirs))
)
))
;;============================================================================== ;;==============================================================================
;; Lua ;; Lua
@ -44,43 +46,46 @@
;; MediaWiki ;; MediaWiki
;;============================================================================== ;;==============================================================================
(require 'mediawiki) (if (require 'mediawiki nil t)
(progn
;; Macros. (setq mediawiki-site-alist
;; Use C-( stuff C-) to record a macro. '(
;; Use 'name-last-kbd-macro' to give it a name. ("Wikipedia" "http://en.wikipedia.org/w/" "Ambrevar" "" "Main Page")
;; Use 'insert-kbd-macro' in your init file to insert the code. ("Wikibooks" "http://en.wikibooks.org/w/" "Ambrevar" "" "LaTeX")
;; You can assign a key: (local-set-key (kbd "C-c a") 'my-macro) ("ArchLinux" "https://wiki.archlinux.org/" "Ambrevar" "" "Mutt"))
(fset 'ltx-template-source-to-latex )
"\C-@\C-s>\C-m\C-w\C-@\C-s</source\C-m\C-[Od\C-[[D\C-[[D\C-wltx\C-i\C-y\C-i\C-[d\C-d")
(fset 'ltx-template-source-to-usage ;; Macros.
"\C-@\C-s>\C-w\C-?\C-m\C-w\C-d\C-@\C-s</source\C-m\C-[Od\C-[[D\C-[[D\C-[[D\C-wltxu\C-i\C-y\C-i\C-k\C-k") ;; Use C-( stuff C-) to record a macro.
;; Use 'name-last-kbd-macro' to give it a name.
;; Use 'insert-kbd-macro' in your init file to insert the code.
;; You can assign a key: (local-set-key (kbd "C-c a") 'my-macro)
(fset 'ltx-template-source-to-latex
"\C-@\C-s>\C-m\C-w\C-@\C-s</source\C-m\C-[Od\C-[[D\C-[[D\C-wltx\C-i\C-y\C-i\C-[d\C-d")
(setq mediawiki-site-alist (fset 'ltx-template-source-to-usage
'( "\C-@\C-s>\C-w\C-?\C-m\C-w\C-d\C-@\C-s</source\C-m\C-[Od\C-[[D\C-[[D\C-[[D\C-wltxu\C-i\C-y\C-i\C-k\C-k")
("Wikipedia" "http://en.wikipedia.org/w/" "Ambrevar" "" "Main Page")
("Wikibooks" "http://en.wikibooks.org/w/" "Ambrevar" "" "LaTeX")
("ArchLinux" "https://wiki.archlinux.org/" "Ambrevar" "" "Mutt"))
)
;; The url-cookie timer is set to a high value because it seems that once the ;; The url-cookie timer is set to a high value because it seems that once the
;; cookie has been saved, MediaWiki fails to upload files correctly. Is ;; cookie has been saved, MediaWiki fails to upload files correctly. Is
;; 'url-do-setup' needed to make sure the url-cookie-save-interval variable is ;; 'url-do-setup' needed to make sure the url-cookie-save-interval variable is
;; taken into account? TODO: does not work. ;; taken into account? TODO: does not work.
(setq url-cookie-save-interval 86400) (setq url-cookie-save-interval 86400)
(setq mediawiki-mode-hook (setq mediawiki-mode-hook
(lambda () (lambda ()
(visual-line-mode 1) (visual-line-mode 1)
(turn-off-auto-fill) (turn-off-auto-fill)
(define-key mediawiki-mode-map (kbd "C-c RET") 'mediawiki-open-page-at-point) (define-key mediawiki-mode-map (kbd "C-c RET") 'mediawiki-open-page-at-point)
(define-key mediawiki-mode-map (kbd "C-c o") 'mediawiki-browse) (define-key mediawiki-mode-map (kbd "C-c o") 'mediawiki-browse)
(local-unset-key (kbd "M-g")) (local-unset-key (kbd "M-g"))
;; TODO: Bindings to not work??? ;; TODO: Bindings to not work???
;; (local-set-key (kbd "C-c l L") 'ltx-template-source-to-latex) ;; (local-set-key (kbd "C-c l L") 'ltx-template-source-to-latex)
;; (local-set-key (kbd "C-c l U") 'ltx-template-source-to-usage) ;; (local-set-key (kbd "C-c l U") 'ltx-template-source-to-usage)
)) ))
))
;;============================================================================== ;;==============================================================================
;; DoxyMacs ;; DoxyMacs
@ -101,19 +106,20 @@
;;============================================================================== ;;==============================================================================
;; Zsh style completion. ;; Zsh style completion.
(require 'zlc) (if (require 'zlc nil t)
(let ((map minibuffer-local-map)) (let ((map minibuffer-local-map))
;; Like Zsh menu select. Should not use arrows directly because it overrides ;; Like Zsh menu select. Should not use arrows directly because it overrides
;; default controls like previous entry, or previous/next char. ;; default controls like previous entry, or previous/next char.
(define-key map (kbd "C-<down>") 'zlc-select-next-vertical) (define-key map (kbd "C-<down>") 'zlc-select-next-vertical)
(define-key map (kbd "C-<up>") 'zlc-select-previous-vertical) (define-key map (kbd "C-<up>") 'zlc-select-previous-vertical)
(define-key map (kbd "C-<right>") 'zlc-select-next) (define-key map (kbd "C-<right>") 'zlc-select-next)
(define-key map (kbd "C-<left>") 'zlc-select-previous) (define-key map (kbd "C-<left>") 'zlc-select-previous)
;;; Reset selection. ;; Reset selection.
(define-key map (kbd "C-c") 'zlc-reset) (define-key map (kbd "C-c") 'zlc-reset)
)
;; (setq zlc-select-completion-immediately t) ;; (setq zlc-select-completion-immediately t)
;; To change style, M-x customize-face and input zlc-selected-completion-face. ;; To change style, M-x customize-face and input zlc-selected-completion-face.
)
)