From 5512087c8cfdd9bf94e80a48b41488c586815c37 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Adolfo=20De=20Un=C3=A1nue?= <nanounanue@gmail.com>
Date: Tue, 21 Apr 2020 00:10:14 -0500
Subject: [PATCH] Directorio de ESS  por default. Ajustes al template de Roam

---
 emacs/emacs-org-mode.org    | 7 +++++--
 emacs/emacs-programming.org | 3 ++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/emacs/emacs-org-mode.org b/emacs/emacs-org-mode.org
index 3ef44d3..d43cc42 100644
--- a/emacs/emacs-org-mode.org
+++ b/emacs/emacs-org-mode.org
@@ -37,6 +37,7 @@
     :mode
     ("\\.org\\'" . org-mode)
     ("\\.txt\\'" . org-mode)
+    ("\\.setup\\'" . org-mode)
     (".*/[0-9]*$" . org-mode)
     :bind
     ("C-c l"   . org-store-link)
@@ -65,8 +66,8 @@
 
 
     :custom-face
-    (variable-pitch ((t (:family "EtBembo" :height 1.1 :weight normal))))
-    (fixed-pitch ((t (:family "Ubuntu Mono" :slant normal :weight normal :height 1.0 :width normal))))
+    ;;(variable-pitch ((t (:family "EtBembo" :height 1.1 :weight normal))))
+    ;;(fixed-pitch ((t (:family "Ubuntu Mono" :slant normal :weight normal :height 1.0 :width normal))))
     (org-indent ((t (:inherit (org-hide fixed-pitch)))))
 
     :config
@@ -1384,6 +1385,7 @@ Not for real use, just here for demonstration purposes."
            :head "#+SETUPFILE:./hugo.setup
 ,#+HUGO_SECTION: zettels
 ,#+HUGO_SLUG: ${slug}
+,#+STARTUP:  latexpreview
 ,#+TITLE: ${title}\n"
            :unnarrowed t)
           ("p" "private" plain (function org-roam-capture--get-point)
@@ -1398,6 +1400,7 @@ Not for real use, just here for demonstration purposes."
            :head "#+SETUPFILE:./hugo.setup
 ,#+ROAM_KEY: ${ref}
 ,#+HUGO_SLUG: ${slug}
+,#+STARTUP:  latexpreview
 ,#+TITLE: ${title}
 - source :: ${ref}"
            :unnarrowed t))))
diff --git a/emacs/emacs-programming.org b/emacs/emacs-programming.org
index cdbcaf8..41ddd15 100644
--- a/emacs/emacs-programming.org
+++ b/emacs/emacs-programming.org
@@ -258,7 +258,8 @@ Descargarlo desde [[https://racket-lang.org/download/][aquí]]
   (add-hook 'ess-R-post-run-hook 'ess-execute-screen-options)
   (define-key inferior-ess-mode-map "\C-cw" 'ess-execute-screen-options)
                                            ; Add path to Stata to Emacs' exec-path so that Stata can be found
-
+  (setq ess-directory nil)
+  (setq ess-ask-for-ess-directory nil)
   )
 #+END_SRC