Keepassxc

=========

Keepassxc is a password manager.  Parts of the configuration file is used for

storing states.  Unfortunately, we cannot store parts of that file as read-write

and the rest as read-only.  We treat this file as a static configuration file,

but you can also create a symlink with the home utilities if you prefer.

Main Configuration

------------------

The main configuration is not complete compared to the configuration possibilities

of keepassxc.  It currently implemets most of the configuration, but excludes

a few difficult parts.

**Scheme Procedure**: (keepassxc-home config)

Generates a configuration file for keepassxc, according to config, a

keepassxc-configuration object.

**Data Type**: keepassxc-configuration

Data type that represents the Keepassxc configuration.  This data type has the

following fields:

* **last-databases** (default '()): A list of databases the user last tried to

  open.  This should probably set to the list of databases you want to use.

* **last-dir** (default #f): The last directory opened by the user.  This

  should probably set to your data directory, `/data/alice` in the installation

  example.

* **last-databases** (default '()): A list of databases the user last opened.

  This should probably set to the list of databases you want to use.

* **show-toolbar?** (default #t): Undocumented.

* **hide-passwords?** (default #t): Whether to show passwords on the GUI.

* **hide-usernames?** (default #f): Whether to show user names on the GUI.

* **ensure-every?** (default #t): Whether to use every class of characters in

  password, or allow passwords that don't contain every enables classes.

* **exclude-alike?** (default #t): Whether to prevent using similar characters.

* **password-length** (default 28): The default generated password length.

* **use-eascii?** (default #f): Whether to use extended ascii in generated

  passwords.

* **use-lower-case?** (default #t): Whether to use lower case letters in

  generated passwords.

* **use-upper-case?** (default #t): Whether to use upper case letters in

  generated passwords.

* **use-numbers?** (default #t): Whether to use numbers in generated passwords.

* **use-special-chars?** (default #f): Whether to use special characters in

  generated passwords.

* **type** (default 0): Undocumented.

* **word-count** (default 7): Undocumented.

* **wordlist** (default "eff_large.wordlist"): Undocumented.

* **word-separator** (default " "): Undocumented.

Example

-------

```scheme

(keepassxc-home

  (keepassxc-configuration

    (last-databases '("/data/alice/pass.kbdx"))

    (last-dir "/data/alice")

    (last-opened-databases '("/data/alice/pass.kbdx"))))

```

;;; Guix Home Manager.

;;;

;;; Copyright ?? 2019 Julien Lepiller <julien@lepiller.eu>

;;;

;;; This program is free software: you can redistribute it and/or modify

;;; it under the terms of the GNU General Public License as published by

;;; the Free Software Foundation, either version 3 of the License, or

;;; (at your option) any later version.

;;;

;;; This program is distributed in the hope that it will be useful,

;;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;;; GNU General Public License for more details.

;;;

;;; You should have received a copy of the GNU General Public License

;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

(define-module (home keepassxc)

  #:use-module (guix build utils)

  #:use-module (guix gexp)

  #:use-module (guix records)

  #:use-module (gnu packages lxde)

  #:use-module (ice-9 match)

  #:use-module (home utils)

  #:export (keepassxc-configuration

            keepassxc-last-databases

            keepassxc-last-dir

            keepassxc-last-opened-databases

            keepassxc-show-toolbar?

            keepassxc-hide-passwords?

            keepassxc-hide-usernames?

            keepassxc-eaasci?

            keepassxc-ensure-every?

            keepassxc-exclude-alike?

            keepassxc-password-length

            keepassxc-use-lower-case?

            keepassxc-use-numbers?

            keepassxc-use-special-chars?

            keepassxc-type

            keepassxc-use-upper-case?

            keepassxc-word-count

            keepassxc-wordlist

            keepassxc-word-separator

            keepassxc-home))

(define-record-type* <keepassxc-configuration>

  keepassxc-configuration make-keepassxc-configuration

  keepassxc-configuration?

  (last-databases        keepassxc-last-databases

                         (default '()))

  (last-dir              keepassxc-last-dir

                         (default #f))

  (last-opened-databases keepassxc-last-opened-databases

                         (default '()))

  (show-toolbar?         keepassxc-show-toolbar?

                         (default #t))

  (hide-passwords?       keepassxc-hide-passwords?

                         (default #t))

  (hide-usernames?       keepassxc-hide-usernames?

                         (default #f))

  (ensure-every?         keepassxc-ensure-every?

                         (default #t))

  (exclude-alike?        keepassxc-exclude-alike?

                         (default #t))

  (password-length       keepassxc-password-length

                         (default 28))

  (use-eascii?           keepassxc-use-eascii?

                         (default #f))

  (use-lower-case?       keepassxc-use-lower-case?

                         (default #t))

  (use-upper-case?       keepassxc-use-upper-case?

                         (default #t))

  (use-numbers?          keepassxc-use-numbers?

                         (default #t))

  (use-special-chars?    keepassxc-use-special-chars?

                         (default #f))

  (type                  keepassxc-type

                         (default 0))

  (word-count            keepassxc-word-count

                         (default 7))

  (wordlist              keepassxc-wordlist

                         (default "eff_large.wordlist"))

  (word-separator        keepassxc-word-separator

                         (default " ")))

(define (keepassxc-home config)

  (computed-file "keepassxc-home"

    (let ((keepassxc.ini (make-ini-file "keepassxc.ini"

                           `(("General"

                              (("LastDatabases"

                                ,(string-join

                                   (keepassxc-last-databases config)

                                   ", "))

                               ("LastDir"

                                ,(or (keepassxc-last-dir config) ""))

                               ("LastOpenedDatabases"

                                ,(string-join

                                   (keepassxc-last-opened-databases config)

                                   ", "))))

                             ("GUI"

                              (("HidePasswords"

                                ,(keepassxc-hide-passwords? config))

                               ("HideUsernames"

                                ,(keepassxc-hide-usernames? config))))

                             ("generator"

                              (("EASCII"

                                ,(keepassxc-use-eascii? config))

                               ("EnsureEvery"

                                ,(keepassxc-ensure-every? config))

                               ("ExcludeAlike"

                                ,(keepassxc-exclude-alike? config))

                               ("Length"

                                ,(keepassxc-password-length config))

                               ("LowerCase"

                                ,(keepassxc-use-lower-case? config))

                               ("Numbers"

                                ,(keepassxc-use-numbers? config))

                               ("SpecialChars"

                                ,(keepassxc-use-special-chars? config))

                               ("Type"

                                ,(keepassxc-type config))

                               ("UpperCase"

                                ,(keepassxc-use-upper-case? config))

                               ("WordCount"

                                ,(keepassxc-word-count config))

                               ("WordList"

                                ,(keepassxc-wordlist config))

                               ("WordSeparator"

                                ,(keepassxc-word-separator config))))))))

      #~(begin

          (let ((keepassxc-dir (string-append #$output "/.config/keepassxc")))

            (use-modules (guix build utils))

            (mkdir-p keepassxc-dir)

            (copy-file #$keepassxc.ini (string-append keepassxc-dir "/keepassxc.ini")))))

    #:options

    '(#:local-build? #t

      #:modules ((guix build utils)))))