Dear Nick,
Le ven. 11 mars 2016 à 16:45, Nick Dokos <ndo...@gmail.com> a écrit :
> Giuseppe Lipari <giulip...@gmail.com> writes:
>
> > Hello,
> >
> > I want to have a backtrace of an error I am encountering. So I followed
> the instructions here,
> > 1) I enabled "enter debugger on error"
> > 2) M-x org-reload
> >
> > And I obtain the following error
> >
> > and: Symbol's value as variable is void: load-uncore
> >
>
> I think it's time to kill the running emacs session and start a new
> one. If it happens with the new one, that might be a bug; but IMO it's
> more likely that the session has been curdled.
>
>
I tried it on a freshly started emacs, and it happens again. I am attach my
init.org as well.
Giuseppe Lipari
> --
> Nick
>
>
>
* Basic settings
** Startup screen
#+BEGIN_SRC emacs-lisp
(setq-default)
(setq inhibit-splash-screen t)
#+END_SRC
** Package manager (melpa)
#+BEGIN_SRC emacs-lisp
(require 'package)
(package-initialize)
;(add-to-list 'package-archives
; '("elpa" . "http://tromey.com/elpa/";) t)
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/";) t)
#+END_SRC
** Keyboard shortcuts
#+BEGIN_SRC emacs-lisp
;;************************************************************
;;
;; Keyboard selections
;;
(global-set-key [f4] 'comment-region)
(global-set-key [f5] 'uncomment-region)
(global-set-key (kbd "C-$") 'scroll-up-line)
(global-set-key (kbd "C-*") 'scroll-down-line)
#+END_SRC
* auto-complete
#+BEGIN_SRC emacs-lisp
(require 'auto-complete)
#+END_SRC
* Org configuration
** Preliminary
#+BEGIN_SRC emacs-lisp
(setq org-export-backends (quote (ascii beamer html icalendar latex odt md)))
#+END_SRC
** Agenda and notes
#+BEGIN_SRC emacs-lisp
(setq org-directory "~/Copy/org") ;; Set to the location of your Org files on your local system
(setq org-mobile-inbox-for-pull "~/Copy/org/flagged.org") ;; Set to the name of the file where new notes will be stored
(setq org-mobile-directory "~/Dropbox/org") ;; Set to <your Dropbox root directory>/MobileOrg
(setq org-agenda-files
(quote ("~/Copy/org/work.org"
"~/Copy/org/conferences.org"
"~/Copy/org/tasse.org"
"~/Copy/org/emeraude_meetings.org"
"~/Copy/org/cours_lille.org"
"~/Copy/org/programming.org"
"~/Copy/Documents/reviews/RTSJ-special_issue/paper_list.org"
"~/Copy/Documents/Buro/candidatures/candidatures.org"
"~/Copy/org/corso_cpp.org"
"~/Copy/org/mycal.org"
"~/Copy/org/notes.org")))
(setq org-agenda-span 15)
#+END_SRC
** Keyboard selections
#+BEGIN_SRC emacs-lisp
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-cc" 'org-capture)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
#+END_SRC
** Clocks
#+BEGIN_SRC emacs-lisp
;; this is for storing clocks
(setq org-clock-persist 'history)
(org-clock-persistence-insinuate)
(setq-default org-catch-invisible-edits 'smart) ; preventing edits to hidden trees
#+END_SRC
** Babel
*** Languages
#+BEGIN_SRC emacs-lisp
(org-babel-do-load-languages
'org-babel-load-languages
'((dot . t)
(emacs-lisp . t)
(mscgen . t) ; this is the entry to activate mscgen
(latex . nil)
(python . t)
(sh . t)
(ditaa . t)
(C . t)
(java . t)
(sql . t)
(haskell . t)
(makefile . t)
(plantuml . t)
))
(setq org-plantuml-jar-path
(expand-file-name "~/devel/plantuml/plantuml.jar"))
(setq exec-path (append exec-path '("/usr/bin/mscgen")))
#+end_src
*** Fontify in babel regions
#+begin_src emacs-lisp
(setq org-src-fontify-natively t)
(setq org-src-tab-acts-natively t)
#+end_src
Load exporter
#+BEGIN_SRC emacs-lisp
(eval-after-load 'ox
'(add-to-list 'org-export-filter-src-block-functions
(lambda (x y z)
(replace-regexp-in-string "\t" " " x nil t)))
)
#+END_SRC
*** Evaluation
#+BEGIN_SRC emacs-lisp
(setq org-confirm-babel-evaluate nil)
#+END_SRC
** org2blog
#+BEGIN_SRC emacs-lisp
(setq load-path (cons "~/elisp/org2blog/" load-path))
(require 'org2blog-autoloads)
(setq org2blog/wp-blog-alist
'(("okpanico"
:url "http://okpanico.wordpress.com/xmlrpc.php";
:username "glipari"
:default-title "Nuovo post"
:default-categories ("Linguaggi" "C++")
:tags-as-categories nil)
("algoland"
:url "http://algoland.wordpress.com/xmlrpc.php";
:username "glipari"
:default-title "New post"
:default-categories ("")
:tags-as-categories nil)))
(setq org2blog/wp-use-sourcecode-shortcode t)
#+END_SRC
** org-mobile
#+BEGIN_SRC emacs-lisp
;;
;; Sync with org-mobile at startup and exit
;;
(add-hook 'after-init-hook 'org-mobile-pull)
(add-hook 'kill-emacs-hook 'org-mobile-push)
;;
;; Periodically sync with org-mobile (5 minutes)
;;
(defvar my-org-mobile-sync-timer nil)
(defvar my-org-mobile-sync-secs (* 60 5))
(defun my-org-mobile-sync-pull-and-push ()
(org-mobile-pull)
(org-mobile-push)
;; (when (fboundp 'sauron-add-event)
;; (sauron-add-event 'my 3 "Called org-mobile-pull and org-mobile-push"))
)
(defun my-org-mobile-sync-start ()
"Start automated `org-mobile-push'"
(interactive)
(setq my-org-mobile-sync-timer
(run-with-idle-timer my-org-mobile-sync-secs t
'my-org-mobile-sync-pull-and-push)))
(defun my-org-mobile-sync-stop ()
"Stop automated `org-mobile-push'"
(interactive)
(cancel-timer my-org-mobile-sync-timer))
(my-org-mobile-sync-start)
#+END_SRC
** org-latex
#+begin_src emacs-lisp
(eval-after-load 'ox-latex
'(add-to-list 'org-latex-packages-alist '("AUTO" "babel" t) t))
(unless (boundp 'org-latex-classes)
(setq org-latex-classes nil))
(add-to-list 'org-latex-classes
'("cahier"
"\\documentclass{report}"
("\\chapter{%s}" . "\\chapter*{%s}")
("\\section{%s}" . "\\section*{%s}")))
(add-to-list 'org-latex-classes
'("cahiersimple"
"\\documentclass{article}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")))
(add-to-list 'org-latex-classes
'("article"
"\\documentclass{article}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
(add-to-list 'org-latex-classes
'("myieee"
"\\documentclass{IEEEtran}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
#+END_SRC
** reftex in org-mode
# #+BEGIN_SRC emacs-lisp
# (defun org-mode-article-modes ()
# (reftex-mode t)
# (bib-cite-minor-mode t)
# (and (buffer-file-name)
# (file-exists-p (buffer-file-name))
# (reftex-parse-all)))
# (add-hook 'org-mode-hook
# (lambda ()
# (if (member "WRITE" org-todo-keywords-1)
# (org-mode-article-modes))))
# #+END_SRC
** org-beamer
#+BEGIN_SRC emacs-lisp
(defun latex-buffer-caption-to-caption* ()
(when org-beamer-export-is-beamer-p
(replace-regexp "\\(\\\\caption\\)\\([[{]\\)" "\\1*\\2" nil
(point-min) (point-max))))
(add-hook 'org-export-latex-final-hook
'latex-buffer-caption-to-caption* 'append)
#+END_SRC
** minted with org export
#+BEGIN_SRC emacs-lisp
(add-to-list 'org-latex-packages-alist '("" "minted"))
(setq org-latex-listings 'minted)
#+END_SRC
If I want a custom environment, I have to set the following:
(setq org-export-latex-custom-lang-environments
'(
(emacs-lisp "common-lispcode")
))
and then
##+LaTeX_HEADER: \newminted{common-lisp}{fontsize=\footnotesize}
** Koma-letter for org
#+begin_src emacs-lisp
;;
;; Koma-letter
;;
(add-to-list 'load-path "~/elisp/org-mode/contrib/lisp")
(eval-after-load 'ox '(require 'ox-koma-letter))
(eval-after-load 'ox-koma-letter
'(progn
(add-to-list 'org-latex-classes
'("my-letter"
"\\documentclass\{scrlttr2\}
\\setkomavar{frombank}{(1234)\\,567\\,890}
\[DEFAULT-PACKAGES]
\[PACKAGES]
\[EXTRA]"))
(setq org-koma-letter-default-class "my-letter")))
#+end_src
** Spelling
#+BEGIN_SRC emacs-lisp
(add-to-list 'ispell-skip-region-alist '("#\\+begin_src". "#\\+end_src"))
(add-to-list 'ispell-skip-region-alist '("#\\+BEGIN_SRC". "#\\+END_SRC"))
(add-to-list 'ispell-skip-region-alist '(":\\(PROPERTIES\\|LOGBOOK\\):" . ":END:"))
#+END_SRC
* Custom variables set from the interface
This will probably be removed or simply moved somewhere
#+BEGIN_SRC emacs-lisp
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(c-default-style (quote ((c++-mode . "stroustrup") (java-mode . "java") (awk-mode . "awk") (other . "gnu"))))
'(org-agenda-dim-blocked-tasks t)
'(org-agenda-files (quote ("~/Copy/org/conferences.org" "~/Copy/org/tasse.org" "~/Copy/org/emeraude_meetings.org" "~/Copy/org/cours_lille.org" "~/Copy/org/evidence.org" "~/Copy/org/snippets.org" "~/Copy/org/programming.org" "~/Copy/Documents/reviews/RTSJ-special_issue/paper_list.org" "~/Copy/Documents/Buro/candidatures/candidatures.org" "~/Copy/org/corso_cpp.org" "~/Copy/org/mycal.org" "~/Copy/org/notes.org")))
'(org-agenda-span 15)
'(org-capture-templates (quote (("r" "Recipes of things to be done" entry (file "~/Copy/org/recipes.org") "" :empty-lines 1) ("a" "Appointement" entry (file "~/Copy/org/mycal.org") "" :empty-lines 1) ("l" "Links" entry (file "~/Copy/org/notes.org") "") ("t" "TODO items" entry (file "~/Copy/org/notes.org") "" :empty-lines 1))))
'(org-columns-default-format "%29ITEM(Task) %TODO %PRIORITY(P) %5Effort(Stima){:} %5CLOCKSUM(Dur) %14SCHEDULED(Sched) %14DEADLINE(Dline) %14TAGS")
'(org-enforce-todo-dependencies t)
'(org-export-date-timestamp-format "%e %b %Y")
'(org-export-latex-listings t)
'(org-refile-targets (quote ((org-agenda-files :level . 1))))
'(safe-local-variable-values (quote ((ispell-local-dictionary . francais) (ispell-local-dictionary . francais-80) (org-export-allow-bind-keywords . t))))
'(send-mail-function (quote mailclient-send-it)))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(default ((t (:inherit nil :stipple nil :background "Black" :foreground "White" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 113 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))))
#+END_SRC
* Latex
** Latex compilation
#+BEGIN_SRC emacs-lisp
;; this is for getting the latex conversion with bibtex and everything else
;;(setq org-latex-pdf-process (quote ("texi2dvi -p -b -V %f")))
(setq org-latex-pdf-process (list "latexmk -pdf %f"))
(eval-after-load "org"
'(progn
;; Change .pdf association directly within the alist
(setcdr (assoc "\\.pdf\\'" org-file-apps) "okular %s")))
(setq reftex-default-bibliography '("~/Copy/Documents/mypapers/biblio/lipari.bib" "~/Copy/Documents/mypapers/biblio/retis.bib")) ; So that RefTeX in Org-mode knows bibliography
#+END_SRC
** AuC TeX
#+BEGIN_SRC emacs-lisp
(add-to-list 'ac-modes 'latex-mode)
;; (require 'ac-math) ; package should be installed first
;; (defun my-ac-latex-mode () ; add ac-sources for latex
;; (setq ac-sources
;; (append '(ac-source-math-unicode
;; ac-source-math-latex
;; ac-source-latex-commands)
;; ac-sources)))
;; (add-hook 'LaTeX-mode-hook 'my-ac-latex-mode)
;; (setq ac-math-unicode-in-math-p t)
(require 'auto-complete-auctex)
;; (require 'auto-complete-config) ; should be after add-to-list 'ac-modes and hooks
;; (ac-config-default)
;; (setq ac-auto-start nil) ; if t starts ac at startup automatically
;; (setq ac-auto-show-menu t)
;; (global-auto-complete-mode t)
(add-hook 'LaTeX-mode-hook 'auto-complete-mode)
(setq TeX-view-program-list
(quote
(("dvips and ps2pdf and okular" "dvips %d -o && ps2pdf %f && okular --unique %s.pdf")
("Okular" "okular --unique %s.pdf"))))
(setq TeX-view-program-selection
(quote
(((output-dvi style-pstricks) "dvips and ps2pdf and okular")
(output-dvi "dvips and ps2pdf and okular")
(output-pdf "Okular")
(output-html "xdg-open"))))
(setq TeX-parse-self 't) ; parsing macros in the current file
(setq-default TeX-master nil) ;; why?
(setq ispell-dictionary "british") ;; default-dictionary
;;
;; automatically loads reftex
;;
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
;; (require 'auto-dictionary) ;; this is in conflict with the above
;; (add-hook 'flyspell-mode-hook (lambda () (auto-dictionary-mode 1)))
;;
;; automatically loads flyspell
;;
(require 'flyspell)
(add-hook 'LaTeX-mode-hook 'flyspell-mode)
(ac-flyspell-workaround) ; fixes a known bug of delay due to flyspell
#+END_SRC
* Programming
** Javascript
The javascript mode
#+begin_src emacs-lisp
(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
(add-hook 'js2-mode-hook 'ac-js2-mode)
#+end_src
** Prelude
#+begin_src emacs-lisp
(setq auto-mode-alist (cons '("\\.plu$" . prelude-mode) auto-mode-alist))
(autoload 'prelude-mode "prelude" "Edition de code prelude" t)
(put 'downcase-region 'disabled nil)
#+END_SRC
** Java mode
#+BEGIN_SRC emacs-lisp
(add-hook 'java-mode-hook (lambda ()
(setq c-basic-offset 4
tab-width 4
indent-tabs-mode nil)))
(custom-set-variables
'(jdee-complete-function (quote jdee-complete-menu))
'(jdee-server-dir "/home/lipari/.emacs.d/elpa/jdee-server/jdee-server/target/")
)
#+END_SRC
** C and C++ mode
#+BEGIN_SRC emacs-lisp
(add-hook 'c-mode-hook (lambda ()
(setq c-basic-offset 4
tab-width 4
indent-tabs-mode nil)
(auto-complete-mode)))
(add-hook 'c++-mode-hook (lambda ()
(setq c-basic-offset 4
tab-width 4
indent-tabs-mode nil)
(auto-complete-mode)))
#+END_SRC
** Haskell
Turn on indentation mode
#+BEGIN_SRC emacs-lisp
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
#+END_SRC
* Various utils
** Unfill a paragraph
Taken from here: [[http://www.emacswiki.org/emacs/UnfillParagraph]]
#+BEGIN_SRC emacs-lisp
(defun unfill-paragraph (&optional region)
"Takes a multi-line paragraph and makes it into a single line of text."
(interactive (progn (barf-if-buffer-read-only) '(t)))
(let ((fill-column (point-max)))
(fill-paragraph nil region)))
#+END_SRC
** Markdown mode
#+BEGIN_SRC emacs-lisp
(autoload 'markdown-mode "markdown-mode"
"Major mode for editing Markdown files" t)
(add-to-list 'auto-mode-alist '("\\.text\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
#+END_SRC
** Flyspell
#+BEGIN_SRC emacs-lisp
(let ((langs '("british" "francais" "italian")))
(setq lang-ring (make-ring (length langs)))
(dolist (elem langs) (ring-insert lang-ring elem)))
(defun cycle-ispell-languages ()
(interactive)
(let ((lang (ring-ref lang-ring -1)))
(ring-insert lang-ring lang)
(ispell-change-dictionary lang)))
(global-set-key [f6] 'cycle-ispell-languages)
#+END_SRC
