diff --git a/configs/configs.clj b/configs/configs.clj index 4ac4df6..a797e5b 100755 --- a/configs/configs.clj +++ b/configs/configs.clj @@ -15,16 +15,29 @@ (def options (:options (parse-opts *command-line-args* cli-options))) +(defn- setup-spacemacs [user home] + ;; installing spacemacs + (println "setting up spacemacs..") + (-> (fs/file (str home "/.emacs.d")) (fs/delete-tree)) + (safe-sh "git" "clone" "https://github.com/syl20bnr/spacemacs" (str home "/.emacs.d")) + (safe-sh "chown" (str user ":" user) "-R" (str home "/.emacs.d")) + (println "spacemacs set up")) + (if-let [user (:user options)] (let [home (str "/home/" user)] ;;todo: fetch spacemacs ;;todo: disable locking when closing lid on ac (println "applying configuration..") - ;; installing spacemacs - (-> (fs/file (str home "/.emacs.d")) (fs/delete-tree)) - (safe-sh "git" "clone" "https://github.com/syl20bnr/spacemacs" (str home "/.emacs.d")) - (safe-sh "chown" (str user ":" user) "-R" (str home "/.emacs.d")) + ;;(setup-spacemacs user home) + + ;;change shell to fish + (safe-sh "chsh" "-s" "/usr/bin/fish" user) + (println "changed shell to fish") + + (safe-sh "git" "config" "--global" "user.name" "Florian Schrofner") + (safe-sh "git" "config" "--global" "user.email" "florian@schro.fi") + (println "changed git user data") (println "configuration applied")) - (println "error: must provide a user to set up")) \ No newline at end of file + (println "error: must provide a user to set up")) diff --git a/packages/packages.clj b/packages/packages.clj index 2eda78e..3b31b9f 100755 --- a/packages/packages.clj +++ b/packages/packages.clj @@ -18,12 +18,13 @@ (def home (str "/home/" user)) (def packages { - :base ["bluez" "chromium" "emacs-gtk3" "fish-shell" "firefox" "flatpak" "git" "htop" "pass" "ranger" "thunar-archive-plugin" "wget" "xarchiver"] + :base ["bluez" "chromium" "emacs-gtk3" "fish-shell" "firefox" "flameshot" "flatpak" "git" "htop" "pass" "ranger" "Signal-Desktop" "thunar-archive-plugin" "wget" "xarchiver" "xclip"] :work ["kotlin-bin" "scrcpy"] }) (def flatpak-packages { :work ["com.getpostman.Postman" "com.slack.Slack"] + :game ["com.discordapp.Discord"] }) (def toolbox-link "https://download.jetbrains.com/toolbox/jetbrains-toolbox-2.1.1.18388.tar.gz") @@ -53,4 +54,4 @@ (fs/gunzip download-file target-directory {:replace-existing true}) (fs/delete (fs/file download-file)) (safe-sh "chown" (str user ":" user) "-R" target-directory)) -(println "jetbrains toolbox installed") \ No newline at end of file +(println "jetbrains toolbox installed")