From b1d01d96bb7923787987d44a8d7f41b88cf3b60b Mon Sep 17 00:00:00 2001
From: Chizi123 <joelgrun@gmail.com>
Date: Tue, 19 Feb 2019 08:23:53 +0000
Subject: [PATCH] Added reftex and some minor changes

---
 config.org |   48 ++++++++++++++++++++++++++++++++++++++++++++----
 1 files changed, 44 insertions(+), 4 deletions(-)

diff --git a/config.org b/config.org
index d48288a..39dc487 100644
--- a/config.org
+++ b/config.org
@@ -6,6 +6,8 @@
     ;; (add-to-list 'exec-path "C:/msys64/usr/bin")
     (add-to-list 'exec-path "C:/msys64/mingw64/bin")
     (add-to-list 'exec-path "c:/Program Files/Racket")
+    (add-to-list 'exec-path "c:/Users/joelg/TeXcount_3_1_1")
+    (add-to-list 'exec-path "c:/Program Files/gnuplot")
     (setenv "PATH" (mapconcat #'identity exec-path path-separator)))
 #+END_SRC
 
@@ -71,7 +73,7 @@
   (pdf-tools-install))
 
 #+END_SRC
-* Helm and projectile
+* Helm and Projectile
 ** Helm core
 #+BEGIN_SRC emacs-lisp
 (use-package helm-config
@@ -114,7 +116,8 @@
      :config
      (projectile-global-mode)
      (setq projectile-completion-system 'helm)
-     (setq projectile-indexing-method 'alien))
+     (when (eq system-type 'windows-nt)
+       (setq projectile-indexing-method 'alien)))
  #+END_SRC
 *** Let it compile things
  #+BEGIN_SRC emacs-lisp
@@ -451,7 +454,7 @@
     :ensure t
     :diminish company-mode
     :config
-    (add-hook 'prog-mode-hook 'company-mode)
+    (global-company-mode)
     (setq company-idle-delay 0)
     (setq company-minimum-prefix-length 3))
 #+END_SRC
@@ -566,7 +569,7 @@
 **** company
 #+BEGIN_SRC emacs-lisp
     (use-package company-c-headers
-        :ensure t
+        :ensure tk
         :after company
         :config
         (add-hook 'c++-mode-hook 'company-mode)
@@ -639,6 +642,18 @@
     :after company
     :config
     (add-to-list 'company-backends 'company-math-symbols-unicode))
+
+  (use-package company-reftex
+    :ensure t
+    :after company
+    :config
+    (add-to-list 'company-backends 'company-reftex))
+
+  (use-package company-auctex
+    :ensure t
+    :after company
+    :config
+    (company-auctex-init))
 #+END_SRC
 **** Preview pane
 #+BEGIN_SRC emacs-lisp
@@ -647,6 +662,31 @@
   :config
   (latex-preview-pane-enable))
 #+END_SRC
+**** TeXcount
+     Word counts in latex
+     #+BEGIN_SRC emacs-lisp
+       (defun texcount ()
+	 (interactive)
+	 (let*
+	     ( (this-file (buffer-file-name))
+	       (enc-str (symbol-name buffer-file-coding-system))
+	       (enc-opt
+		(cond
+		 ((string-match "utf-8" enc-str) "-utf8")
+		 ((string-match "latin" enc-str) "-latin1")
+		 ("-encoding=guess")
+		 ) )
+	       (word-count
+		(with-output-to-string
+		  (with-current-buffer standard-output
+		    (call-process "texcount" nil t nil "-0" enc-opt this-file)
+		    ) ) ) )
+	   (message word-count)
+	   ) )
+       (add-hook 'LaTeX-mode-hook (lambda () (define-key LaTeX-mode-map (kbd "C-c c") 'texcount)))
+       (add-hook 'latex-mode-hook (lambda () (define-key latex-mode-map (kbd "C-c c") 'texcount)))
+     #+END_SRC
+
 *** PlantUML
 #+BEGIN_SRC emacs-lisp
 (use-package plantuml-mode

--
Gitblit v1.9.3