.emacs (osx)

osx.emacs

(add-to-list 'load-path "/Users/paraita/.emacs.d/plugins")

;; org-mode syntax color highlighting
(setq org-src-fontify-natively t)
(require 'org-latex)
(setq org-export-latex-listings 'minted)
(add-to-list 'org-export-latex-packages-alist '("" "minted"))

;; yasnippet
(add-to-list 'load-path "~/.emacs.d/plugins/yas")
(require 'yasnippet)
(yas-global-mode 1)

;; ipython
(require 'ipython)

;; auto-complete
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "/Users/paraita/.emacs.d/plugins/ac-dict")
(ac-config-default)
(global-auto-complete-mode t)

; ----------- publication sur hipopochat
(defun hipopochat-publish (title tags publication)
  "publier un article sur Hipopochat"
  (setq org-export-htmlize-output-type 'css)
  (interactive "sNom de l'article ? 
sTags ? (séparés par une virgule) 
sMettre en (b)rouillon ou (p)ublier directement ? ")
  (let* ((str_cmd "")
   (tampon (make-temp-file "/tmp/hipopochat.output"))
	 (body (org-export-as-html 3 nil nil 'string t)))
    (with-temp-file tampon
      (insert body)
      (goto-char (buffer-end 1)))
    (setq str_cmd (concat "google blogger post"
			  " --title \""
			  title
			  "\" --tags \""
			  tags
			  "\" "))
    (when (equal publication "b")
      (setq str_cmd (concat str_cmd " --draft ")))
    (setq str_cmd (concat str_cmd tampon))
    (start-process-shell-command "proc[envoi d'article]"
				 (get-buffer-create "*hipopo-send-buffer*")
				 str_cmd)
    (message "message envoyé !")))

(add-hook 'org-mode-hook
          (lambda ()
            (local-set-key (quote [?\C-c ?\C-x]) 'hipopochat-publish)))

;; cedet
(load-file "/Users/paraita/.emacs.d/plugins/cedet/cedet-devel-load.el")
(semantic-mode 1)
(require 'semantic/ia)
(defun my-cedet-hook ()
  (local-set-key [(control return)] 'semantic-ia-complete-symbol)
  (local-set-key "\C-c?" 'semantic-ia-complete-symbol-menu)
  (local-set-key "\C-c>" 'semantic-complete-analyze-inline)
  (local-set-key "\C-cp" 'semantic-analyze-proto-impl-toggle))
(add-hook 'c-mode-common-hook 'my-cedet-hook)