From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from mail4-relais-sop.national.inria.fr (mail4-relais-sop.national.inria.fr [192.134.164.105])
	by walapai.inria.fr (8.13.6/8.13.6) with ESMTP id p3EAq2sd012907
	for <caml-list@sympa-roc.inria.fr>; Thu, 14 Apr 2011 12:52:02 +0200
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: AhgCALnQpk1KfVK2kGdsb2JhbAClYQgUAQEBAQkJDQcUBCGmGIpogiOFMDCIXQEBAwaFaASNb4NzfIRhOg
X-IronPort-AV: E=Sophos;i="4.64,210,1301868000"; 
   d="scan'208";a="92853860"
Received: from mail-wy0-f182.google.com ([74.125.82.182])
  by mail4-smtp-sop.national.inria.fr with ESMTP/TLS/RC4-SHA; 14 Apr 2011 12:51:57 +0200
Received: by wyf23 with SMTP id 23so2327259wyf.27
        for <caml-list@inria.fr>; Thu, 14 Apr 2011 03:51:57 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
        d=gmail.com; s=gamma;
        h=domainkey-signature:from:content-type:content-transfer-encoding
         :subject:date:message-id:to:mime-version:x-mailer;
        bh=HRil6ABfr8mxT2pq07VZ3KDC9l8H+Hdmx6SJk5YV7YY=;
        b=Fn5TMx/e2mMT0Vmazb/Co7X0SnoMo/ED/GXyJJcgER5TN2UNU9/m8AiejS3pY4dmCY
         xf/Qg87YNdRu8oLey3Jfww3LpvKqV6lcDVyfHjl55f94aeUdEEIkCJxOcZ160DEncqUY
         /lJ16kuHk3ZBMb+GhN1256JrejY1Tdp2V+3ZM=
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=gamma;
        h=from:content-type:content-transfer-encoding:subject:date:message-id
         :to:mime-version:x-mailer;
        b=HyeVCVbPrT1ab+6/v0lgiqJ5lnXmVtipX6hv4Cj5m+QZPdJu5rFDVaLeEnQcU9opzx
         AOUwbWRmilZh2WOUd10scwRL9NwLPVWo7OVj59GGeBPDEla9/kpVJT4yvTuF3HKOKNQG
         YXYrlstmZN3B63/GAVxZH33Z6F1GOU9qHc1lI=
Received: by 10.227.195.6 with SMTP id ea6mr661779wbb.74.1302778317016;
        Thu, 14 Apr 2011 03:51:57 -0700 (PDT)
Received: from [192.168.0.196] ([95.60.213.7])
        by mx.google.com with ESMTPS id l24sm907061wbc.64.2011.04.14.03.51.54
        (version=TLSv1/SSLv3 cipher=OTHER);
        Thu, 14 Apr 2011 03:51:56 -0700 (PDT)
From: Joel Reymont <joelr1@gmail.com>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Date: Thu, 14 Apr 2011 11:51:53 +0100
Message-Id: <3BDDAC1C-1FE6-48D4-8198-019ED7EDC37D@gmail.com>
To: caml-list <caml-list@inria.fr>
Mime-Version: 1.0 (Apple Message framework v1084)
X-Mailer: Apple Mail (2.1084)
Subject: [Caml-list] tuareg custom indenting

How do I add custom indenting to tuareg mode?

Assuming

let (|>) x f = f x
let (||>) x f = let () = f x in x

I get formatting like this:

      while true do   
        ZMQ.Socket.recv sock
    |>      Piqirun.init_from_string
    |>      Request.parse
      ||>     Request.print "-> req"
    |>      dispatch
      ||>     Reply.print "<- rep"
    |>      Reply.to_buffer
    |>      Piqirun.to_string
    |>      ZMQ.Socket.send sock
      done

Whereas I would like the |> and ||> to be aligned like this

      while true do   
        ZMQ.Socket.recv sock
        |>      Piqirun.init_from_string
        |>      Request.parse
        ||>     Request.print "-> req"
        |>      dispatch
        ||>     Reply.print "<- rep"
        |>      Reply.to_buffer
        |>      Piqirun.to_string
        |>      ZMQ.Socket.send sock
      done


    Thanks, Joel

--------------------------------------------------------------------------
- for hire: mac osx device driver ninja, kernel extensions and usb drivers
---------------------+------------+---------------------------------------
http://wagerlabs.com | @wagerlabs | http://www.linkedin.com/in/joelreymont
---------------------+------------+---------------------------------------