list all ACTIVE databases that are mark for replication

i'm trying for figure out a way to list all ACTIVE databases that are mark for replication. I used two codes but they are not that good. 1.

select * from [distribution].[dbo].[MSpublications]

In this code you will see all databases that have been replicated even that one that are not replicated at the moment but used to be.

2.

select * from sys.databases where is_published=1 or is_subscribed=1 or is_merge_published=1

Well this code is not good for a lot of reasons :)

Thank you for your help !