~tomterl/tomsdiner.org

4a829c5f86c0a5bc6936b259bde9ffb34aa82b4e — Tom Regner a month ago 428da60 master
README: Reflcet the code changes in tdo publishing

netrc -> auth-source
1 files changed, 4 insertions(+), 4 deletions(-)

M README.org
M README.org => README.org +4 -4
@@ 16,9 16,9 @@ configured as ~html-head~ ~link~-element.
The remote setup is externally in my ~.netrc~ file.

#+BEGIN_SRC emacs-lisp :exports code
(let* ((tdo (netrc-machine (netrc-parse "~/.netrc.gpg") "tdo"))
             (remote-dir (concat (netrc-get tdo "login") (netrc-get tdo "account")))
             (remote-static-dir (concat remote-dir "static/")))
(let* ((tdo (car (auth-source-search :host "tdo")))
       (remote-dir (concat (plist-get tdo :user) (plist-get tdo :home)))
       (remote-static-dir (concat remote-dir "static/")))
        (setq org-publish-project-alist
              `(("tdo"
                 :components ("tdo-content" "tdo-static"))


@@ 65,7 65,7 @@ The remote setup is externally in my ~.netrc~ file.
                 :base-extension "ico"
                 :publishing-directory ,remote-dir
                 :recursive nil
                 :publishing-function org-publish-attachment))))                 
                 :publishing-function org-publish-attachment))))
#+END_SRC

** Posts