schrofi
/
dotfiles
1
0
Fork 0
Code Releases Activity

set mate fonts, add new packages

master
Florian Schrofner 2023-12-15 13:39:04 +01:00
parent 017e064175
commit ef48062929
2 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
configs/configs.clj
View File

@ -19,7 +19,7 @@
;; installing spacemacs ;; installing spacemacs
(println "setting up spacemacs..") (println "setting up spacemacs..")
(-> (fs/file (str home "/.emacs.d")) (fs/delete-tree)) (-> (fs/file (str home "/.emacs.d")) (fs/delete-tree))
(safe-sh "git" "clone" "https://github.com/syl20bnr/spacemacs" (str home "/.emacs.d")) (safe-sh-as-user "git" "clone" "https://github.com/syl20bnr/spacemacs" (str home "/.emacs.d"))
(safe-sh "chown" (str user ":" user) "-R" (str home "/.emacs.d")) (safe-sh "chown" (str user ":" user) "-R" (str home "/.emacs.d"))
(println "spacemacs set up")) (println "spacemacs set up"))
@ -31,13 +31,17 @@
(defn- setup-i3 [] (defn- setup-i3 []
(println "setting up i3..") (println "setting up i3..")
(println "clearing xfce keyboard bindings..") (println "setting i3 as default wm..")
(as-> (safe-sh "xfconf-query" "--channel" "xfce4-keyboard-shortcuts" "--list") $ (safe-sh-as-user "gsettings" "set" "org.mate.session.required-components" "windowmanager" "i3")
(:out $) (safe-sh-as-user "gsettings" "set" "org.mate.session" "required-components-list" "['windowmanager', 'panel', 'dock']"))
(str/split-lines $)
(doseq [property $] (defn- setup-theme []
;;we actually need to ignore errors here, as we will hit a few undefined properties (println "setting up fonts..")
(shell/sh "xfconf-query" "--channel" "xfce4-keyboard-shortcuts" "--property" property "--set" "")))) (safe-sh-as-user "gsettings" "set" "org.mate.interface" "font-name" "Fira Code Regular 10.0")
(safe-sh-as-user "gsettings" "set" "org.mate.interface" "document-font-name" "Fira Code Regular 10.0")
(safe-sh-as-user "gsettings" "set" "org.mate.interface" "monospace-font-name" "Fira Code Regular 10.0")
(safe-sh-as-user "gsettings" "set" "org.mate.Marco.general" "titlebar-font" "Fira Code Bold 10.0")
(safe-sh-as-user "gsettings" "set" "org.mate.caja.desktop" "font" "Fira Code Regular 10.0"))
;;todo: fetch spacemacs ;;todo: fetch spacemacs
;;todo: disable locking when closing lid on ac ;;todo: disable locking when closing lid on ac
@ -55,6 +59,7 @@
(setup-i3) (setup-i3)
(println "set up i3") (println "set up i3")
(setup-theme)
;;creating projects dir ;;creating projects dir
(let [projects-dir (str home "/Projects")] (let [projects-dir (str home "/Projects")]

17
packages/packages.clj
View File

@ -12,7 +12,7 @@
(def home (str "/home/" user)) (def home (str "/home/" user))
(def packages { (def packages {
:base ["bluez" "chromium" "curl" "emacs-gtk3" "fish-shell" "firefox" "flameshot" "flatpak" "git" "htop" "i3" "pass" "ranger" "Signal-Desktop" "thunar-archive-plugin" "unzip" "wget" "xarchiver" "xclip" "xfce4-i3-workspaces-plugin"] :base ["bluez" "chromium" "curl" "emacs-gtk3" "engrampa" "feh" "fish-shell" "firefox" "flameshot" "flatpak" "font-firacode" "gimp" "git" "htop" "i3" "i3status" "mate" "mate-power-manager" "mate-terminal" "mate-utils" "pass" "ranger" "Signal-Desktop" "thunar-archive-plugin" "unzip" "wget" "xbindkeys" "xclip" "xz"]
:work ["kotlin-bin" "scrcpy"] :work ["kotlin-bin" "scrcpy"]
}) })
@ -53,21 +53,26 @@
(safe-sh "chown" (str user ":" user) "-R" target-directory))) (safe-sh "chown" (str user ":" user) "-R" target-directory)))
;;installing jetbrains toolbox ;;installing jetbrains toolbox
(println "installing jetbrains toolbox..") (defn- install-jetbrains-toolbox []
(println "installing jetbrains toolbox..")
(let [target-directory (str home "/Applications/JetbrainsToolbox")] (let [target-directory (str home "/Applications/JetbrainsToolbox")]
(install-application (install-application
toolbox-link toolbox-link
"toolbox.tar.gz" "toolbox.tar.gz"
target-directory target-directory
#(safe-sh "tar" "-xzf" %1 "-C" %2))) #(safe-sh "tar" "-xzf" %1 "-C" %2)))
(println "jetbrains toolbox installed") (println "jetbrains toolbox installed"))
;;installing http toolkit ;;installing http toolkit
(println "installing http toolkit..") (defn- install-http-toolkit []
(let [target-directory (str home "/Applications/HttpToolkit")] (println "installing http toolkit..")
(let [target-directory (str home "/Applications/HttpToolkit")]
(install-application (install-application
http-toolkit-link http-toolkit-link
"httptoolkit.zip" "httptoolkit.zip"
target-directory target-directory
#(safe-sh "unzip" %1 "-d" %2))) #(safe-sh "unzip" %1 "-d" %2)))
(println "http toolkit installed") (println "http toolkit installed"))
;;(install-jetbrains-toolbox)
;;(install-http-toolkit)