Topic: How to set hpassoc to 0 if loginname = A A and/or B B or else 1

[MvdP]

I have a couple of coworkers and they all prefer a different settings.( F.i hpassoc 0 or 1)
Is it possible  to set hpassoc to 0 if username is A A or B B and else set to 1 in an mnl file.?

I have this for now but it ain't working.
(progn
(cond ( = getvar loginname "firstname lastname" (setvar "hpassoc" 1)))
)

[David Hall]

i think you need an IF statement

[ronjonp]

Code: [Select]

  (setq name (strcase (getvar 'logginame) T))
  (cond ((= name "username")
;;do stuff
)
((= name "username2")
;;do stuff
)
  )

[MP]

I think you're over engineering the solution (as a former boss used to say). Consider ...

Code: [Select]

(setvar "hpassoc"
    (if
        (member
            (strcase (getvar "loginname"))
           '("BARNEY" "FRED" "BAMBAM")
        )
        0
        1 ;; the default setting
    )
)

[ronjonp]

I think you're over engineering the solution (as a former boss used to say). Consider ...

Code: [Select]

(setvar "hpassoc"
    (if
        (member
            (strcase (getvar "loginname"))
           '("BARNEY" "FRED" "BAMBAM")
        )
        0
        1 ;; the default setting
    )
)

Now why didn't I think of that... Thanks for idea MP

[MP]

My pleasure Ron.

[MvdP]

Thank you very much.

[MP]

You're welcome MvdP.