Notebook function formatting

Question

I've recently started a course in which I am learning how to solve different problems using Mathematica. A large part of the course covers creating your own functions. The thing is I don't like how my code looks.

Take for example the following:

CreateTuples[list_, size_] := 
  If[list != {},
    Prepend[
      CreateTuples[Take[list, size-Length[list]], size],
      Take[list, size]
    ], (* Prepend *)
    {}
  ] (* If *)

This example is still small and simple, but already has some weird constructions like the {} in the If.

Are there any general tips or documents that describe some good styling rules for notebook files?

Also, while my example uses a function, my remarks also go for large expressions of other kinds. I just want to keep everything readable for myself and others.

But it might just be the software developer in me that is not used to bracketing like this.