I'm struggling with the new syntax and with GeoGraphics

I’ve used Mathematica since the mid-90’s, but I’m a beginner with some of the new syntax.

The thing I’m trying to do is not only have a polar map of the Northern Hemisphere,

Graphics @@ 
 GeoGraphics[GeoProjection -> "Orthographic", GeoCenter -> {90, 0}, 
  GeoRange -> "World", GeoGridLines -> Automatic, Background -> None, 
  ImageSize -> 300]

But also, I’d like to mark individual cities on this map, kind of like we have here.

But I’m getting stumped with a simple syntax issue. How do I include a GeoMarker within the structure I already have in order to indicate where various cities are on this map?

So far, I’ve tried couple of things.

This is close, but the range is cropped.

This, clearly, is the wrong shape.

I’m also not sure how to paste this code in this forum without it looking long, ugly and terrible.

GeoProjectionData["Orthographic"]

{"Orthographic", {"Centering" -> {0, 0},"GridOrigin" -> {0, 0},"ReferenceModel" -> 1}}

With[{fresno = 
   Entity["City", {"Fresno", "California", "UnitedStates"}]},
 GeoGraphics[GeoMarker[fresno], GeoRange -> "World", 
  GeoProjection -> {"Orthographic", {"Centering" -> 
      fresno["Coordinates"], "GridOrigin" -> {0, 0}, 
     "ReferenceModel" -> 1}}]]