emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Michael Hannon <jm_hannon@yahoo.com>
To: "Thomas S. Dye" <tsd@tsdye.com>
Cc: Org-Mode List <emacs-orgmode@gnu.org>
Subject: Re: Losing tabs when tangling or editing
Date: Mon, 28 May 2012 20:45:07 -0700 (PDT)	[thread overview]
Message-ID: <1338263107.63395.YahooMailNeo@web161902.mail.bf1.yahoo.com> (raw)
In-Reply-To: <1338239656.10918.YahooMailNeo@web161905.mail.bf1.yahoo.com>

Michael Hannon <jm_hannon@yahoo.com> wrote:
>
>Thomas S. Dye <tsd@tsdye.com> wrote:
>>
>>> Greetings.  I was trying to set up a little demo in which I included a
>>> Makefile inside a "sh" source-code block in an Org-mode file, then tangled
>>> the file and ran "make" on the tangled file (either in the actual shell or
>>> in another sh block in Org).
>>>
>>> It appears that Org is removing tabs when it tangles the file, and the
>>> lack of tabs causes "make" to complain.
>>>
>>> I've appended a toy example which exhibits the problem.  BTW, if I edit
>>> the source block via C-c ' I also lose the tabs, i.e., even before
>>> tangling.
>>>
>>> Any thoughts about this?
>>>
>
>> I stumbled across this, too, in a somewhat different context.  My
>> "solution" was to hard code the newlines and tabs with \n\t using an
>> emacs-lisp source block and (format), then evaluate to a file, rather than
>> tangle.  I don't think it's a pretty solution, but it does work.
>
> Thanks, Tom.  I admire your ingenuity, but I think your work-around is too
> complicated for my purposes.  I was hoping to use this example to do a bit
> of subliminal proselytizing for Org mode.  If I tell people that to do this
> they have to hand code a bunch of newlines and tabs, using Emacs lisp at
> that, I'm not gonna win many converts.
>
> I was hoping that there might be some kind of customization possible:
>
>    (setq leave-the-bleeping-tabs-alone t)
>
> I looked through ob-tangle.el but didn't see anything obvious.  (This is
> neither surprising nor conclusive, given my limited lisp skills.)

I don't know if this is an improvement or not, but I wrote a tiny awk script
that looks for a space at the beginning of a line and prepends a tab if it
finds one; otherwise, it leaves the line alone.  Please see the appended.

-- Mike

$ cat hw.org
* test preservation of tabs when tangling

#+BEGIN_SRC sh :tangle Makefile.tangled

hw:    hw.cpp
    g++ -o hw hw.cpp

  
#+END_SRC


$ cat Makefile.tangled

hw:     hw.cpp
        g++ -o hw hw.cpp

$ grep -P "\t" Makefile.tangled    ## check for tabs
$   ## Nope, no tabs

$ cat hw.awk
{
  if ( /^ /) {
    print "\t" $0
     } else {
    print $0
     }
}

$ awk -f hw.awk Makefile.tangled > Makefile.tangled.fixed

$ grep -P "\t" Makefile.tangled.fixed   ## check again for tabs
            g++ -o hw hw.cpp

$ make -f Makefile.tangled.fixed 
g++ -o hw hw.cpp

$ ./hw
Hello, world!

>
>> #+name: configure-makefile #+header: :file Makefile #+header: :var
>> emacs="/Applications/Emacs-23-4.app/Contents/MacOS/Emacs" #+header: :var
>> init-file="init-new.el" #+header: :var exporter="new" #+header: :eval
>> noexport #+BEGIN_SRC emacs-lisp (let ((f (file-name-sans-extension
>> (file-name-nondirectory (buffer-file-name)))) (g (if (string= exporter
>> "old") "org-export-as-latex" "org-e-latex-export-to-latex"))) (format
>> "CC=gcc EMACS=%s BATCH_EMACS=$(EMACS) --batch -Q -l %s %s
>>    
>>     all: %s.pdf
>>    
>>     %s.tex: %s.org\n\t$(BATCH_EMACS) -f %s
>>    
>>     %s.pdf: %s.tex\n\trm -f %s.aux\n\tif pdflatex %s.tex </dev/null; then
>>     \\\n\t\ttrue; \\\n\telse \\\n\t\tstat=$$?; touch %s.pdf; exit $$stat;
>>     \\\n\tfi\n\tbibtex %s\n\twhile grep \"Rerun to get\" %s.log; do
>>     \\\n\t\tif pdflatex %s.tex </dev/null; then \\\n\t\t\ttrue;
>>     \\\n\t\telse \\\n\t\t\tstat=$$?; touch %s.pdf; exit $$stat; \\\n\t\tfi;
>>     \\\n\tdone
>>    
>>     %s.ps: %s.pdf\n\tpdf2ps %s.pdf
>>    
>>     clean:\n\trm -f *.aux *.log  *.dvi *.blg *.bbl *.toc *.tex *~ *.out
>>     %s.pdf *.xml *.lot *.lof " emacs init-file (file-name-nondirectory
>>     (buffer-file-name)) f f f g f f f f f f f f f f f f f)) #+END_SRC
>>
>>
>>>
>>>
>>> $ cat Makefile.original hw:    hw.cpp g++ -o hw hw.cpp
>>>
>>> $ grep -P "\t" Makefile.original hw:    hw.cpp g++ -o hw hw.cpp
>>>
>>> $ make -f Makefile.original g++ -o hw hw.cpp
>>>
>>> $ ./hw Hello, world!
>>>
>>> $ \rm hw
>>>
>>> $ cat hw.org * test preservation of tabs when tangling
>>>
>>> #+BEGIN_SRC sh :tangle Makefile.tangled
>>>
>>> hw:    hw.cpp g++ -o hw hw.cpp
>>>
>>> #+END_SRC
>>>
>>> $ make -f Makefile.tangled Makefile.tangled:3: *** missing separator (did
>>> you mean TAB instead of 8 spaces?).  Stop.

  reply	other threads:[~2012-05-29  3:45 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2012-05-23 21:18 Losing tabs when tangling or editing Michael Hannon
2012-05-28 12:30 ` Thomas S. Dye
2012-05-28 21:14   ` Michael Hannon
2012-05-29  3:45     ` Michael Hannon [this message]
2012-05-30  1:05     ` Bernt Hansen
2012-05-30  7:19       ` Michael Hannon
2012-05-30 18:53       ` Thomas S. Dye

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=1338263107.63395.YahooMailNeo@web161902.mail.bf1.yahoo.com \
    --to=jm_hannon@yahoo.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=tsd@tsdye.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).