-
Notifications
You must be signed in to change notification settings - Fork 2
/
latex-stuff.el
137 lines (113 loc) · 4.07 KB
/
latex-stuff.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
;; -*- Mode: Emacs-Lisp -*-
;; stuff for (La)TeX editing
;; by Filipe Cabecinhas
(require 'utils)
(require 'load-paths)
;;(require 'auctex)
(when (and (load "auctex.el" t t t)
(load "preview-latex.el" t t t))
;;(setq TeX-engine 'xetex)
(setq-default TeX-engine 'xetex)
(setq-default TeX-PDF-mode t)
;;(TeX-global-PDF-mode t)
(setq-default TeX-master nil)
(setq TeX-parse-self t)
(setq TeX-auto-save t)
(setq reftex-plug-into-AUCTeX t)
(setq TeX-debug-bad-boxes t
TeX-toggle-debug-warnings t)
(setq reftex-label-alist
'((nil ?f nil "\\figref{%s}" nil nil)))
;; Completion
(setq TeX-electric-escape nil)
;;(setq TeX-insert-braces t) ; Chateia com comandos como o \ldots
(setq TeX-insert-braces nil)
;; Inverse search:
(setq TeX-source-specials-mode t)
(setq TeX-source-specials-view-start-server t)
;; (add-to-list 'TeX-command-list '("View" "%V" TeX-run-discard nil t))
;; Programs which open PDF files
(in-platforms
(darwin ;; Mac OS X
(setq TeX-view-program-list
'(("Preview" "open -a Preview.app %o")
("Skim" "open -a Skim.app %o")
("displayline" "displayline %n %o %b")
("open" "open %o")))
(setq TeX-view-program-selection
'((output-dvi "open")
(output-pdf "Preview")
(output-html "open"))))
("fry.l2f.inesc-id.pt" ;; INESC
(setq TeX-view-program-list
'(("KDE open" "kde-open %o")
("Okular" "okular %o")))
(setq TeX-view-program-selection
'((output-pdf "KDE open")
(output-html "KDE open")))))
;; FIXME: TeX-master-file doesn't work here?
(defadvice TeX-command-master
(after TeX-command-master-refresh-doc-view
preactivate compile)
"Refresh doc-view buffers for this TeX file."
(interactive "P")
;; (let ((master (TeX-master-file "pdf")))
;; (message "Advice is running. master = %s" master)
;; (dolist (buf (buffer-list 'files-only))
;; (message "I have a buffer: %s... same? %S" (buffer-name buf)
;; (string-equal master (buffer-name buf)))
;; (when (string-equal master (buffer-name buf))
;; (message "Advice is running... found a buffer!")
;; (save-window-excursion
;; (switch-to-buffer buf)
;; (revert-buffer 'ignore-auto 'noconfirm))))))
(dolist (f (frame-list))
(dolist (win (window-list f))
(let ((buf (window-buffer win)))
(when (and (buffer-file-name buf)
(string-equal (file-name-extension (buffer-file-name buf))
"pdf"))
(save-window-excursion
(switch-to-buffer buf)
(revert-buffer 'ignore-auto 'noconfirm)))))))
;; FIXME: If the next TeX command is "View", run it!
;; (defadvice TeX-command-master
;; (after TeX-command-master-refresh-external-app
;; preactivate compile)
;; "Refresh the pdf viewer reading the output file"
;; (interactive "P")
;; (if (string-equal TeX-command
(defun filcab-latex-mode-hook ()
(turn-on-auto-fill)
;;(highlight-changes-mode 1)
(reftex-mode t)
(flyspell-mode 1)
;; Enables our maybe-elder-and-TeX-command-master, to pre-process files
;; Also activates our "refresh-doc-view" advice, to reload PDFs
(ad-activate 'TeX-command-master t)
(setq-default reftex-cite-format "~\\cite{%l}")
;; (flyspell-buffer)) ;; If it's too slow, just remove this
;; (add-to-list 'TeX-output-view-style
;; `("^pdf$" "."
;; ,(concat "%(o?)" open-program " %o")))
)
(defun master-file-PDF-other-window ()
(interactive)
(let ((pdf (concat (TeX-master-directory) "/"
(TeX-master-file "pdf"))))
(if (file-exists-p pdf)
(save-excursion
(other-window 1)
(find-file pdf))
(message "Couldn't find master PDF file: %s" pdf))))
(in-platform windows-nt
(eval-after-load "tex"
'(add-to-list 'TeX-output-view-style
'("^pdf$" "."
"%(o?)start \"\" %o"))))
;; For auto-insert
(add-hook 'LaTeX-mode-hook 'auto-insert)
;; Bind master-file-PDF-other-window in latex-mode
;;(local-set-key 'latex-mode-map
) ;; (when (and (load "latex.el" …
(provide 'latex-stuff)