From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.glorb.com!peer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!post02.iad.highwinds-media.com!news.flashnewsgroups.com-b7.4zTQh5tI3A!not-for-mail
From: Stephen Leake <stephen_leake@stephe-leake.org>
Newsgroups: comp.lang.ada
Subject: Re: IDE's that support Ada
References: <2e8f1414-5556-465f-a7bc-f1513ec973aa@googlegroups.com>
 	<85y4s08x0d.fsf@stephe-leake.org>
 	<alpine.CYG.2.11.1410280739140.5220@WIL414CHAPIN.vtc.vsc.edu>
 	<85egtqwnte.fsf@stephe-leake.org>
 	<alpine.CYG.2.11.1410291850510.4816@WIL414CHAPIN.vtc.vsc.edu>
 	<103aecg1dl8pm$.1xqa4xaspt6zq.dlg@40tude.net>
 	<fed7957c-e727-4eba-b324-e1699601e10a@googlegroups.com>
 	<alpine.CYG.2.11.1410301218350.6536@WIL414CHAPIN.vtc.vsc.edu>
 	<85vbmyvavi.fsf@stephe-leake.org>
 	<87vbmwhb5m.fsf_-_@adaheads.sparre-andersen.dk>
 	<85ioiu97uc.fsf@stephe-leake.org>
 	<87tx2eln3v.fsf@adaheads.sparre-andersen.dk>
Date: Wed, 05 Nov 2014 08:25:21 -0600
Message-ID: <85lhnp7mi6.fsf@stephe-leake.org>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.94 (windows-nt)
Cancel-Lock: sha1:vjO3dNXD45XB9a8P43ay22xTcug=
MIME-Version: 1.0
Content-Type: text/plain
X-Complaints-To: abuse@flashnewsgroups.com
Organization: FlashNewsgroups.com
X-Trace: 14919545a3352e3fb833018853
X-Received-Bytes: 3384
X-Received-Body-CRC: 913185039
Xref: news.eternal-september.org comp.lang.ada:23037
Date: 2014-11-05T08:25:21-06:00
List-Id: <comp.lang.ada>

Jacob Sparre Andersen <jacob@jacob-sparre.dk> writes:

> Stephen Leake wrote:
>> Jacob Sparre Andersen <jacob@jacob-sparre.dk> writes:
>
>>> I'm not completely happy with the Emacs Ada mode indentation, but I
>>> mostly just live with it (and have a fix for the inserted TAB
>>> characters in my makefiles).
>>
>> ada-mode has nothing to do with makefiles, so I'm confused.
>
> My English isn't perfect: What I mean is that I have a "standard" rule
> in my makefiles for substituting TAB characters in Ada source files with
> spaces.

Ah, that makes sense. I do that in Emacs with:

      (add-hook 'before-save-hook
		(lambda () (untabify (point-min) (point-max)))
		nil t))

That's in ada-mode-hook (and in other modes where I want it); the full
code is:

(defun sal-ada-mode-setup ()
  (set (make-local-variable 'hippie-expand-try-functions-list)
	(list 'ada-skel-hippie-try
	      'try-expand-dabbrev
	      'try-expand-dabbrev-all-buffers
	      'try-expand-dabbrev-from-kill))

  (let ((case-fold-search t))
    (cond

     ((string-match "arm_info" default-directory)
      ;; Randy keeps tabs in files, indents 'case'
      (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
      (add-hook 'before-save-hook 'copyright-update nil t)
      )

     ((string-match "org.emacs.ada-mode.*/test" default-directory)
      ;; use default ada-mode options for tests
      (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
      (add-hook 'before-save-hook 'copyright-update nil t)
      )

     (t
      ;; my projects
      (setq ada-indent-when 0)
      (setq ada-indent-label 0)
      (setq ada-indent-record-rel-type 0)
      (setq ada-fill-comment-prefix "--  ");; match gnat style
      (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
      (add-hook 'before-save-hook 'copyright-update nil t)
      (add-hook 'before-save-hook
		(lambda () (untabify (point-min) (point-max)))
		nil t))
      )))

(setq ada-skel-initial-string "{header}")
(add-to-list 'ada-prj-parser-alist (cons "prj" 'ada-prj-parse-file-1))
(add-hook 'ada-mode-hook 'sal-ada-mode-setup)

-- 
-- Stephe