Added important hidden files
parent
3640b15090
commit
a02420205b
|
@ -0,0 +1,2 @@
|
||||||
|
[Desktop Entry]
|
||||||
|
Icon=./.icon.png
|
|
@ -0,0 +1,17 @@
|
||||||
|
#---- Gambas files to ignore (v5)
|
||||||
|
*.gambas
|
||||||
|
.lock
|
||||||
|
*~
|
||||||
|
core
|
||||||
|
core.*
|
||||||
|
vgcore
|
||||||
|
vgcore.*
|
||||||
|
.kdbg*
|
||||||
|
.*.prof
|
||||||
|
.lang/*.pot
|
||||||
|
.gambas/*
|
||||||
|
.settings
|
||||||
|
.startup
|
||||||
|
.list
|
||||||
|
.info
|
||||||
|
#----
|
|
@ -0,0 +1,13 @@
|
||||||
|
# Gambas Project File 3.0
|
||||||
|
Title=Vimus
|
||||||
|
Startup=FMain
|
||||||
|
Icon=icon2048.png
|
||||||
|
Version=0.0.1
|
||||||
|
Component=gb.image
|
||||||
|
Component=gb.gui.qt
|
||||||
|
Component=gb.form
|
||||||
|
Description="A simple song and album visualizer made with Gambas"
|
||||||
|
Authors="Gianmarco Gargiulo"
|
||||||
|
TabSize=2
|
||||||
|
Language=en_US
|
||||||
|
Packager=1
|
|
@ -0,0 +1,44 @@
|
||||||
|
' Gambas class file
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub Timer1_Timer()
|
||||||
|
|
||||||
|
Dim songTitle As String
|
||||||
|
Dim songArtist As String
|
||||||
|
Dim songAlbum As String
|
||||||
|
Dim songYear As String
|
||||||
|
Dim songCover As String
|
||||||
|
|
||||||
|
'Getting the title
|
||||||
|
Shell "dbus-send --print-reply --session --dest=org.mpris.MediaPlayer2.clementine /org/mpris/MediaPlayer2 org.freedesktop.DBus.Properties.Get string:'org.mpris.MediaPlayer2.Player' string:'Metadata' | sed -n '/title/{n;p}' | cut -d '\"' -f 2" To songTitle
|
||||||
|
songTitle = Replace$(songTitle, "\n", "")
|
||||||
|
|
||||||
|
'Getting the artist name
|
||||||
|
Shell "dbus-send --print-reply --session --dest=org.mpris.MediaPlayer2.clementine /org/mpris/MediaPlayer2 org.freedesktop.DBus.Properties.Get string:'org.mpris.MediaPlayer2.Player' string:'Metadata' | sed -n '/artist/{n;n;p}' | cut -d '\"' -f 2" To songArtist
|
||||||
|
songArtist = Replace$(songArtist, "\n", "")
|
||||||
|
|
||||||
|
'Getting the album name
|
||||||
|
Shell "dbus-send --print-reply --session --dest=org.mpris.MediaPlayer2.clementine /org/mpris/MediaPlayer2 org.freedesktop.DBus.Properties.Get string:'org.mpris.MediaPlayer2.Player' string:'Metadata' | sed -n '/album/{n;p}' | cut -d '\"' -f 2" To songAlbum
|
||||||
|
songAlbum = Replace$(songAlbum, "\n", "")
|
||||||
|
|
||||||
|
'Getting the year
|
||||||
|
Shell "dbus-send --print-reply --session --dest=org.mpris.MediaPlayer2.clementine /org/mpris/MediaPlayer2 org.freedesktop.DBus.Properties.Get string:'org.mpris.MediaPlayer2.Player' string:'Metadata' | sed -n '/year/{n;p}' | cut -d '\"' -f 2 | awk '{ print $3 }'" To songYear
|
||||||
|
songYear = Replace$(songYear, "\n", "")
|
||||||
|
|
||||||
|
'Getting the cover art
|
||||||
|
Shell "dbus-send --print-reply --session --dest=org.mpris.MediaPlayer2.clementine /org/mpris/MediaPlayer2 org.freedesktop.DBus.Properties.Get string:'org.mpris.MediaPlayer2.Player' string:'Metadata' | sed -n '/artUrl/{n;p}' | cut -d '\"' -f 2" To songCover
|
||||||
|
songCover = Replace$(songCover, "\n", "")
|
||||||
|
songCover = Replace$(songCover, "file://", "")
|
||||||
|
|
||||||
|
'Displaying all the data on screen
|
||||||
|
TitleLabel.Text = songTitle
|
||||||
|
ArtistLabel.Text = songArtist & " · " & songAlbum & " (" & songYear & ")"
|
||||||
|
CoverPic.Picture = Picture.Load(songCover)
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub Form_Open()
|
||||||
|
|
||||||
|
Timer1.Start
|
||||||
|
|
||||||
|
End
|
|
@ -0,0 +1,31 @@
|
||||||
|
# Gambas Form File 3.0
|
||||||
|
|
||||||
|
{ Form Form
|
||||||
|
MoveScaled(0,0,148,89)
|
||||||
|
Background = Color.Black
|
||||||
|
FullScreen = True
|
||||||
|
{ MainPanel Panel
|
||||||
|
MoveScaled(17.5714,15.5714,112.8571,57.8571)
|
||||||
|
{ ArtistLabel Label
|
||||||
|
MoveScaled(0.4286,51,112,6)
|
||||||
|
Font = Font["+2"]
|
||||||
|
Alignment = Align.Center
|
||||||
|
Text = ("No artist · No album (No year)")
|
||||||
|
}
|
||||||
|
{ TitleLabel Label
|
||||||
|
MoveScaled(3.4286,40,106,10)
|
||||||
|
Font = Font["Bold,+6"]
|
||||||
|
Alignment = Align.Center
|
||||||
|
Text = ("No title")
|
||||||
|
}
|
||||||
|
{ CoverPic PictureBox
|
||||||
|
MoveScaled(38.1429,0,36.5714,36.5714)
|
||||||
|
Picture = Picture.Load("icon:/256/audio")
|
||||||
|
Stretch = True
|
||||||
|
}
|
||||||
|
}
|
||||||
|
{ Timer1 #Timer
|
||||||
|
#MoveScaled(139,2)
|
||||||
|
Delay = 1
|
||||||
|
}
|
||||||
|
}
|
Loading…
Reference in New Issue