[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#26191: Allow custom FTP logins.
From: |
Danny Milosavljevic |
Subject: |
bug#26191: Allow custom FTP logins. |
Date: |
Mon, 20 Mar 2017 20:44:48 +0100 |
Hi Roel,
On Mon, 20 Mar 2017 13:10:08 +0100
Roel Janssen <address@hidden> wrote:
> + (let* ((userinfo (string-split (uri-userinfo uri) #\:))
> + (username (if (and (> (length userinfo) 0)
> + (not (string= (car userinfo) "")))
> + (car userinfo) #f))
> + (password (if (> (length userinfo) 1) (cadr userinfo) #f))
It would make it more readable if you used (match ...).