Hi,

Today I wanted to update my manifest with
musescore-3.6.2, ardour, audacity, obs, vlc.

and it wanted to build musescore 4.02 (the current new version).

I stopped it immeadiately.

I was wondering why the update didn’t want to keep musescore-3.6.2
even though the version 3.6.2 is clearly in the manifest.

If so, I can never update this manifest
or I create a separate musescore-3.6.2 profile
with only that package, which I will never update.



Kind regards

Gottfried


>> Am 19.03.23 um 16:44 schrieb Martin Castillo:
>>> Hi,
>>>
>>> Am 19.03.23 um 12:05 schrieb Gottfried:
>>>> Hi,
>>>>
>>>> thanks very much for your help. I appreciate it very much.
>>>>
>>>>> Does musescore work? What version is installed with this manifest I sent you? mscore --version or so should tell you the version.
>>>>
>>>> I checked:
>>>> gfp@Tuxedo ~$ guix shell -p /home/gfp/Projekte/Musik/guix-profil
>>>> gfp@Tuxedo ~ [env]$ mscore --version
>>>> QEventLoop: Cannot be used without QApplication
>>>> QEventLoop: Cannot be used without QApplication
>>>> MuseScore4 4.0.1
>>>>
>>>> It installed the version 4.0.1 (the new version) unfortunately.
>>>> I don’t know why?
>>>
>>> I don't know either. I'm a guix beginner, too, and probably my way of redefining an old version of musescore was to simple?
>>>
>>> Here is the musescore definition copied from an older guix including all use-modules (some of which are unnecessary, but I don't know how to quickly find out which ones are which):
>>>
>>> ;; Manifest Musik Programme
>>> (use-modules (gnu packages music)
>>> ; necessary for musescore
>>>            (guix packages)
>>>            (guix licenses)
>>>            (guix git-download)
>>>            (guix build-system qt))
>>>     (use-modules (gnu packages audio))
>>>     (use-modules (gnu packages linux)) ; for alsa-utils
>>>
>>> ; partly necessary
>>>     (use-modules (gnu packages admin))
>>>     (use-modules (gnu packages algebra))
>>>     (use-modules (gnu packages apr))
>>>     (use-modules (gnu packages autotools))
>>>     (use-modules (gnu packages assembly))
>>>     (use-modules (gnu packages backup))
>>>     (use-modules (gnu packages base)) ;libbdf
>>>     (use-modules (gnu packages bash))
>>>     (use-modules (gnu packages benchmark))
>>>     (use-modules (gnu packages bison))
>>>     (use-modules (gnu packages boost))
>>>     (use-modules (gnu packages build-tools))
>>>     (use-modules (gnu packages cdrom))
>>>     (use-modules (gnu packages code))
>>>     (use-modules (gnu packages check))
>>>     (use-modules (gnu packages cmake))
>>>     (use-modules (gnu packages compression))
>>>     (use-modules (gnu packages cpp))
>>>     (use-modules (gnu packages crypto))
>>>     (use-modules (gnu packages curl))
>>>     (use-modules (gnu packages cyrus-sasl))
>>>     (use-modules (gnu packages datastructures))
>>>     (use-modules (gnu packages docbook))
>>>     (use-modules (gnu packages documentation))
>>>     (use-modules (gnu packages emacs))
>>>     (use-modules (gnu packages file))
>>>     (use-modules (gnu packages flex))
>>>     (use-modules (gnu packages fltk))
>>>     (use-modules (gnu packages fonts))
>>>     (use-modules (gnu packages fontutils))
>>>     (use-modules (gnu packages freedesktop))
>>>     (use-modules (gnu packages game-development))
>>>     (use-modules (gnu packages gnupg))
>>>     (use-modules (gnu packages gettext))
>>>     (use-modules (gnu packages ghostscript))
>>>     (use-modules (gnu packages gl))
>>>     (use-modules (gnu packages glib))
>>>     (use-modules (gnu packages gnome))
>>>     (use-modules (gnu packages gnunet))
>>>     (use-modules (gnu packages gpodder))
>>>     (use-modules (gnu packages graphics))
>>>     (use-modules (gnu packages graphviz))
>>>     (use-modules (gnu packages gstreamer))
>>>     (use-modules (gnu packages gtk))
>>>     (use-modules (gnu packages guile))
>>>     (use-modules (gnu packages haskell))
>>>     (use-modules (gnu packages icu4c))
>>>     (use-modules (gnu packages image))
>>>     (use-modules (gnu packages imagemagick))
>>>     (use-modules (gnu packages java))
>>>     (use-modules (gnu packages libffi))
>>>     (use-modules (gnu packages libevent))
>>>     (use-modules (gnu packages libusb))
>>>     (use-modules (gnu packages lirc))
>>>     (use-modules (gnu packages llvm))
>>>     (use-modules (gnu packages man))
>>>     (use-modules (gnu packages mp3))
>>>     (use-modules (gnu packages mpd))
>>>     (use-modules (gnu packages ncurses))
>>>     (use-modules (gnu packages netpbm))
>>>     (use-modules (gnu packages pcre))
>>>     (use-modules (gnu packages pdf))
>>>     (use-modules (gnu packages perl))
>>>     (use-modules (gnu packages perl-check))
>>>     (use-modules (gnu packages perl-web))
>>>     (use-modules (gnu packages php))
>>>     (use-modules (gnu packages pkg-config))
>>>     (use-modules (gnu packages protobuf))
>>>     (use-modules (gnu packages pulseaudio)) ;libsndfile
>>>     (use-modules (gnu packages python))
>>>     (use-modules (gnu packages python-build))
>>>     (use-modules (gnu packages python-check))
>>>     (use-modules (gnu packages python-compression))
>>>     (use-modules (gnu packages python-web))
>>>     (use-modules (gnu packages python-xyz))
>>>     (use-modules (gnu packages qt))
>>>     (use-modules (gnu packages rdf))
>>>     (use-modules (gnu packages readline))
>>>     (use-modules (gnu packages rsync))
>>>     (use-modules (gnu packages sdl))
>>>     (use-modules (gnu packages serialization))
>>>     (use-modules (gnu packages sphinx))
>>>     (use-modules (gnu packages sqlite))
>>>     (use-modules (gnu packages stb))
>>>     (use-modules (gnu packages tcl))
>>>     (use-modules (gnu packages texinfo))
>>>     (use-modules (gnu packages tex))
>>>     (use-modules (gnu packages time))
>>>     (use-modules (gnu packages tls))
>>>     (use-modules (gnu packages version-control))
>>>     (use-modules (gnu packages video))
>>>     (use-modules (gnu packages vim))       ;for 'xxd'
>>>     (use-modules (gnu packages web))
>>>     (use-modules (gnu packages webkit))
>>>     (use-modules (gnu packages wm))
>>>     (use-modules (gnu packages wxwidgets))
>>>     (use-modules (gnu packages xdisorg))
>>>     (use-modules (gnu packages xml))
>>>     (use-modules (gnu packages xorg))
>>>     (use-modules (gnu packages xiph))
>>>     (use-modules (gnu packages golang))
>>>     (use-modules (gnu packages lua))
>>>
>>>
>>> ;; copied from  guix ced3be2b562866b82f97a530cd66610c84c381f7
>>> (define-public musescore-3
>>>     (package
>>>       (name "musescore")
>>>       (version "3.6.2")
>>>       (source
>>>        (origin
>>>          (method git-fetch)
>>>          (uri (git-reference
>>>                (url "https://github.com/musescore/MuseScore")
>>>                (commit (string-append "v" version))))
>>>          (file-name (git-file-name name version))
>>>          (sha256
>>>           (base32 "0szvb6mlzy9df9lrq546rrpixa480knzij1wgh6ilflxz87q048q"))
>>>          (modules '((guix build utils)))
>>>          (snippet
>>>           ;; Remove unused libraries.
>>>           '(begin
>>>              (for-each delete-file-recursively
>>>                        '("thirdparty/freetype"
>>>                          "thirdparty/openssl"
>>>                          "thirdparty/portmidi"
>>>                          "thirdparty/qt-google-analytics"))))))
>>>       (build-system qt-build-system)
>>>       (arguments
>>>        `(#:configure-flags
>>>          `("-DBUILD_TELEMETRY_MODULE=OFF" ;don't phone home
>>>            "-DBUILD_WEBENGINE=OFF"
>>>            "-DDOWNLOAD_SOUNDFONT=OFF"
>>>            "-DMUSESCORE_BUILD_CONFIG=release"
>>>            "-DUSE_SYSTEM_FREETYPE=ON")
>>>          ;; There are tests, but no simple target to run.  The command used to
>>>          ;; run them is:
>>>          ;;
>>>          ;;   make debug && sudo make installdebug && cd \
>>>          ;;   build.debug/mtest && make && ctest
>>>          ;;
>>>          ;; Basically, it requires to start a whole new build process.
>>>          ;; So we simply skip them.
>>>          #:tests? #f))
>>>       (inputs
>>>        (list alsa-lib
>>>              freetype
>>>              `(,gtk+ "bin")               ;for gtk-update-icon-cache
>>>              jack-1
>>>              lame
>>>              libogg
>>>              libsndfile
>>>              libvorbis
>>>              portaudio
>>>              portmidi
>>>              pulseaudio
>>>              qtbase-5
>>>              qtdeclarative-5
>>>              qtgraphicaleffects
>>>              qtquickcontrols2-5
>>>              qtscript
>>>              qtsvg-5
>>>              qtxmlpatterns))
>>>       (native-inputs
>>>        (list pkg-config qttools-5))
>>>       (synopsis "Music composition and notation software")
>>>       (description
>>>        "MuseScore is a music score typesetter.  Its main purpose is the creation
>>> of high-quality engraved musical scores in a WYSIWYG environment.
>>>
>>> It supports unlimited staves, linked parts and part extraction, tablature,
>>> MIDI input, percussion notation, cross-staff beaming, automatic transposition,
>>> lyrics (multiple verses), fretboard diagrams, and in general everything
>>> commonly used in sheet music.  Style options and style sheets to change the
>>> appearance and layout are provided.
>>>
>>> MuseScore can also play back scores through the built-in sequencer and SoundFont
>>> sample library.")
>>>       (home-page "https://musescore.org")
>>>       (license gpl2)))
>>>
>>> ;; combine both manifest lists:
>>> (concatenate-manifests
>>>     (list
>>>       (packages->manifest (list musescore-3))
>>>       (specifications->manifest '("ardour" "audacious" "audacity" "obs" "vlc"))))
>>>
>>>
>>> I hope this works.
>>
> 
> You say directories, but those are probably symlinks. The guix-profile points to guix-profile-2-link. If that is correct you can delete the guix-profile-1-link. The next time guix gc is called it will actually delete the files belonging to the first generation of that profile.
> When you rerun guix shell (to update the softwares) with that profile a guix-profile-3-link will be created and guix-profile will link to that. You then may delete guix-profile-2-link.

--